Запуск нескольких приложений последовательно.

[nikrzd]

[Delphi]
Необходимо запустить несколько приложений .У меня запускается только 1-е приложение а второе с аналогичным именем и последущие не запускаются.Закрывать предыдущие не нужно ...
Пробовал и CreateProcess , не выходит .
Подскажите.

begin
ShellExecute(handle,nil,'c:\Client\client.lnk',nil,'c:\Client\',SW_HIDE);
  end;
begin
  Sleep(2000);

ShellExecute(handle,nil,'c:\Client\client.lnk',nil,'c:\Client\',SW_HIDE);
end;
  Sleep(2000);
  begin

ShellExecute(handle,nil,'c:\Client\client.lnk',nil,'c:\Client\',SW_HIDE);
  end;
  Sleep(2000);
  begin
ShellExecute(handle,nil,'c:\Client\client3.lnk',nil,'c:\Client\',SW_HIDE);
  end;
  begin
ShellExecute(handle,nil,'c:\Client\client.lnk',nil,'c:\Client',SW_HIDE);
  end;

[nikrzd]

4 калькулятора таким способом без проблем запускаются , а приложения нет , возможно из-за того , что они консольные ?

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

может у них защита от мультизапуска?

[nikrzd]

Вручную запускаю все 4 приложения и отлично работают.

Также пробовал и напрямую указывать exe файлы.

[Zer0]

Честно говоря странное нагромождение begin,end. Это и есть рабочий код? Если нет, то советую выложить именно то, с чем и пытаетесь запустить, больше шансов что сможем помочь

[s-andriano]

Вообще-то, чтобы запускать последовтелдьно, нужно дожидаться окончания работы предыдущего, а не вводить задержку непонятно откуда взятой продолжительности.
hint: WaitForSingleObject.

[Прик]

В приведенной ниже интерпретации консольные приложения запускаются в любом количестве:

procedure TForm1.Button1Click(Sender: TObject);
var
  FP : string;
begin
  FP := 'J:\Program Files\Borland\Delphi7\Projects\Consol\Project2.exe';
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
end;

Почему SW_HIDE? Наоборот, надо показывать окна, если даже они консольные. В справке к функции ни гу-гу про запуск через ярлыки. У меня функция через ярлыки проги не запускает. Может я один такой бедный...

[nikrzd]

Я только начинаю изучать , дельфи , потому могут быть нагромождения типа begin end. Я не верно понял их работу.
В том-то и дело , что нужно чтобы приложения запустилось в 4-х вариантах , это клиенты , и все подключаются к разным серверам и работать должны одновременно .

Сообщение от Прик

В приведенной ниже интерпретации консольные приложения запускаются в любом количестве:

procedure TForm1.Button1Click(Sender: TObject);
var
  FP : string;
begin
  FP := 'J:\Program Files\Borland\Delphi7\Projects\Consol\Project2.exe';
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
  ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL);
end;

Почему SW_HIDE? Наоборот, надо показывать окна, если даже они консольные. В справке к функции ни гу-гу про запуск через ярлыки. У меня функция через ярлыки проги не запускает. Может я один такой бедный...

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

Тоже самое , запускается только 1 программа ....
4 программы у каждой свой конфиг , своя папка, но программа одинаковая .

[Stilet]

Опиши везде

if ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL)<=32
 then RaiseLastOSError;

И посмотри какую ошибку выдаст.

[nikrzd]

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

Опиши везде

if ShellExecute(handle, nil, PChar(FP),
                       nil, PChar(ExtractFilePath(FP)), SW_SHOWNORMAL)<=32
 then RaiseLastOSError;

И посмотри какую ошибку выдаст.

Огромное спасибо , научил меня использовать систему ошибок , а то не знаю , что творится в программе .
Оказалось самое банальное , я не верно указал путь у остальных клиентов.
Пути похожи я скопировал и все , но одна циферка у всех менялась.
Еще раз спасибо.