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}- 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.
- 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.
sumber :http://aulia.allalla.com/1/2012/07/cara-membuat-aplikasi-uninstall-di-delphi-7/#more
No comments:
Post a Comment