procedure TfrmUpdateVersion.btn2Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
try
sl.Append(':Repeat');
sl.Append('del "' + Application.ExeName + '"');
sl.Append('if exist "' + ExtractFileName(Application.ExeName)+'" goto Repeat');
sl.Append('Ren "'+ExtractFilePath(Application.ExeName)+'new.exe"' +'"SandoghWam.exe"');
sl.Append('start "" "' + Application.ExeName +'"');
sl.Append('del "' + ExtractBackDir(Application.ExeName)+ '\Del.bat"');
sl.SaveToFile(ExtractBackDir(Application.ExeName)+ '\Del.bat');
ShellExecute(Handle, 'open', pchar(ExtractBackDir(Application.ExeName) + '\Del.bat'), '', '', 7);
Application.Terminate;
finally
sl.Free;
end;
end;
پاسخ با نقل قول