[NickDang]

Ладно, пробую ещё раз. Захожу в Unit1.pas. меняю

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Self.Handle,'open','D:\',nil,nil,SW_SHOWNORMAL);

end;

на

procedure TForm1.Button1Click(Sender: TObject);
var driveName:string;
begin
driveName := ExtractFileDrive(Application.ExeName);
ShellExecute(Self.Handle,'open',driveName + '\',nil,nil,SW_SHOWNORMAL);
end;

закрываю, сохраняю. Теперь запускаю Project2.dpr. Нажимаю выполнить (f9). Что произошло, смотрим на рисунке "Безымянный".

[LilLoco]

Точно не помню, но попробуйте так :

Код:

var driveName:string;
 begin
 driveName := ExtractFileDrive(Application.ExeName);
 ShellExecute(Self.Handle,'open',PChar(driveName + '\'),nil,nil,SW_SHOWNORMAL);
 end;

[NickDang]

Во, запустилось, только открыло диск C:\

[LilLoco]

NickDang, Если у вас программа находится на диске C:\, то все правильно открылось...

Application.Exename - возвращает полный путь к приложению
ExtractFileDrive - извлекает диск из пути
Поэтому получается в driveName = C:\...

[NickDang]

значит если прога находиться на D:\My Files.1.0\Soft\Corel.Painter.X.v10.0.046.Cracked-ARN
тогда мне нужно тут после \ добавить путь:

var driveName:string;
begin
driveName := ExtractFileDrive(Application.ExeName);
ShellExecute(Self.Handle,'open',PChar(driveName + '\My Files.1.0\Soft\Corel.Painter.X.v10.0.046.Cracked-ARN'),nil,nil,SW_SHOWNORMAL);
end;
так?

[LilLoco]

Да, именно так

[NickDang]

о всё отлично) была ещё проблема в том что проект делфи лежал на С, а файлы на D.
Всем спасибо!