Arsip: DisabledTaskManger Dgn Delphi


by saysansay in Articles more 19 years ago 2433
Malam-malam yg sepi Bintang tak bersinar, elisah yang ada..ech ku lihat CPU ku Yg berbi\ekini jadi tertarik buat ngoprek2 delphi...dan akhirnya coding2ann jadinya wakakakaka..dasar diriku bikin mas luri ngambek aja ok bay the way nech ada sedikit ilmu yg bisa diriku bagikan kepada rekan2 semua...ilmu ini tergolong dalam security sistem...biasa dapet dari compiler virus baraontok wakakakakak bagaimana mendesibled Taskmanager di Window..sangat sederhana sekali wakakakaka Warning bagi yg masih seveenteen dilarang keras buat mempelajari ini wakakakak Ok dech nech sorce codingnya wakakakak
procedure Tform1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System', True)
then Reg.WriteInteger('DisableTaskMgr',1);
finally
Reg.CloseKey;
Reg.Free;
end;
end;
Syntax Highlighted with https://pascal-id.org/syntax
// Ingat untuk Restore Ke State System agar normal setelah keluar gunakan kode ini //diform event ondestroy
procedure Tcontrolform.FormDestroy(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System', True)
then Reg.WriteInteger('DisableTaskMgr',0);
finally
Reg.CloseKey;
Reg.Free;
end;
end;
Syntax Highlighted with https://pascal-id.org/syntax
Never give erorrr wakakakakakakak

Moga Bermanfaat

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com