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);