Всем здравствуйте! Как реализовать чтобы определённый файл открывался сразу?

[Аватар]

Откуда я знаю чем и как вы открываете. Полный путь к файлу получили в DirName вот и используйте его как параметр в методе или функции открытия файла. В OnCreate формы. Или OnShow. Или по кнопке, вам решать

[Streletz]

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

Хм,
GetDir(0, DirName);
DirName:=DirName+'\тут путь Презентация.ppt';
ShowMessage(DirName);
if DirName(Здесь ошибку даёт, какую функцию надо вписать?) then
ShellExecute(Hinstance, 'open', PChar(DirName) , nil, nil, SW_SHOWMAXIMIZED);
Только ошибку даёт.

Ничего удивительного. В условном операторе можно использовать либо переменные типа boolean либо функции или выражения, которые возвращают этот тип. Переменная DirName имеет тип string. Именно в ней находится путь к папке.
Кроме того, Вы не правильно передаёте дескриптор (THandle) в ShellExecute. Подробнее можно прочитать здесь: Запуск приложений из Delphi.
Исправленный вариант:

GetDir(0, DirName);
DirName:=DirName+'\Презентация.ppt';
ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, SW_SHOWMAXIMIZED);

[Argontarg]

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

Ничего удивительного. В условном операторе можно использовать либо переменные типа boolean либо функции или выражения, которые возвращают этот тип. Переменная DirName имеет тип string. Именно в ней находится путь к папке.
Кроме того, Вы не правильно передаёте дескриптор (THandle) в ShellExecute. Подробнее можно прочитать здесь: Запуск приложений из Delphi.
Исправленный вариант:

GetDir(0, DirName);
DirName:=DirName+'\Презентация.ppt';
ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, W_SHOWMAXIMIZED);

Перед: ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, W_SHOWMAXIMIZED); выдаёт ошибку, хм странно.

[ZuBy]

GetDir(0, DirName);
ShellExecute(Self.Handle, 'open', PChar(DirName+'\Презентация.ppt') , nil, nil, W_SHOWMAXIMIZED);

а что ExtractFilePath(ParamStr(0)) запретили использовать?

[Streletz]

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

Перед: ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, W_SHOWMAXIMIZED); выдаёт ошибку, хм странно.

Что, за ошибка? Если компилятор ругается на W_SHOWMAXIMIZED, исправьте на SW_SHOWMAXIMIZED. Простите, после практически 2х суток непрерывной работы, начинаю тормозить.
Вот этот вариант, только что сам проверил, на 100% рабочий.

GetDir(0, DirName);
DirName:=DirName+'\Презентация.ppt';
ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, SW_SHOWMAXIMIZED);

Простите, я не хочу Вас обидеть, но ИМХО Вам определённо не достаёт внимательности. У Вас прямо перед глазами была столь очевидная ошибка, а Вы её не заметили. Впредь, пожалуйста, будьте внимательнее.
Если проблема в другом, ошибку в студию.

[Argontarg]

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

Что, за ошибка? Если компилятор ругается на W_SHOWMAXIMIZED, исправьте на SW_SHOWMAXIMIZED. Простите, после практически 2х суток непрерывной работы, начинаю тормозить.
Вот этот вариант, только что сам проверил, на 100% рабочий.

GetDir(0, DirName);
DirName:=DirName+'\Презентация.ppt';
ShellExecute(Self.Handle, 'open', PChar(DirName) , nil, nil, SW_SHOWMAXIMIZED);

Простите, я не хочу Вас обидеть, но ИМХО Вам определённо не достаёт внимательности. У Вас прямо перед глазами была столь очевидная ошибка, а Вы её не заметили. Впредь, пожалуйста, будьте внимательнее.
Если проблема в другом, ошибку в студию.

Всё спасибо работает!!!!!!!! Огромное спасибо!

[Streletz]

Пожалуйста!!!