запуск установки

[Noble23]

Здравствуйте подскажите пожалуйста , у меня такая проблема мне надо что бы на кнопку в дэлфи у меня запускался фаил из папки с программой ?! подскажите как так можно зделать что бы без пути . мне надо прописывать путь откуда будет запускаться фаил а если на другом компьютере диск другой то тот же путь не подойдёт и фаил не запуститься подскажите как сделать что бы запускался фаил из папки с программой без указания диска и т.д

[Человек_Борща]

подскажите как сделать что бы запускался фаил из папки с программой без указания диска и т.д

Это невозможно.

[BDA]

ExtractFilePath(paramstr(0)) + 'program.exe'

[Noble23]

что то не получаеться выдаёт ошибку типо ожидалась переменная

[BDA]

ShellExecute(Form1.Handle, nil, PChar (ExtractFilePath(paramstr(0)) + 'program.exe'), nil, nil, SW_RESTORE);

[Noble23]

спасибо всё получилось

[саша40]

Вот так:

Uses ShellApi;

begin
...
ShellExecute(Handle,'open', PChar(ExtractFilePath(Application.ExeName) + 'File.txt'),nil,nil,0);
end;

Файл откроется приложением по умолчанию.

[alextrof94]

А еще, если не прописывать путь с начала "диск:\", то дельфя подставляет относительный путь из папки с программой. Т.е. Если у нас программа в "C:\111\" и мы попробуем запустить файл (описанным выше методом)

ShellExecute(Handle,'open', PChar('File.txt'),nil,nil,0);

То запустится файл "C:\111\File.txt".

[Serge_Bliznykov]

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

А еще, если не прописывать путь с начала "диск:\", то дельфя подставляет относительный путь из папки с программой.

А вот тут Вы серьёзно заблуждаетесь! и других "заблудить" пытаетесь.

если не указывать путь, то система подставит ТЕКУЩУЮ папку, а она может быть папкой программы, а может и не быть.

[саша40]

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

А вот тут Вы серьёзно заблуждаетесь! и других "заблудить" пытаетесь.

если не указывать путь, то система подставит ТЕКУЩУЮ папку, а она может быть папкой программы, а может и не быть.

А это ваще будет папка? А то мне кажется, что это C:\Windows\