Witam tak jak w temacie mam mały problemik z usuwaniem i zmiany nazwy pliku.
Zrobiłem aplikację mającą za zadanie dokonywać aktualizacji głównego programu.
Oto kod odpowiedzialny za mój problem:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
var
Http: TIdHTTP;
ContentLength: Int64;
Percent: Integer;
begin
ContentLength := Http.Response.ContentLength;
Percent := 100*AWorkCount div ContentLength;
ProgressBar1.Position := Percent;
if Percent = 100 then
begin
Application.MessageBox('Pobieranie zakończone pomyślnie.'+#13+'Teraz nastąpi zamknięcie aplikacji i jej aktualizacja.', 'Aktualizacja', MB_OK + MB_ICONInformation);
PostMessage(FindWindow(nil ,PChar(ParamStr(3)), WM_CLOSE, 0, 0);
SetFileAttributes(PChar(patch + ParamStr(1)),0);
DeleteFile(PChar(patch + ParamStr(2)));
RenameFile(PChar(patch + ParamStr(1)), PChar(patch + ParamStr(2)));
Application.MessageBox('Aktualizacja zakończona pomyślnie!', 'Aktualizacja', MB_OK + MB_ICONInformation);
ShellExecute(Handle, 'open', Pchar(ParamStr(2)), nil, nil, SW_SHOWNORMAL);
Application.Terminate;
end;
end;
Dodam tylko tyle, że parametry są otrzymywane prawidłowo.
Proszę o pomoc w rozwiązaniu problemu.
Pozdrawiam :)