[Borland Delphi] Icon Extractor

[c0smyn]

Adaugati sus la uses: ShellApi

Adaugati aceasta function sub {$R *.dfm}

// Thanks to Shocker
function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean;
var
i: TIcon;
h: HIcon;
begin
if not directoryexists(ExtractFilePath(SaveIconTo)) then
if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil)
else
exit;

i := TIcon.Create;
h := ExtractIcon(application.handle,PChar(ExePath),0);
if h <> 0 then
  begin
i.Handle := h;
i.SaveToFile(SaveIconTo);
result := true;
end
else
result := false;

i.Free;
end;

Enjoy

[c0smyn]

Ai dreptate Shocker

// Thanks to Shocker
function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean;
var
i: TIcon;
h: HIcon;
begin
if not directoryexists(ExtractFilePath(SaveIconTo)) then
if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil)
else
exit;

i := TIcon.Create;
h := ExtractIcon(application.handle,PChar(ExePath),0);
if h <> 0 then
  begin
i.Handle := h;
i.SaveToFile(SaveIconTo);
result := true;
end
else
result := false;

i.Free;
end;

E mai bine acum ?