Delphi Bazı Örnek Kodlar

- Delphi Ö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-)İmleci(Cursor) gizleme;

 

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

 

3-)Programı bekletme; 

Bazı işlemlerden sonra diğer bir işlemi çalıştırmadan ö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 kısmına 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 kısmına 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şlık çubuğunda bulunan kapatma düğmesini (X) etkisiz hale getirebilirsiniz. Aynı zamanda sistem menüsündeki Kapat(Close) seçeneği de kaybolur. Bunun için aşağıdaki gibi bir kod yazmalısınız.

procedure TForm1.Button1Click(Sender: TObject);
var
  hwndHandle : THANDLE;
  hMenuHandle : HMENU;
begin
  hwndHandle := FindWindow(nil, 'Form1');  //Form1 pencerenin başlığını göstermektedir.
  if (hwndHandle <> 0) then begin             //Burayı uygulamanıza göre değiştirin
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
    if (hMenuHandle <> 0) then
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
  end;
end;

 

7-)Bir Dos programı çalıştırma;

 

WinExec('Buraya çalıştıracağınız programın yolunu yazın',sw_ShowNormal);
( Not: eğer ikinci parametreyi sw_Hide yaparsanız kullanıcı programın çalıştığını görmez. )