Права к файлам

[zdus2757]

так он не копирует файл, файл не появляется в папке

--
CopyFile(PWideChar(s3), PWideChar('C:\ss.txt'), true); так не копирует

CopyFile(PWideChar(s3), 'C:\ss.txt', true); и так не копирует

var s3:PWideChar;
s3:='...' + Пользователь + '...';
CopyFile(s3, 'C:\ss.txt', true); а так вообще ошибку пишет(не компилирует)

т.е. посути если писать полностью путь (без имени пользователя которое нашла программа) все нормально работает

[maloun]

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

так он не копирует файл, файл не появляется в папке

значит не верную строку отправляешь, для нормальной работы нужно чтобы все строки были нормальными PWideChar'ами,

т.е. если переводить константные строки

  CopyFile( PWideChar('C:\test\старый_файл.txt'),  PWideChar('C:\test\новый_файл.txt'), true);

- будет работать (если конечно копируемый файл существует)

если переменную String переведешь в PWideChar

var
  s1,s2:String;
begin
  s1:='C:\test\старый_файл.txt';
  s2:='C:\test\новый_файл.txt';

  CopyFile(PWideChar(s1),PWideChar(s2),True);
end;

[zdus2757]

CopyFile(PWideChar('C:\Users\' + GetCurrentUserName + '\AppData\.....'), PWideChar('C:\ss.txt'), true); вот так не работает

CopyFile(PWideChar('C:\Users\Пользо ватель\AppData\.....'), PWideChar('C:\ss.txt'), true); вот так работает, т.е. мне как-то надо сделать чтоб имя пользователя тоже было PwideChar, сейчас попробую..

ну вот... получилось, спасибо
отдельно надо GetCurrentUserName сделать PWideChar(GetCurrentUserName)

[maloun]

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

CopyFile(PWideChar('C:\Users\' + GetCurrentUserName + '\AppData\.....'), PWideChar('C:\ss.txt'), true); вот так не работает

var
  UserName:String;
begin
  UserName:='C:\Users\' + GetCurrentUserName + '\AppData\.....';
  CopyFile(PWideChar(UserName), PWideChar('C:\ss.txt'), true);
end;

[zdus2757]

так пробовал, не получилось, надо именно GetCurrentUserName отдельно делать, ну и потом еще раз все вместе тож