Samanalevi Netkafe Anasayfa

Windows Başlat Butonuyla Oynamak

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 1046 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Başlat butonunu gizlemek veya kullanılmaz hale getirmek
procedure TForm1.Button1Click(Sender: TObject);
var
Rgn : hRgn;
begin
// Başlat butonunu gizle
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                      'Button',
                                       nil),
                                       Rgn,
                                       true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Gizlenen Başlat butonunu eski haline döndürmek için
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                      'Button',
                                       nil),
                                       0,
                                       true);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Başlat butonunu kullanılmaz yap
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                       'Button',
                                       nil),
                                       false);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//Kullanılmaz yapılan Başlat butonunu eski haline getirmek için
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                       'Button',
                                       nil),
                                       true);
end;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Notepad'ı Çalıştırmak	beykozlu
Tüm Yazılar Küçük Harfle Nasıl Yazılır.	beykozlu
Vb 'de Verı Tıplerı	beykozlu
Çok Satırlı İpucu	seasparrow
Dikine Uzanan Label Nasıl Yazılır	beykozlu
Veri Tipleri	seasparrow
Verıtabanına Daha Hızlı Erışım.	beykozlu
Windows Lisans Bilgilerinin Alınması	seasparrow
Taskbarı Gizlemek	seasparrow
Tüm Textbox'lar Temızlensın	beykozlu
Harddiskin Seri Numarasının Bulmak	seasparrow
Hareketli İmleç Kullanma	seasparrow
Windows Lisans Bilgilerinin (isim Ve Şirket) Bulunması	seasparrow
Yapı Tanımı	seasparrow
Asp İle Veritabanı	seasparrow
Çift Tıkla Maximize	seasparrow
Tl, Kuruş Şeklindeki Sayıyı Yazıya Çevirme (vb.net)	beykozlu
Değişkenler	seasparrow
Asp Net'e Giriş	seasparrow
Hızlı Form	beykozlu