Download

11/19/2010

Cara Membuat Aplikasi Uninstall di Delphi 7


Selamat siang agan-agan.Siang yang cerah dan tentu saja menyenangkan untuk posting.Pada postingan kali ini , saya akan memberikan tutorial Cara Membuat Aplikasi Uninstall di Delphi 7.Maksudnya apa !? Aplikasi uninstall yang dimaksud ialah sebuah perintah untuk menghapus aplikasi itu sendiri yang berfungsi layaknya uninstall.Sehingga ketika user menjalankan aplikasi tersebut dan mengeksekusi perintah uninstall , maka aplikasi tersebut akan menghapus dirinya sendiri atau harakiri dalam bahasa Jepang (apa deh -,-" ).Kalo ternyata penjelasan saya belibet dan gak masuk akal , mending kita langsung praktek aja deh.Buka borland Delphi 7 anda dan buat aplikasi
baru.Save all project anda terserah dimana saja.Setelah itu , tambahkan sebuah procedure bernama deleteEXE.Ketikan kode berikut setelah {$R *.dfm}


  1. procedure DeleteEXE;  
  2.   
  3.   function GetTmpDir: string;  
  4.   var  
  5.     pc: PChar;  
  6.   begin  
  7.     pc := StrAlloc(MAX_PATH + 1);  
  8.     GetTempPath(MAX_PATH, pc);  
  9.     Result := string(pc);  
  10.     StrDispose(pc);  
  11.   end;  
  12.   
  13.   function GetTmpFileName(ext: string): string;  
  14.   var  
  15.     pc: PChar;  
  16.   begin  
  17.     pc := StrAlloc(MAX_PATH + 1);  
  18.     GetTempFileName(PChar(GetTmpDir), 'uis', 0, pc);  
  19.     Result := string(pc);  
  20.     Result := ChangeFileExt(Result, ext);  
  21.     StrDispose(pc);  
  22.   end;  
  23.   
  24. var  
  25.   batchfile: TStringList;  
  26.   batchname: string;  
  27. begin  
  28.   batchname := GetTmpFileName('.bat');  
  29.   FileSetAttr(ParamStr(0), 0);  
  30.   batchfile := TStringList.Create;  
  31.   with batchfile do  
  32.   begin  
  33.     try  
  34.       Add(':Label1');  
  35.       Add('del "' + ParamStr(0) + '"');  
  36.       Add('if Exist "' + ParamStr(0) + '" goto Label1');  
  37.       Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"');  
  38.       Add('del ' + batchname);  
  39.       SaveToFile(batchname);  
  40.       ChDir(GetTmpDir);  
  41.       ShowMessage('Uninstalling program...');  
  42.       WinExec(PChar(batchname), SW_HIDE);  
  43.     finally  
  44.       batchfile.Free;  
  45.     end;  
  46.     Halt;  
  47.   end;  
  48. end;  

Lalu tambahkan satu buah komponen TButton kedalam Form1.Double klik Tbutton tersebut lalu ketikan kode berikut untuk memanggil procedure tadi.


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. begin  
  3.   DeleteEXE;  
  4. end;  

Selesai.Save all project anda dan jalankan.Lihat di folder tempat anda menyimpan project tersebut,nampak project1.exe.Jalankan lagi program anda lalu klik button1.Maka program akan menghapus dirinya sendiri lalu keluar.Silahkan cek di folder tempat penyimpanan project anda , project1.exe sudah tidak ada bukan !? Sekian untuk tutorial kali ini semoga bermanfaat.

0 komentar:

Post a Comment

Newer Post Older Post Home
Aulia DirUt. Powered by Blogger.
 

Blog Archive

Followers

 

Templates by Nano Yulianto | CSS3 by David Walsh | Powered by {N}Code & Blogger