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

[cargo29]

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

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


P.S. выше было написано

[Aliens_wolfs]

Должно все показывать)

[Aliens_wolfs]

Попробуй с функцией Человек_Борща
Edit1.Text:=GetWindowsDir + 'proga.exe';
Либо так
Edit1.Text:=Format('%sproga.exe',[GetWindowsDir]);

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

а может такого пути не существует... ?

подозреваю ваше проблема чуть дальше. Вы вообще читали описание CopyFile? Знаете зачем нужен 3-й параметр? Советую ознакомится...

[Aliens_wolfs]

У меня копирует мою прогу под именем Proga.exe в папку Windows
CopyFile(Pchar(Application.ExeName) , PChar(GetWindowsDir + 'Proga.exe'), false);

Либо так под своим же именем
CopyFile(Pchar( Application.ExeName ), PChar( GetWindowsDir + ExtractFileName(application.ExeName ) ), false);

Что бы перезаписывался файл. в CopyFile последний параметр true означает не перезаписывать файл, нужно false

[cargo29]

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

У меня копирует мою прогу под именем Proga.exe в папку Windows
CopyFile(Pchar(Application.ExeName) , PChar(GetWindowsDir + 'Proga.exe'), false);

Либо так под своим же именем
CopyFile(Pchar( Application.ExeName ), PChar( GetWindowsDir + ExtractFileName(application.ExeName ) ), false);

Проблема я понял в чем у него, не перезаписывался файл так как в CopyFile последний параметр true означает не перезаписывать файл

3 парамент я знаю для чего, файла небыло в той директории, и путь такой существует, вопрос был не в копировании а то что выводит не то что должно было вывести...

wi:=win+'\svchost.exe';
Edit2.Text:=wi;

выводит в едит C:\WINDOWS

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

Интересно почему у меня все работает?...

procedure TForm1.sButton1Click(Sender: TObject);
var
   s:string;
begin
  s:=GetWindowsDir+'SmthExe.exe';
  ShowMessage(s);  // показывает C:\WINDOWS\SmthExe.exe
end;

[Aliens_wolfs]

Пробуйте с функцией GetWindowsDir
Все четко показывает

Edit2.Text:=GetWindowsDir + 'svchost.exe';

Если верхнее не получится попробуй так

var
File: String;
begin
File:= 'svchost.exe';
SetLength(Wi, Length(GetWindowsDir)+ Length(File));
wi:= GetWindowsDir + File;
Edit2.Text:=wi;
SetLength(Wi, 0);

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

проблема функции win в том что, там используется строка, и за каки-то хз задаётся её длинна. А ещё эта строка приводится зачем-то к указателю на Char коим строка вообще не является. Отсюда вся кривизна работы. Поэтому проще массив Char. Используте мою функцию и все будет работать.

[cargo29]

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

проблема функции win в том что, там используется строка, и за каки-то хз задаётся её длинна. А ещё эта строка приводится зачем-то к указателю на Char коим строка вообще не является. Отсюда вся кривизна работы. Поэтому проще массив Char. Используте мою функцию и все будет работать.

SetLength выделение под определенное количество символов

а теперь смотрим скрин

GetWindowsDir
под эту функцию он вообще подчеркивает ошибку