Изменение типа данных pchar

[grom333]

Здравствуйте, я нашел код, который удаляет папку со всем содержимым, он прекрасно работает.

uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
  Fo      : TSHFileOpStruct;
  buffer  : array[0..4096] of char;
  p       : pchar;
begin
  FillChar(Buffer, sizeof(Buffer), #0);
  p := @buffer;
  p := StrECopy(p, 'C:\DownLoad1') + 1;

  FillChar(Fo, sizeof(Fo), #0);
  Fo.Wnd    := Handle;
  Fo.wFunc  := FO_DELETE;
  Fo.pFrom  := @Buffer;
  Fo.fFlags := 0;
  if ((SHFileOperation(Fo) <> 0) or
    (Fo.fAnyOperationsAborted <> false)) then
    ShowMessage('Cancelled')
end;

Проблема возникла в том, что мне нужно вместо C:\Dowload поставить мою переменную(стринговую) path которая хранит путь (Например \\comp15\papka\papka) Т.к. они не совместимы, менял тип данных path на pchar. Но не сохраняется путь тогда. Подскажите как тут поступить? Подсунуть переменную туда?

[Аватар]

s:='бла-бла';
p := StrECopy(p, PChar(s)) + 1;

[grom333]

Сообщение от Аватар

s:='бла-бла';
p := StrECopy(p, PChar(s)) + 1;

Спасибо, Аватар!