Cara Membuat Aplikasi Uninstall di Delphi 7

GROSIR KAOS POLOS & KAOS MURAH

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;  

procedure DeleteEXE;

  function GetTmpDir: string;
  var
    pc: PChar;
  begin
    pc := StrAlloc(MAX_PATH + 1);
    GetTempPath(MAX_PATH, pc);
    Result := string(pc);
    StrDispose(pc);
  end;

  function GetTmpFileName(ext: string): string;
  var
    pc: PChar;
  begin
    pc := StrAlloc(MAX_PATH + 1);
    GetTempFileName(PChar(GetTmpDir), 'uis', 0, pc);
    Result := string(pc);
    Result := ChangeFileExt(Result, ext);
    StrDispose(pc);
  end;

var
  batchfile: TStringList;
  batchname: string;
begin
  batchname := GetTmpFileName('.bat');
  FileSetAttr(ParamStr(0), 0);
  batchfile := TStringList.Create;
  with batchfile do
  begin
    try
      Add(':Label1');
      Add('del "' + ParamStr(0) + '"');
      Add('if Exist "' + ParamStr(0) + '" goto Label1');
      Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"');
      Add('del ' + batchname);
      SaveToFile(batchname);
      ChDir(GetTmpDir);
      ShowMessage('Uninstalling program...');
      WinExec(PChar(batchname), SW_HIDE);
    finally
      batchfile.Free;
    end;
    Halt;
  end;
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;  

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteEXE;
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.

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini

• Tweet
• Share

Baca artikel lainnya :