başlangıçta açılan programın iptal edilmesini istemiyorum???

[forumsad]

arkadaşlar bir program yazdım yazdığım program xp açılınca başlangıca kısayolunu koydum direkt açılıyor....

çalışan programımın hiç bir şekilde kaldırılıp iptal edilememesi lazım.....

öncelikle klevye mause iptal ettip...fakat ctrl-alt-del tuşuna basınca bu kod kendiliğnden iptal oluyor klevye mause açılıyor
taskbarı gizledim bu seferde klevyeden pencere tuşuna basınca başlat menüsü programları gözüküyor


şimdi ne yapacağımı şaşırdım ...durum bu

xp açılacak benim programım çalışacak bu program hiç bir şekilde kapatılamaycak
bunu nasıl yapabiliriz

teşekkürler

[ikutluay]

ne yaparsan yap adam cd den açıp registryden kaldırır genede çözer. sorunun ne olduğunu tam açıklarsan fikrimizi söyleriz. ama "tamamen " dersen bunun yolu yok. biz sadece kul işi çözümler biliyoruz. senin istediğin ise maalesef ancak "Allah" yapısı ile mümkün.

[forumsad]

hocam forma 1 adet timer koydum 1sn ayarladım mause klevyeyi kapattım ....

ctrl alt del yapıp kaptmayı açsa dahi tekrar timer tekrar kitliyor....

klevye mause açık olduğu zaman nasıl olur bilmiyorum pc açılınca benim programım otomatik çalışıyor ve ekranı kaplıyor
burda dogru şifreyi girmeden programı kapatamaması lazım.......görev yöneticisini ayarlarından kapatıyorum taskbarı kapatıyorum genede bir açık kalıyor
klevyedeki pencere tuşuna basınca tüm menüler gözüküyor başlat menüsünü tamamen kapatma ayarı bulamadım tek tek kapatmak lazım ....o da can sıkıcı

saygılarımla

[greenegitim]

s.a. Bi dene bak

Kod: Tümünü seç

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; 

[forumsad]

hocam bu kodları web de bulmuştum sadece başlat butonuna yönelik işlem yapıyor başlat menüsünü engellemiyor klevyedeki pencere tuşuna basınca
tüm menü gene gözüküyor

[greenegitim]

HKEY_LOCAL_MACHINE\System\currentControlSet\Contro l\Keybord Layout burada Scancode Map özelligini bulun ve yoksa siz yapin ardindan su degerleri verin.
00 00 00 00 00 00 00 00
03 00 00 00 00 00 5B E0
00 00 5C E0 00 00 00 00 Windows tusu restart tan sonra artik çalismayacak [ XP ]
bunu buldum ama faydası olurmu bilmem windows tuşunu etkisizleştiriyor. ascii kodu yok herhalde windows tuşunun.

[forumsad]

teşekkürler hocam