[PhilB]

Необходимо получить имя диска, с которого запущено приложение.
Информация о полном пути хранится в свойстве Application.ExeName.
Диск, с которого запущено приложение:

Код:

driveName = ExtractFileDrive(Application.ExeName);

В driveName будет имя диска.

[NickDang]

И будет работать не зависимо от того будь это J или D диск?

[PhilB]

Ну разумеется нужно подставить driveName вместо D.

Код:

ShellExecute(Self.Handle,'open',driveName + '\My Files.1.0\Soft\Corel.Painter.X.v10.0.046.Cracked-ARN',nil,nil,SW_SHOWNORMAL);

[NickDang]

итак, ещё раз. Можете объяснить что куда вписывать и как подробнее. извините я в Delphi новичок)

[PhilB]

Ваш код

Код:

ShellExecute(Self.Handle,'open','D:\My Files.1.0\Soft\Corel.Painter.X.v10.0.046.Cracked-ARN',nil,nil,SW_SHOWNORMAL);

следует заменить на

Код:

driveName = ExtractFileDrive(Application.ExeName);
ShellExecute(Self.Handle,'open',driveName + '\My Files.1.0\Soft\Corel.Painter.X.v10.0.046.Cracked-ARN',nil,nil,SW_SHOWNORMAL);

Не забудьте описать переменную driveName как string.

Я вам могу только подсказать идею, я на делфи на писал давно.
Если что не так, думаю, форумчане подправят.
Если снова не понятно, прикрепляйте исходник, будем смотреть дальше.

Skype не пользую.

[NickDang]

Добавляю исходник, извините что ссылка на другой сайт, т. к. исходник выше 650 кб нельзя выложить, а у меня он на 1 мб. наверно из-за картинок.
вот: delphi.zip

[PhilB]

В файле Unit1.pas
procedure TForm1.Button1Click(Sender: TObject); переписана так:

Код:

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

Должно работать, хотя не компилировал - нечем.
Остальные - по аналогии.

[NickDang]

не работает. ошибка при запуске. может есть что то проще? можно ли сделать чтобы при загрузке диск менял букву наприм на K?

[LilLoco]

ошибка при запуске »

Запуск вашей программы? Если да, то как событие нажатия клавиши может на это влиять? Ошибка в чем то другом... Желательно указать ошибку, тут не гадалки.

может есть что то проще? »

загрузке диск менял букву наприм на K? »

И действительно, проще чем получить путь до программы