Копирование по заданному пути

[ilbm]

Вообщем вопрос такой:
Как сохранить файл (полный путь известен) в папку Program Files?

[raxp]

ответ такой - savetofile/

[Utkin]

Копируйте нетипизированный файл, либо через поток, либо через ShellExecute. То есть как минимум три варианта .

[FaTaL]

Что значит сохранить то?
Если копировать то CоpyFile или через TFileStream

[ilbm]

Я использую CopyFile
и выходит так
CopyFile('Имя файла','Путь куда копировать',true)
Вот вопрос в том, как найти папку Programms Files и копировать туда.

[Stilet]

Вот вопрос в том, как найти папку Programms Files и копировать туда.

http://www.delphiworld.narod.ru/base/pf_dir_path.html

[ilbm]

Ладно вот конкретнее

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Registry;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private { Private declarations } public { Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}

function GetProgramFilesDir: string;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Win dows\CurrentVersion', False);
Result := reg.ReadString('ProgramFilesDir');
finally
reg.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
copyfile('Project1.exe', GetProgramFilesDir + '\Project1.exe', true); Вот в этой строчке как правильно прописать путь куда сохранять?
end;

end.

[Sibedir]

copyfile('Project1.exe', PChar(GetProgramFilesDir + '\Project1.exe'), true);

[ilbm]

О спасибо, то что нужно