Cara Membuat Aplikasi Uninstall di
Delphi 7
Selamat sejahtera gan.sehat semua bukan ? tentu saja menyenangkan untuk posting kali ini.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.Kalo begitu mending kita
langsung praktek aja .
>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.
EmoticonEmoticon