SheLLExecute - не работает!!!

[Вавел из ГМТУ]

Напиши

i := ShellExecute(0, 'open', PChar(Path+'/ter.exe'), nil, PChar(Path), 2);
ShowMessage(IntToStr(i));

Какой код ошибки возвращается?

add: и вобще, в чём проблема поставть бряк на эту строку и поглядеть что передаётся в качестве аргументов????
В аргументах тут бред какойто.

[Stilet]

Какой код ошибки возвращается?

ЛУчше так:

if ShellExecute(form1.handle,'open','D:\Help\api_help.exe','D:\Help\','',SW_HIDE)<=32 then RaiseLastWin32Error;
then caption:='bad';

[Vol666]

Ничего вообще не происходит, я почему так воюю он один раз открыл его, и с тех пор не открывает...

[Stilet]

Vol666

Давай еще раз по порядку.
Код полный в студию.
И подробно о том что ты запускаешь.

[Vol666]

Вот код, написан на таймер (50мс) который после выполнения отключается:

if radiobutton1.Checked=true then
begin
Dir:=extractfilepath(ParamStr(0));
ShellExecute(Handle, nil, 'C:\Program Files\ter.exe', nil, nil, SW_ShowMinimized);
end;

В Uses прописан ShellAPI, в Var Dir: string;

Вот и весь код непосредственно, ShellExecute я переписывал команду много раз отсановился на этой...

Я уж даже и не знаю, может уже createprocess попробовать, WinExec не работает вообще, ShellExecute ничего не происходит...

наткнулся на похожий пост на форуме http://programmersforum.ru/showthread.php?t=49770
тоже никаких решений нет....

[JTG]

ShellExecute(form1.handle,'open','D :\Help\api_help.exe','D:\Help\','', SW_HIDE)
один раз открыл его, и с тех пор не открывает

А этот api_help.exe позволяет запуск нескольких копий себя?

[Stilet]

ShellExecute(Handle, nil, 'C:\Program Files\ter.exe',

Э-э-э типа:

ShellExecute(Handle,'open', 'C:\Program Files\ter.exe',

нужно, а не nil вроде...

Vol666

CreateProcess пробуй. Предварительно проверив мнение JTG

[Vol666]

нет две копии не позволяет, но я слежу перед тем как запускать я проверяю открыта она или нет...

[QUOTE=Stilet;350551]Э-э-э типа:

ShellExecute(Handle,'open', 'C:\Program Files\ter.exe',

нужно, а не nil вроде...

если ставить нил на том месте то инициализируется стандартная функция open


Открыл он его один раз за всю эту неделю...

[Пепел Феникса]

if radiobutton1.Checked=true then
begin
Dir:=extractfilepath(ParamStr(0));
ShellExecute(Handle, nil, 'C:\Program Files\ter.exe', nil, nil, SW_ShowMinimized);
end;

а радиобаттон то чекнут?
ибо у меня всегда все четко работало.

[Vol666]

да чекнут, настройки сохранены, всё работает чётко, кроме Шела