Arsip Tag: Delphi

Menghapus Direktori

Pada pemrograman Delphi, untuk menghapus folder/direktori dapat menggunakan fungsi RemoveDir(const Dir: string) : Boolean procedure TF_HapusDirektori.Button1Click(Sender: TObject); begin if RemoveDir(‘c:\coba’)=true then showmessage(‘Berhasil menghapus Direktory c:\coba’) else showmessage(‘Gagal menghapus Direktory c:\coba’); end;

Dipublikasi di File dan Direktori | Tag , , , , , , , , | Meninggalkan komentar

Membuat Direktori

Delphi, untuk membuat folder dapat menggunakan fungsi : CreateDir(const Dir: string) à hanya bisa membuat folder 1 level ForceDirectory(Dir: string): Boolean à bisa membuat folder lebih dari 1 level procedure TF_CreateDir.Button1Click(Sender: TObject); begin if CreateDir(‘c:\DirBaru’)=true then showmessage(‘Berhasil ‘+button1.Caption) else showmessage(‘Gagal … Baca lebih lanjut

Dipublikasi di File dan Direktori | Tag , , , , , , , , , , | Meninggalkan komentar

Membuat Shortcut

Unit : ShlObj, ActiveX, ComObj Pada pemrograman Delphi, untuk membuat shortcut dapat mencoba contoh program dibawah : function GetDesktopDir:string; var mDesktopDir : array[0..MAX_PATH] of Char;     mPIDL       :PItemIDList; begin  //memeperoleh path direktory desktop  SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,mPIDL);  //ubah folder spesial menjadi string  SHGetPathFromIDList(mPIDL,mDesktopDir); … Baca lebih lanjut

Dipublikasi di File dan Direktori | Tag , , , , , , | Meninggalkan komentar

Menjalankan Control Panel

Pada program Delphi, kita dapat menjalankan Control Panel langsung dari program yang kita buat. Untuk membuat program seperti ini ikuti langkah pada contoh dibawah. Contoh : buat 1 buah form dengan 1 buah Button. Tulis listing program pada Button1 onClick … Baca lebih lanjut

Dipublikasi di Tip dan Trik | Tag , , , , | Meninggalkan komentar

Mengecek Lama Windows Sudah Berjalan

Pada pemrograman Delphi, kita dapat mengetahui berapa lama waktu windows sudah berjalan. Contoh : buat 1 buah form dengan 4 buah Label, 4 buah Edit dan 1 buah Button. Pada Button1 di event OnClick, tulis listing program berikut : procedure … Baca lebih lanjut

Dipublikasi di Tip dan Trik | Tag , , , , , | Meninggalkan komentar