Sprawdzanie czy istanieje plik oraz messageBox

0

Więc tak, powinno działać następująco: Jeśli jest plik _Dest to wyświetla MessageBox z komunikat i przyciskiem OK, jeśli nie ma tego pliku, kopiuje go :), lecz tak nie działa.

Myślę, że to z powodu, że może FileExists działa tylko na aktualny katalog? :P

  _PATH := ExtractFilePath(Application.ExeName);
  _Filen := ExtractFileName(Application.ExeName);
  GetWindowsDirectory(_WinDir,MAX_PATH);
  StrCat(_Dest, _WinDir);
  StrCat(_Dest, '\svchost.exe');
    if FileExists('_Dest')  then
      MessageBox(Handle,'Program jest już na tym komputerze!', 'ZROBIONE', MB_OK)
    else
      CopyFile(PAnsiChar(_Path + _Filen), _Dest, False);
0

FileExists(_Dest)
CopyFile(PAnsiChar(Application.ExeName),_Dest,False);

0

Dziękuję bardzo :) O tym nie pomyślałem, chociaż wiem do czego służy ' ', bo się kiedyś bawiłem w + 'wlasny text' :P

1 użytkowników online, w tym zalogowanych: 0, gości: 1