[Dmitry_DM]

Здравствуйте! Вопрос может и туповат и решение простое, но все же я его не нахожу..
Есть функция для определения имени пользователя..

Код:

function GetComputerNetName: String;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

Потом я хочу скопировать файл..

Код:

procedure TMailerForm.FormCreate(Sender: TObject);
begin
  AttachmentDialog.FileName:='C:\Users\'+GetComputerNetName+'\AppData\Roaming\Test\test.txt';
  ledAttachment.Text:= 'C:\Users\'+GetComputerNetName+'\AppData\Roaming\Test\test.txt';
  CopyFile('C:\Users\'+GetComputerNetName+'\AppData\Roaming\Test\test.txt', 'C:\Windows\test.txt', true);
end;

А оно мне на строку копирования дает ошибку: "Несовместимые типы PWideChar и string"
Помогите!! Что я делаю не так?

[Bargest]

Привести к PWideChar. В делфях выше 2009 достаточно написать PWideChar(<любая_строка>). Работает для String и WideString, не для AnsiString.

[Dmitry_DM]

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

Привести к PWideChar. В делфях выше 2009 достаточно написать PWideChar(<любая_строка>). Работает для String и WideString, не для AnsiString.

Спасибо большое!! Помогло!