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

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

правильно потму что эту функция я показал тебе несколькими постами ранее..

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

А вы вообще вкурсе что такое string и что такое PChar?

Советую почитать вот этот материал:
http://www.transl-gunsmoker.ru/2009/09/pchars.html

[Aliens_wolfs]

Только что это хотел сказать насчет добавления этой функции GetWindowsDir в проект)))

[cargo29]

Читал и знаю... а теперь ты мне обьясни как ты понимаешь функцию SetLength()

[Aliens_wolfs]

SetLength выделяет размер строковому параметру память на низком уровне, а для Pchar нужно выделять память верхнего уровня, а
WinPath: array[1..255] of Char - статическая переменная низкого уровня поэтому параметру string передается без потери

[cargo29]

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

SetLength выделяет размер строковому параметру память на низком уровне, а для Pchar нужно выделять память верхнего уровня, а
array[1..255] of Char - статическая переменная низкого уровня

ТОгда получаеться что в книге не правильно написано? Очень интересно... она выделяет память под сиволы, и она выводила правильный путь .... почему же когда она вывела путь она не даписывала? +'ЧуШЬ'

[cargo29]

я до этого всегда так пользовался и всегда работало нормально а тут вошло в ступор

[Aliens_wolfs]

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

wi это что за параметр и где он описывается?

[cargo29]

Вот работает так а почему не работало ... Char может принимать только 255 символов

поэтому я и указывал 255

function wins: string;
var a:string; 
begin
SetLength(a, 255);
GetWindowsDirectory(Pchar(a), MAX_PATH);
Result:=a+'dsadsada';
end;

[cargo29]

там глобальная переменная типа string

[Aliens_wolfs]

ТОгда получаеться что в книге не правильно написано? Очень интересно... она выделяет память под сиволы, и она выводила правильный путь .... почему же когда она вывела путь она не даписывала? +'ЧуШЬ'

+'ЧуШ она дописывает но после символа #0 все что после этого сивола в строковых параметрах неотображается но память останится 255 тот который задали

И возможно путь у вас и отобразился с этим #0 символом на конце и после него Edit2 и неотобразил дальнейшую информацию,
строка получилась так: C:\Windows#0\svchost.exe все что за символом #0 неотобразилось в вашем Edit2

Вообще я сам стараюсь обходиться без статических размеров, переход за границы статического размера будет выдавать ошибку либо дописываться #0 на конце если размер больше строки, тогда дольнейшая информация неотобразиться. Нужно отсекать лишнее задавать дважды размер первый большой, второй по строке,
как показано в нижнем примере.


Можно сделать проще передача строки сразу без переменных, кто запрашивает тот и переменная

 function win():string;
begin
//Задаем большой размер
 SetLength(result, $FFFF);
//Затем из этого размера делаем размер который извлекается из GetWindowsDirectory, тогда размер становится нужным по извлеченной строке
 SetLength(result, GetWindowsDirectory(PChar(result), $FFFF));
end;

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