Kode berikut adalah modifikasi dari kode sebelumnya, memeriksa jumlah aplikasi yang berjalan, sesuai dengan janji saya sebelumnya. Kalo pada artikel menutup aplikasi lain kita mencari aplikasi yang berjalan berdasarkan caption dari aplikasi tersebut, sekarang kita hanya perlu mengetahui nama file exenya saja. berikut adalah kodenya: function KillTask(ExeFileName: ShortString): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result ... Read More

Kode di bawah ini adalah untuk mengetahui program apa saja yang sedang berjalan (seperti kalo kita menekan tombol CTRL+ALT+DEL). Jangan lupa untuk menambahkan unit TlHelp32 pada clausa uses. Tambahkan saja pada form anda komponent Memo dan Button, lalu pada event OnClick dari button isi dengan kode di bawah ini: procedure TForm1.Button2Click(Sender: ... Read More

Ternyata, buat mengintegrasikan driver sata ke cd setupnya windows xp itu gak perlu nginstall dulu nLite. Memang dengan nLite pekerjaan akan lebih mudah dan otomatis, tetapi memerlukan space hardisk yang cukup banyak, karena sebelumnya harus install dulu .NET. Ada cara yang lebih "irit" buatannya kang Kevin, yang support driver sata cukup lengkap: Intel 82801GR/GH ... Read More

Menjalankan aplikasi lain seperti Notepad, Paint, dll. dari aplikasi yang kita buat, bisa menggunakan fungsi dari Win API, ShellExecute: ShellExecute( hWnd: HWND; // handle to parent window                      Operation: PAnsiChar; // pointer to string that specifies opretaion to perform                      FileName: PAnsiChar; // pointer to filename or folder name string                      Parameters:  PAnsiChar; // pointer ... Read More

Fungsi di bawah ini bisa digunakan untuk menutup aplikasi lain yang sedang berjalan. Parameter sCapt adalah Judul (title) dari aplikasi yang mau ditutup tersebut. function KillApp(const sCapt: PChar) : boolean; var AppHandle:THandle; begin   AppHandle:=FindWindow(Nil, sCapt);   Result:=PostMessage(AppHandle, WM_QUIT, 0, 0); end; {Contoh pemakaian:} if not KillApp('Window caption') then  ShowMessage('App not closed'); ... Read More