windows başlat menüsünü devre dışı bırakma

[recepgalip]

merhbalar arkadaşlar. ya bu konu ile ilgi baya arama yaptım. hatta formda bi kaç tane buldum. ama bunlar win98 içindi.ve işime pek yaramadı. benim yapmak istediğin. kullanıcıların sadece benim programını kullanmasını sağlamak. yani adam masa üztüne donemeyecek, windowstan hiçbir bileşen kullanamayacak. ama yaptıgım programda bi turlu başlatı kitleyedim. hala ctrl+esc bastıgımda menu geliyor,win tuşuna bastıgımda menu geliyor. bunları nasıl engelleyebilirim. yardımcı olursanız sevinirim. işetim sitemi win98 de kullnan var xp de.
iyi çalışmalar.

[Fatih!]

delphi kodbankta baya örnek vardı. başlatı gizledikten sonra tuşları konntrol ettir. bunuda kodbnakta görmüştüm.

[recepgalip]

yaaaa kodbank değil taramadıgım yer kalmadı yaaa.bulduklarım dedimya win98 için xp de iş gormuyor.

[TRSoft]

Bir ara evdekiler fazla karıştırmasın diye bende böyle bişey yapmıştım..
Aşağıdaki kodu xp ve 98 de çalıştırabilirsin..

Başlat Butonunun Gizlenmesi

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Rgn : hRgn;
begin
  Rgn := CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),                                                  
                                      0, 'Button', nil), Rgn, true);
end;

Başlat Butonunun Normale Çevrilmesi

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0, 'Button', nil), 0, true);
end;

Klavyedeki tuşlarıda formun Onkeypress OnKeyDown yordamlarında kontrol ederek pasif hale getirebilirsin.. Forumda bu konuda çok örnek var.

Masaüstündeki iconları saklamaya gelince sadece XP de deneyebildim..

Kod: Tümünü seç

ShowWindow(FindWindow( 'Progman',nil), SW_HIDE);//masaüstüni sakla
ShowWindow(FindWindow( 'Progman',nil), SW_NORMAL);//masaüstünü göster

[recepgalip]

ya abilerim ablalarım yine olmadı yaaa. başlat menüsünü güzel gizledi az once gelen kodu. ama klavyenin ctrl+esc veya win tuşuna basınca benü önüme çıkıverdi. ayrıca yardımlarınız için tekrar tekrar teşekkür ederim.

[aliyonca]

Merhaba arkadaşlar.... TrSoft kardeş verdiğin kodları denedim, güzel çalışıyorlar, bende winxp kullanıyorum... bu windows tuşlarını yasaklamayı, bende çok merak ettim ... bu konuyu bilen arkadaşlar yardım ederse çok sevinirim...

herkese kolay gelsin...

[TRSoft]

Arkadaşlar bendeki kodlarda 98 içindi ama aşağıdaki linkte bir dllden yararlanarak Windows System tuşlarını disable edilebiliyor.

http://home.hccnet.nl/p.zylstra/downloads/winhook.zip

[recepgalip]

valla Allah Razı olsun. daha program adapte etmedim ama gonderdiğin kodlar çalıştırdım gayet güzel, işimi görür gibi. tekrar teşekkür ederim. iyi çalşmalar.