0 Üye ve 1 Ziyaretçi konuyu incelemekte.
ExtractFilePath(Application.ExeName)
procedure SimgeOku(const SimgeDosyaAdi,YeniKopyaAdi:String; const SimgeSiraNo:Integer=0);var Simge:Graphics.TIcon; HandleIcon: Windows.HICON;begin HandleIcon:=ExtractIcon(HInstance,PChar(DosyaAdi),SimgeSiraNo); try Simge:=TIcon.Create; Simge.Handle:=HandleIcon; Simge.SaveToFile(ExtractFilePath(Application.ExeName)+YeniKopyaAdi); finally DestroyIcon(Simge.Handle); Simge.Free; end;end;
if OpenFileDialog.Execute then SimgeOku(OpenFileDialog.FileName,'Deneme.ico',2);