Senin, 15 September 2008

PROGRAM PENGUPDATE PROGRAM

Jika anda mempunyai program yang sudah lama ingin diperbaharui maka source program di bawah adalah salah satu cara untuk mengupdate program lama anda. Silahkan dibaca:

procedure UpdateMyself;
var
bakName : string;
begin
bakName := ChangeFileExt(Application.ExeName, '.old');
if FileExist(bakName) then
DeleteFile(bakName);
RenameFile (Application.ExeName, bakName);
CopyFile('c:\downloads\' + Application.ExeName, Application.ExeName);

// restart and shutdown old session
WinExec(Application.ExeName, sw_ShowNormal);
Application.Terminate;
end;

Tidak ada komentar: