Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
30 Temmuz 2010 09:30:56

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

  aruda
09 Temmuz 2010 15:09:00
merhaba arkadaÅŸlar ilk defa bi soru soracam
son olarak üzerinde çalıştığım bi proğramda sorun var
datadan belirli bi kritere göre arama yapıyor bunlardan çift olanları teke düşürüp gride nasıl yazdıra bilirim
örnek vererek anlatırsam daha sağlam olur sanırsam

datadan k
ynshacker
10 Temmuz 2010 03:07:46
GÃœZEL SÄ°TE SEVDÄ°M ;D
  maydin60
14 Temmuz 2010 14:45:20
aloo nasılsınız...
LoneLy
15 Temmuz 2010 18:16:38
 maske msnden bi konuÅŸalım kanky.
  maydin60
17 Temmuz 2010 15:16:16
ınterbase procedure soruma cevap verecek sevgili bir kul yokmu arkadaşlar ?

Show 50 latest
« önceki sonraki »
Sayfa: [1]   AÅŸağı git

Gönderen Konu: Delphi 7 Programlamada Sorun??  (Okunma sayısı 471 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ahmet90

  • Yeni Üye
  • *
  • Ä°leti: 2
  • Rep: +0/-0
Delphi 7 Programlamada Sorun??
« : 03 Temmuz 2009 14:44:27 »
merhaba arkadaşlar ben ilk defa programlamaya başladım ve mantığını henüz çözebilmiş değilim benim sorum bi simge çalıcı program yapmak istiyorum tasarım hazır ama Simge Tuşunu basınca kullanıcı .exe dosyasını seçtiğinde onu arka planda nasıl aktarıp programın oldugu klosere kopyalata bilirim opendialog1 ekledım ama savadialog olmadan kullanıcıya yer sormadan direk programın çalıştığı dizine kopyalatmak istiyorum ve birde mesela shell32.dll dosyasını seçti içinden 1 simge değilde hepsini nasıl kopyalatabilirim ?? Şimdiden Çok Teşekkurler...
Kayıtlı

Çevrimdışı sabanakman

  • Global Moderatör
  • *****
  • Ä°leti: 361
  • Rep: +6/-0
  • Cinsiyet: Bay
Ynt: Delphi 7 Programlamada Sorun??
« Yanıtla #1 : 06 Temmuz 2009 09:11:31 »
Merhaba. Programın bulunduğu klasör adı
Kod: (delphi) [Seç]
ExtractFilePath(Application.ExeName) koduyla elde edilir. Ayrıca bir dosya içindeki simgeyi çekip okumak ve onu kaydetmek için aşağıdaki gibi bir koddan faydalanabilinir.
Kod: (delphi) [Seç]
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;Böylelikle
Kod: (delphi) [Seç]
if OpenFileDialog.Execute then SimgeOku(OpenFileDialog.FileName,'Deneme.ico',2);şeklindeki bir kodla seçilen dosyanın 3. sırasındaki simge okunacaktır (tabi varsa. Birden çok simge bazı .exe ve .dll dosyalarda olabilir). Burada ilk simgenin sıra numarası 0'dır. SimgeSiraNo değeri hiç verilmezse ilk (0.) sıradaki simge elde edilir. İyi çalışmalar.
« Son Düzenleme: 06 Temmuz 2009 09:12:30 by sabanakman »
Kayıtlı
Åžaban Åžahin AKMAN

Derin olan kuyu değil kısa olan iptir

Çevrimdışı ahmet90

  • Yeni Üye
  • *
  • Ä°leti: 2
  • Rep: +0/-0
Ynt: Delphi 7 Programlamada Sorun??
« Yanıtla #2 : 08 Temmuz 2009 19:16:55 »
çok teşekkur ederım saygılarımla
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »