Samanalevi Netkafe Anasayfa

Windows Başlat Butonuyla Oynamak

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 933 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
Windows Lisans Bilgilerinin Alınması	seasparrow
Vb' De Diziler	beykozlu
Tıtle Bar Nasıl Yanıp Söner.	beykozlu
Kayan Yazı (form Captıon'a)	beykozlu
Değişkenler	seasparrow
Explorerda Bir Web Sitesini Açma	seasparrow
Sitenizdeki Aktif Ziyaretçiler	admin
Fontu Windowsa Yüklemeden Kullanmak	seasparrow
Ateş Efektli Yazı	admin
Belgeler Menüsüne Dosya Ekleme/temizleme	seasparrow
Asp Net'e Giriş	seasparrow
Asp De Beni Hatırla	seasparrow
Verıtabanına Daha Hızlı Erışım.	beykozlu
Hareketli İmleç Kullanma	seasparrow
Tüm Yazılar Küçük Harfle Nasıl Yazılır.	beykozlu
Zamana Göre Selamlama	seasparrow
Vb'de Arıtmetıksel Operatorler	beykozlu
Memo'da Cursorun Yerini Bulma	seasparrow
Çift Tıkla Maximize	seasparrow
Sabit Değerler	seasparrow