jamjid
شروع فعاليت
![شروع فعاليت شروع فعاليت](modules/Forums/images/ranks/1star.gif)
![](modules/Forums/images/avatars/gallery/blank.gif)
پست: 3
عضو شده در: 14 آبان 1384
محل سکونت: iran
![iran.gif](modules/Forums/images/flags/iran.gif)
امتياز: 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; ![Neutral](modules/Forums/images/smiles/icon_neutral.gif) |
|