ошибка в копировании файла на рабочий стол.

[katttes]

Мне нужно скопировать файл на рабочий стол. Я делаю это так:
dirKTexe:= 'ALLUSERSPROFILE\Рабочий стол\testing.exe';
CopyFile(PAnsiChar(dirIsTexe),PAnsi Char(dirKTexe),false);
файл на рабочем столе не появляется.
Подскажите пожалуйста, что не так?

[bitSoft]

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

Мне нужно скопировать файл на рабочий стол. Я делаю это так:
dirKTexe:= 'ALLUSERSPROFILE\Рабочий стол\testing.exe';
CopyFile(PAnsiChar(dirIsTexe),PAnsi Char(dirKTexe),false);
файл на рабочем столе не появляется.
Подскажите пожалуйста, что не так?

nu ti zdesy vstavil kapiravati iz rabochii stol v rabochii stol,

dirKTexe:= 'ALLUSERSPROFILE\Рабочий стол\testing.exe';
CopyFile(PAnsiChar('testing.exe'),PAnsiChar(dirKTexe),false);

[katttes]

нет. это копировать из одной дирректории в другую. они разные.
dirIsTexe:= GetCurrentDir+'\system\testing.exe' ;
dirKTexe:= 'ALLUSERSPROFILE\Ðàáî÷èé ñòîë\testing.exe';
CopyFile(PAnsiChar(dirIsTexe),PAnsi Char(dirKTexe),false);

[Marsel737]

Вот мой путь к рабочему столу: C:\Users\Марсель\Desktop\, а это у вас 'ALLUSERSPROFILE\Рабочий стол\testing.exe'; ерунда какая-то

Сделайте вот такую прогу и сохраните её на рабочем столе:

ShowMessage(ExtractFilePath(Application.ExeName));
  Edit1.Text := ExtractFilePath(Application.ExeName); // Можно путь в эдит записать, чтоб удобно было копировать

Узнаете путь к своему раб. столу

[Kotofff]

Все должно выглядеть профессионально !!!

Есть функция GetSpecialPath (100 раз о ней было) : http://programmersforum.ru/showpost....91&postcount=3
А к ней конечно же есть аргументы : http://programmersforum.ru/showpost....71&postcount=2

Надеюсь вам не надо выделять цветом, например, нужный вам параметр ?!?!
При таком подходе вам не нужно заботиться ни о чем - путь будет однозначно найден !!!

[katttes]

с такой функцией у меня ничего хорошего не выходит! SHGetSpecialFolderPath - не известный идентификатор. я так и не смогла понять как она работает.

я попробовала задать дирректорию через реестр:

dirKTexe:= 'HKEY_CURRENT_USER\Software\Microso ft\Windows\CurrentVersion\Explorer\ Shell Folders\Desktop\testing.exe';
но тоже бесполезно. Может пишу что то не правильно?

[MaxNik2009]

Что же не понятного Kotofff уже все ссылки выложил надо только собрать..
кинь на форму Label и кнопку, и в обработчик кнопки напиши следующие:

procedure TForm1.Button1Click(Sender: TObject);
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL_DESKTOP, true) then s := '';

  Label1.Caption:=s;

end;

[katttes]

я сделала как ты написал и вот что мне выдало:
[Error] Unit1.pas(31): Undeclared identifier: 'SHGetSpecialFolderPath'
[Error] Unit1.pas(31): Undeclared identifier: 'CSIDL_DESKTOP'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Может какую то бибилиотеку присоединить надо?

[MaxNik2009]

Может какую то бибилиотеку присоединить надо?

Да нужно

uses ShlObj

[Stilet]

katttes

uses shlobj
Тогда эти функции сработают.