ShellExecute - запускаемое приложение закрывается (

[fezilk25]

Добрый день!
Снова нужна помощь профессионалов.

Пытаюсь программно запустить приложение.

path := 'C:\samp\test\server1\samp-server.exe';
cod := WinExec(PAnsiChar(path), SW_ShowNormal);
cod := ShellExecute(0,'open',PChar(path),0,0,SW_ShowNormal);

В обоих случаях приложение запускается, но тут же закрывается.
При чём если запускать его вручную (двойным щелчком всмысле), оно работает нормально.

Помогите, пожалуйста, не могу понять, почему так происходит.

PS. Приложение - сервер sa-mp (gta sa), скачать приложение.

[ArtGrek]

вместо первого 0 должен быть хандел проги из которои запускаеш,
а ноль ето десктоп кажеца, поеетому наверно и ишезает
в общем вставь туда Handel

ShellExecute(Handle, 'open', path, nil, nil, SW_SHOWNORMAL) ;

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

телепатор мне подсказывает что дело в текущей директории.

cod := ShellExecute(0,'open',PChar(path),0,PChar(ExtractFilePath(path),SW_ShowNormal);

попробуй так.

или можешь сначало проверить это:
для проверки создай bat-ник(неважно где, но не в папке с сервером!)

@C:\samp\test\server1\samp-server.exe
@pause

запусти, и если я прав, то в консоли должно будет остаться сообщение об ошибке(или же просто сразу пойдет pause, то есть в консоли будет "Для продолжения нажмите любую клавишу . . .")

вместо первого 0 должен быть хандел проги из которои запускаеш

это с какой такой радости должен?(да и вообще то хендл окна а не процесса)

Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.

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

Есть ещё CreateProcess

[fezilk25]

ArtGrek, всё равно исчезает.

cod:=ShellExecute(Handle,'open',PChar(path),0,0,SW_ShowNormal);

Человек_Борща, пробовал =)
Пепел Феникса, огромное спасибо! Получилось, действительно, всё было из-за текущей директории .

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

Есть ещё CreateProcess

обычно он нужен для точных настроек запуска приложения, а не для обычного запуска.

[ArtGrek]

это с какой такой радости должен?(да и вообще то хендл окна а не процесса)

не так выразился
без проблем всегда так запускал

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', '...\myExe.exe', nil, nil, SW_SHOWNORMAL) ;
end;

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

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

[_Engine_]

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

Добрый день!
Снова нужна помощь профессионалов.

Пытаюсь программно запустить приложение.

В обоих случаях приложение запускается, но тут же закрывается.
При чём если запускать его вручную (двойным щелчком всмысле), оно работает нормально.

Оффтопик:
А для чего нужна программа запускающая другую программу, которую двумя кликами левой кнопки мыши надо запускать, чтобы не делать два клика на другой?

[tsar_]

А если вместо флага SW_SHOWNORMAL попробовать SW_RESTORE?