Delphide Kodlar ve Örnek Çaly?malar

Örnek Kodlar
1-)Masaüstündeki simgeleri yoketme;
Yoketmek için;
ShowWindow(FindWindow('Progman',nil),SW_HIDE);
Geri getirmek için;
ShowWindow(FindWindow('Progman',nil),SW_NORMAL);

2-)Ymleci(Cursor) gizleme;

ShowCursor(False) //imleci gizler 
ShowCursor(True) //imleci tekrardan gösterir.

3-)Programy bekletme; 

Bazy i?lemlerden sonra di?er bir i?lemi çaly?tyrmadan önce bir süre beklemek istersiniz. Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen de?er milisaniye cinsindendir. (1 saniye=1000 milisaniye) 
Sleep(10000) //10 saniye bekler

4-)CD sürücüyü açma-kapatma;

Uses kysmyna MMSystem unitini ekleyin.
mciSendString('Set cdaudio door open wait' , nil , 0 , handle); // CD sürücüyü açmak için; 

mciSendString('Set cdaudio door closed wait' , nil , 0 , handle);//CD sürücüyü kapatmak için;

5-)Site Açma;

Uses kysmyna ShellApi unitini ekleyin;
 ShellExecute(self.WindowHandle,'open','Buraya istedi?iniz site adresini girin ',nil,nil, SW_hide);

6-)Pencerenin kapatma butonunu (X) iptal etmek;

Pencerenin ba?lyk çubu?unda bulunan kapatma dü?mesini (X) etkisiz hale getirebilirsiniz. Ayny zamanda sistem menüsündeki Kapat(Close) seçene?i de kaybolur. Bunun için a?a?ydaki gibi bir kod yazmalysynyz. 
procedure TForm1.Button1Click(Sender: TObject);
var
  hwndHandle : THANDLE;
  hMenuHandle : HMENU;
begin
  hwndHandle := FindWindow(nil, 'Form1');  //Form1 pencerenin ba?ly?yny göstermektedir. 
  if (hwndHandle <> 0) then begin             //Burayy uygulamanyza göre de?i?tirin
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
    if (hMenuHandle <> 0) then
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
  end;
end;

7-)Bir Dos programy çaly?tyrma;

WinExec('Buraya çaly?tyraca?ynyz programyn yolunu yazyn',sw_ShowNormal); 
( Not: e?er ikinci parametreyi sw_Hide yaparsanyz kullanycy programyn çaly?ty?yny görmez. )

Örnek Çaly?malar

1-) http://www.4shared.com/file/186530889/dbd012ab/Boids.html

2-) http://www.4shared.com/file/186532313/4c9b6796/faceblur.html

3-) http://www.4shared.com/file/186532607/54265025/rnek1.html

4-) http://www.4shared.com/file/186532850/bdab1cc9/rnek2.html

5-)http://www.4shared.com/file/186533792/4cf012b1/rnek3.html

Arkada?lar ben yeni üye oldum ve Delphi hakkyndaki dökümanlarymy sizinle payla?mak istedim.Hiçbiri alynty de?ildir ve denenmi?tir.Yorumlarynyzy bekliyorum...

Yazar	Mesaj Konu Arama Konu Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır
ThePerfectCode Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 02/Ocak/2010 Aktif Durum: Aktif Değil Gönderilenler: 1	Alıntı Cevapla Konu: Delphide Kodlar ve Örnek Çaly?malar Gönderim Zamanı: 02/Ocak/2010 Saat 13:43
	Örnek Kodlar 1-)Masaüstündeki simgeleri yoketme; Yoketmek için; ShowWindow(FindWindow('Progman',nil),SW_HIDE); Geri getirmek için; ShowWindow(FindWindow('Progman',nil),SW_NORMAL); 2-)Ymleci(Cursor) gizleme; ShowCursor(False) //imleci gizler ShowCursor(True) //imleci tekrardan gösterir. 3-)Programy bekletme; Bazy i?lemlerden sonra di?er bir i?lemi çaly?tyrmadan önce bir süre beklemek istersiniz. Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen de?er milisaniye cinsindendir. (1 saniye=1000 milisaniye) Sleep(10000) //10 saniye bekler 4-)CD sürücüyü açma-kapatma; Uses kysmyna MMSystem unitini ekleyin. mciSendString('Set cdaudio door open wait' , nil , 0 , handle); // CD sürücüyü açmak için; mciSendString('Set cdaudio door closed wait' , nil , 0 , handle);//CD sürücüyü kapatmak için; 5-)Site Açma; Uses kysmyna ShellApi unitini ekleyin; ShellExecute(self.WindowHandle,'open','Buraya istedi?iniz site adresini girin ',nil,nil, SW_hide); 6-)Pencerenin kapatma butonunu (X) iptal etmek; Pencerenin ba?lyk çubu?unda bulunan kapatma dü?mesini (X) etkisiz hale getirebilirsiniz. Ayny zamanda sistem menüsündeki Kapat(Close) seçene?i de kaybolur. Bunun için a?a?ydaki gibi bir kod yazmalysynyz. procedure TForm1.Button1Click(Sender: TObject); var hwndHandle : THANDLE; hMenuHandle : HMENU; begin hwndHandle := FindWindow(nil, 'Form1'); //Form1 pencerenin ba?ly?yny göstermektedir. if (hwndHandle <> 0) then begin //Burayy uygulamanyza göre de?i?tirin hMenuHandle := GetSystemMenu(hwndHandle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; end; 7-)Bir Dos programy çaly?tyrma; WinExec('Buraya çaly?tyraca?ynyz programyn yolunu yazyn',sw_ShowNormal); ( Not: e?er ikinci parametreyi sw_Hide yaparsanyz kullanycy programyn çaly?ty?yny görmez. ) Örnek Çaly?malar 1-) http://www.4shared.com/file/186530889/dbd012ab/Boids.html 2-) http://www.4shared.com/file/186532313/4c9b6796/faceblur.html 3-) http://www.4shared.com/file/186532607/54265025/rnek1.html 4-) http://www.4shared.com/file/186532850/bdab1cc9/rnek2.html 5-)http://www.4shared.com/file/186533792/4cf012b1/rnek3.html Arkada?lar ben yeni üye oldum ve Delphi hakkyndaki dökümanlarymy sizinle payla?mak istedim.Hiçbiri alynty de?ildir ve denenmi?tir.Yorumlarynyzy bekliyorum...


mevo_34 Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 28/Ocak/2009 Konum: Konumsuz Aktif Durum: Aktif Değil Gönderilenler: 1	Alıntı Cevapla Gönderim Zamanı: 02/?ubat/2010 Saat 17:14
	Sa?ol deniyece?im..
	KOD YAZMAK YSTYYORUMM