Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Desktop - Duvar Kağıdını Değiştirmek  (Okunma sayısı 2369 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Kıdemli Üye
  • *****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Desktop - Duvar Kağıdını Değiştirmek
« : 21 Ekim 2005 16:00:04 »
Kod: Delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   s: string;
  4. begin
  5.    s := 'C:\pictures\cmnsoft.jpg';
  6.    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)
  7. end;
« Son Düzenleme: 20 Haziran 2009 17:07:30 by Kocaturk »
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

muderless

  • Ziyaretçi
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #1 : 21 Kasım 2005 17:16:24 »
değişim ok sorun yok ama bil. kapanıp açılınca görünt gidiyor bunu nasıl engelleyebiliriz
Kayıtlı

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #2 : 21 Kasım 2005 18:14:13 »
resmi windows dizinine kopyala.
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

muderless

  • Ziyaretçi
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #3 : 25 Kasım 2005 17:47:29 »
ok onada eyvallah. bir soru daha 2. bir button başka bir resim atadım ama değişim gerçekleşmiyor. Neden ?
Kayıtlı

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #4 : 25 Kasım 2005 22:55:59 »
Alıntı yapılan: muderless - 25 Kasım 2005 17:47:29
ok onada eyvallah. bir soru daha 2. bir button başka bir resim atadım ama değişim gerçekleşmiyor. Neden ?
anlayamadım  ::) ???
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

muderless

  • Ziyaretçi
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #5 : 26 Kasım 2005 01:28:01 »
Kod: Delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   s: string;
  4. begin
  5.    s := 'C:\pictures\cmnsoft.jpg';
  6.    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)
  7. end;
  8.  
  9. procedure TForm1.Button2Click(Sender: TObject);
  10. var
  11.   s: string;
  12. begin
  13.    s := 'C:\pictures\cmnsoft2.jpg';
  14.    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)
  15. end;

şeklinde 2 button var 1. button görevini yerine getiriyor ama 2. button na tıklanınca olay gerçekleşmiyor sorun bu
« Son Düzenleme: 20 Haziran 2009 17:06:51 by Kocaturk »
Kayıtlı

Çevrimdışı kahraman0309

  • Yeni Üye
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #6 : 11 Aralık 2006 15:15:38 »
ben denedim olmadı ama :(
Kayıtlı

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Desktop - Duvar Kağıdını Değiştirmek
« Yanıtla #7 : 13 Aralık 2006 19:43:31 »
Kod: Delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   PicPath: String;
  4. begin
  5.   PicPath := 'C:\WINNT\Prairie Wind.bmp';
  6.   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(PicPath), SPIF_SENDCHANGE)
  7. end;
http://bdn.borland.com/article/29037
« Son Düzenleme: 20 Haziran 2009 17:06:18 by Kocaturk »
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.
Sayfa: [1]   Yukarı git
« önceki sonraki »