помогите пожалуйста!!!

[PAVEL315]

Как можно после выполнения операции Button1.Click открыть файл с расширением .exe

[zetrix]

ShellExecute(Handle,nil,PChar(PATH) ,nil,nil,SW_SHOW); //где PATН - строка, содержащая путь к файлу
или сразу:
ShellExecute(Handle,nil,'C:\Primer. exe',nil,nil,SW_SHOW);

[PAVEL315]

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

ShellExecute(Handle,nil,PChar(PATH) ,nil,nil,SW_SHOW); //где PATН - строка, содержащая путь к файлу
или сразу:
ShellExecute(Handle,nil,'C:\Primer. exe',nil,nil,SW_SHOW);

Но тогда как сделать так, что бы он искал этот файл в том же каталоге, что и программа???

[Alar]

пользуйтесь поиском.

например через поис можно найти это - ShellExecuteA(0, 'Open',pchar( ExtractFilePath(application.exename )+'itog.swf'),n il,nil,1);

[PAVEL315]

Компилятор не может найти идентификатор ShellExecute, что делать???

[Alar]

AAA! в навигации есть поиск. неужели туда трудно заглянуть????

http://www.programmersforum.ru/showt...t=ShellExecute

[selenux]

ShellExecute описана в модуле ShellApi.

uses ShellApi;

[mihali4]

но тогда как сделать так, что бы он искал этот файл в том же каталоге, что и программа???

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

[zetrix]

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

Если используется хоть 1 диалог (сохранение /открытие) то это не прокатит, т.к. если не указывать диск и каталог, то программа будет искать файл в рабочей директории, а если, например, ты загрузил, допустим, картинку через OpenDialog из папки "Мои документы", то при использовании твоего метода, файл будет искаться не в каталоге с программой, а в папке "Мои документы".

P.S.: в принципе твой метод правильный, но пользователь может сделать такое, что тебе и в голову не придёт, поэтому надо всё предусмотреть. (я сам на этом попадался, конкретно с открытием файла, а потом ломал голову: где ошибка?? )

ShellExecute(Handle, nil, pchar(ExtractFilePath (application.exename)+'Primer.exe') , nil, nil, 1);

[mihali4]

"ShellExecute(Handle, nil, pchar(ExtractFilePath (application.exename)+'Primer.exe') , nil, nil, 1);"

В принципе, я именно это и хотел сказать, только было уже очень поздно...