Запуск стороннего приложения

[PTyTb32]

привет, пытаюсь программно запустить другую программу и в принципе она запускается, но не может подключиться к серверу, если запустить вручную, то подключается без проблем. пробовал через ExecuteProcess, CreateProcess, ShellExecute итог один, думаю уже перехватить курсор и им тыкать на ярлык программы... подскажите может как то по особенному нужно ее запускать?

P.S. перевести курсор и сымитировать нажатие мыши помогло, но это ведь не единственный способ?

[Аватар]

Вангую, что рабочий каталог запускаемой проги используется, а он разный при разных способах запуска

[PTyTb32]

я пробовал передать рабочую директорию, это тоже не помогало

[Аватар]

А другая прога черный ящик или код есть?

[PTyTb32]

какая прога черный ящик? и код чего? того как пытался запустить?

Edit2.Text = 'S:\Simple-Scada 2 (time-demo)\Server.exe'
так пробовал

ShellExecute(Handle, 'open', PWideChar(edit2.Text), '', PWideChar('S:\Simple-Scada 2 (time-demo)'), SW_SHOWNORMAL);

и вот так

function RunAsAdmin(HWND: hWnd; lpFile,lpParameters: String): Boolean;
var
 sei: SHELLEXECUTEINFO;
begin
  try
    ZeroMemory ( @sei, SizeOf(sei) );

    sei.cbSize := SizeOf(SHELLEXECUTEINFOW);
    sei.Wnd := hWnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := 'runas';
    sei.lpFile := PWideChar(IncludeTrailingPathDelimiter(lpFile));
    sei.lpParameters := PWideChar(lpParameters);
    sei.nShow := SW_SHOWNA;

    if ( not ShellExecuteEx ( @sei ) ) then begin
      //ShowMessage( 'Error: ShellExecuteEx failed ' + IntToStr(GetLastError) );
      Result := False;
      Exit;
    end;
    Result := True;
  except
    else Result := False;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 RunAsAdmin(0,edit2.Text,'');
end;

и еще несколько способов

[evg_m]

1. поставить (перенести) прогу в папку( чтобы путь к ней ) НЕ ИМЕЛ пробелов.
2. сделать экранировку

Edit2.Text = '"S:\Simple-Scada 2 (time-demo)\Server.exe"'

для работы "командной строки" (а запуск в конечном итоге придет туда)
1. файловое имя запускаемой программы(любое, в т.ч. и рабочей папки) не должно содержать пробелов.
2. ЕСЛИ без них не обойтись, это имя должно быть заключено в кавычки.

[PTyTb32]

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

1. поставить (перенести) прогу в папку( чтобы путь к ней ) НЕ ИМЕЛ пробелов.

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