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
Never give erorrr wakakakakakakak// Ingat untuk Restore Ke State System agar normal setelah keluar gunakan kode ini //diform event ondestroy
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
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
Moga Bermanfaat
Random Articles
- Rebuild lazarus 2.0.8 dengan fpc 3.2.0 (Win32) - Experimental
- PascalClass #3: Web Development with Free Pascal
- Mengandakan nama folder seperti virus
- Toggle Key Monitoring
- Tulis/Baca "string" di file .INI
- Mendeteksi disk berdasar message dari windows
- TDBF
- Tuju baris N di richedit
- SayNumber
- Thxvidfwin sebuah component video sederhana
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
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago