jamjid
شروع فعاليت
پست: 3
عضو شده در: 14 آبان 1384
محل سکونت: iran
امتياز: 29
|
|
عنوان: |
 
|
|
 با سلام جواب این سوال با کمک این دو پروسیجر حل خواهد شد
procedure DisableTaskManager();
var DTM: Tregistry;
begin
DTM:= tregistry.Create;
DTM.RootKey:= HKEY_CURRENT_USER;
DTM.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\system\',True);
DTM.WriteInteger('DisableTaskMgr',1);
DTM.Free;
end;
procedure EnableTaskManager();
var ETM: Tregistry;
begin
ETM:=TRegistry.Create;
ETM.RootKey:= HKEY_CURRENT_USER;
ETM.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\system\',True);
ETM.WriteInteger('DisableTaskMgr',0);
ETM.Free;
end;
 و برای alt+f4 کافیست در onclose فرم بنویسیدApplication.Run;  |
|
]
.gif){kind=avatar}
.gif){kind=icon}