Delphi - [решено] WPI

[LilLoco]

Ладно, пробую ещё раз. Захожу в 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.

Всем спасибо!