Здравствуйте, Hemul, Вы писали:
H>Здравствуйте, GhosTer, Вы писали:
GT>>Есть код: 
H>Вроде так 
H>H> OS.Wnd := Handle;
H> OS.wFunc := FO_COPY;
H> Path1 := Application.ExeName;
H> Path2 := 'c:\sclad.exe';
H> OS.pFrom := PChar(Path1);
H> OS.pTo := PChar(Path2);
H> OS.fFlags := FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;
H> OS.lpszProgressTitle := PChar('Copiing ' + Path1 + ' to ' + Path2);
H> ShFileOperation(OS);
H>
Пробовал имя файла не меняется! Точнее копирование не происходит!
