anyway opet problem...evo o cemu se radi. pravim neki program za igraonice. i sad radim na nekoj opciji koja izvlaci iz desktopa sve .lnk filove dolazi do njihovih .exe i iz njih izvlaci ikonice. ikonica se cuva u \icons\nazivexefile.exe.ico e sad kad kompajliram program i pokusham da izvucem ikonicu on crashuje i javlja 'icon not valid' a neam blage zasto. evo koda:
Code:
procedure Tform2.geticon(exe: string);
var
hLarge,
hSmall: hIcon;
begin
ExtractIconEx(pChar(exe), -1, hLarge, hSmall, 1); //uzima ikonicu iz exefilea
icon.Handle:=hsmall; //ucitava iconicu
icon.SaveToFile(ExtractFilePath(Application.ExeName) + 'icons\' +
ExtractFileName(exe) + '.ico'); //cuva je u icons\
icon.ReleaseHandle; //nisam siguran da je ovo uopste potrebno...
edit7.Text:=ExtractFilePath(Application.ExeName) + 'icons\' + ExtractFileName(exe) + '.ico'; // u edit7 upisuje putanju do ikonice
end;
????