PDA

Ver la Versión Completa : Extraer el icono de un archivo


dec
01-07-2006, 00:53:43
var
TheIcon: TIcon;
begin
TheIcon := TIcon.Create;
TheIcon.Handle := ExtractIcon(hInstance,'C:\WINDOWS\NOTEPAD.EXE',0);
{ .... hacer algo con el Icono }
TheIcon.Free;
end;