Не копируеться файл

[cargo29]

Причину ошибки не могу найти

функция определения папки виндовс

PHP код:

function win():string;
var a:string;
begin
SetLength(a, 255);
GetWindowsDirectory(PChar(a), 255);
Result:=a;
end; 


wi:=win()+\'proga.exe';

PHP код:

CopyFile(Pchar(Application.ExeName), PChar(wi), true); 


так не работает а когда так работает почему????

PHP код:

CopyFile(Pchar(Application.ExeName), PChar('C:\windows\proga.exe'), true); 


[grafgrial]

wi:=win+\'proga.exe';

так посмотри

[cargo29]

Сообщение от grafgrial

wi:=win+\'proga.exe';

так посмотри

так же все... (((

[cargo29]

Вот вывожу путь в едит
Edit1.Text:=win+'\proga.exe';

пишет в нем C:\WINDOWS почему так, первый раз с таким сталкиваюсь

[grafgrial]

ну так тогда
Edit1.Text:=pchar(win)+'\proga.exe' ;

[Aliens_wolfs]

Так должно получится

CopyFile(Pchar(Application.ExeName), PChar(win+'\proga.exe'), true);

либо так

CopyFile(Pchar(Application.ExeName), PChar(win+'\'+ExtractFileName(application.ExeName)), true);

[Человек_Борща]

Все дело в функции Win которую вы откопали на просторах интернета.

Попробуйте мою..она куда проще.

function GetWindowsDir:string;
var
  WinPath:array[1..255] of Char;
begin
  GetWindowsDirectory(@WinPath,SizeOf(WinPath));
  Result:=IncludeTrailingPathDelimiter(StrPas(@WinPath));
end;

Функция возвращает строку: c:\windows\

по этому везде можно смело юзать GetWindowsDir+'Proga.exe' получится c:\windows\proga.exe

[cargo29]

Сообщение от Человек_Борща

Все дело в функции Win которую вы откопали на просторах интернета.

Попробуйте мою..она куда проще.

function GetWindowsDir:string;
var
  WinPath:array[1..255] of Char;
begin
  GetWindowsDirectory(@WinPath,SizeOf(WinPath));
  Result:=IncludeTrailingPathDelimiter(StrPas(@WinPath));
end;

Функция возвращает строку: c:\windows\

по этому везде можно смело юзать GetWindowsDir+'Proga.exe' получится c:\windows\proga.exe

моя тоже эту строку возвращает, дело в том что я хочу добавить, недобовляеться, а взял ее из книги Руководство разработчика

[Человек_Борща]

А вы умеете по русски разговаривать? Что у вас там не добовляется?

[Aliens_wolfs]

Так тоже не получится?
Код:

CopyFile(Pchar(Application.ExeName) , PChar(win+'\proga.exe'), true);

либо так
Код:

CopyFile(Pchar(Application.ExeName) , PChar(win+'\'+ExtractFileName(appli cation.ExeName)), true);