Копирование в каталог windows

[Черничный]

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
Windir: string;
WindirP: PChar;
Res: Cardinal;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);

CopyFile(PansiChar(Application.ExeName), PansiChar(windir + '\' + Application.ExeName), true);
end;

Но почему то не копируется. WinDir получает строку: 'C:\windows' в моем компе... Почему не копируется?

[Terran]

Нужно сделать так:

CopyFile(PansiChar(Application.ExeName), PansiChar(windir + '\' + SysUtils.ExtractFileName(ParamStr(0))), true);

А когда вы используете Application.ExeName - это путь к файлу, тобиш в ту директорию где он находится.

[Черничный]

спасиба, догнал!