Komega Yaşayan Forum Efsanesi Katılım 9 Tem 2013 Mesajlar 9,706 Tepkime puanı 7 Konum Dünydn .s Kredi 0 10 Tem 2015 #1 Kod: 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;
Kod: 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;
csrx4 Katılımcı Üye Katılım 6 Ağu 2015 Mesajlar 667 Tepkime puanı 1 Konum Mars Kredi 0 24 Ağu 2015 #2 Komutaın bu kodları nereye yazıyoruz ?
