Forum
Aktif konular
Üyeler
Kurallar
Arama
Kapanmayan Program ? Kapanmayan Program ?
-
aslında ilk önce sormam isdediğim şey, yazdığımız programın task managerde görünmemesini nasıl sağlarız ?
sonrada bir programın alt+f4 ile kapanmamasını title bardali x (close) tuşuna basınca kapanmamasını (ki buna greke yok direk o tuşu kaldıra biliyoruz zaten title bardan) veya windows tool bardan sağtıklanıp close dendiği zaman kapanmamasını sağlayabilirimiz ? (bildiğim kadarıla bu üçüde OnClick falan çağırmadan kapatıyor formu, ben daha delphiye yeni başladım o yüzden formun OnClose'una form.show yazdım belki olur diye ama tabii yemedi :))
-
ctrl+f12 de proje adına
Application.ShowMainForm:=False;
yaz bide
procedure ALTDELSAKLA(Sakla: Boolean);
begin
if sakla then
RegisterServiceProcess(GetCurrentProcessID,1) //SAKLAMAK YÇYN
else
RegisterServiceProcess(GetCurrentProcessID,0); //GÖSTERMEK YÇYN
end;ctrlaldel saklar.
-
Arkadaşlar birde şu delphideki programları görev yöneticisinden gizleyebiliyormuyuz.Her yeri araştırdım fakat hep windows 98 için kodlar çıktı sanırım xp ve 2000 de biraz daha zormuş.Bunu bilen aranızda varmıydı acaba.Saygılarımla
-
Evet arkadaşlar sonunda kodu buldum xp'de gizlemenin yolu yokmuş bu yüzden görev yöneticisini registry ayarlarıyla devre dışı bırakıyoruz.
Kod:Bunu prosedür olarak ekleyin ve forumu yarattığınız yere DisableTaskMgr(True); yazın tamamdır :))
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end; -
Bak güzel abicim. Formun onClose eventine ""caNone;"" yazarsan program asla kapanmaz.
-
FireX bunu yazdı:
Evet arkadaşlar sonunda kodu buldum xp'de gizlemenin yolu yokmuş bu yüzden görev yöneticisini registry ayarlarıyla devre dışı bırakıyoruz.
Kod:Bunu prosedür olarak ekleyin ve forumu yarattığınız yere DisableTaskMgr(True); yazın tamamdır :))
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;Giremedim arkadaşlar registery e kayıt nasıl girebilirim delphiyle?
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla