Копирование программы.

[Rahim1993]

Как сделать так, чтобы моя программа при запуске автоматически копировалась в папку Windows?

CopyFile()
И вовсе не обязательно писать столько знаков вопроса.

[Квэнди]

Нажимаем F1 , ищем там copyfile и что же мы видим ?
CopyFile

The CopyFile function copies an existing file to a new file.

The CopyFileEx function provides two additional capabilities. CopyFileEx can call a specified callback function each time a portion of the copy operation is completed, and CopyFileEx can be canceled during the copy operation.


BOOL CopyFile(
LPCTSTR lpExistingFileName,
LPCTSTR lpNewFileName,
BOOL bFailIfExists
);

Parameters
lpExistingFileName
[in] Pointer to a null-terminated string that specifies the name of an existing file.
In the ANSI version of this function, the name is limited to MAX_PATH characters. To extend this limit to 32,767 wide characters, call the Unicode version of the function and prepend "\\?\" to the path. For more information, see Naming a File.

Windows Me/98/95: This string must not exceed MAX_PATH characters.
If lpExistingFileName does not exist, CopyFile fails, and GetLastError returns ERROR_FILE_NOT_FOUND.

lpNewFileName
[in] Pointer to a null-terminated string that specifies the name of the new file.
In the ANSI version of this function, the name is limited to MAX_PATH characters. To extend this limit to 32,767 wide characters, call the Unicode version of the function and prepend "\\?\" to the path. For more information, see Naming a File.

Windows Me/98/95: This string must not exceed MAX_PATH characters.
bFailIfExists
[in] If this parameter is TRUE and the new file specified by lpNewFileName already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.
Return Value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

А если обощить:
Copyfile (что,куда, перезаписывать ?);

[Terran]

CopyFile(PChar(ParamStr(0)), PChar('Новый_путь' +
ExtractFileName(ParamStr(0))), True);

[mihali4]

Это совсем "небольно" :

procedure TForm1.FormCreate(Sender: TObject);
var windir: Array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(windir, sizeof(windir));
CopyFile(PChar(Application.ExeName),
PChar(StrPas(windir)+'\'+ExtractFileName(Application.ExeName)), true);
end;

[Rahim1993]

Terran, Mihali4, большое вам спасибо!