0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Uses ShellApi;procedure TForm1.FormCreate(Sender: TObject);var TheIcon: TIcon;Begin TheIcon := TIcon.Create;TheIcon.Handle := ExtractIcon(hInstance,'C:\dosya\dosya.EXE',0);image1.picture.Icon:=Theicon;End;