|
#1
|
|||
|
|||
Копирование файла
Здравствуйте! Вопрос может и туповат и решение простое, но все же я его не нахожу..
Есть функция для определения имени пользователя.. Код:
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; Помогите!! Что я делаю не так? |
#2
|
||||
|
||||
Привести к PWideChar. В делфях выше 2009 достаточно написать PWideChar(<любая_строка>). Работает для String и WideString, не для AnsiString.
jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
Dmitry_DM (04.05.2013)
|
#3
|
|||
|
|||
Цитата:
|