Запуск программ и ссылок
 Добавлено: 31.07.2008 21:09:41
Добавлено: 31.07.2008 21:09:41Как сделать чтобы при нажатии на кнопку запускалось какое-то приложение или вызывалось URL? Интересует решение задачи под Windows.
			форум
http://lazarus.freepascal.ru/forum/
http://lazarus.freepascal.ru/forum/viewtopic.php?f=11&t=3555
 Добавлено: 31.07.2008 21:09:41
Добавлено: 31.07.2008 21:09:41 Добавлено: 31.07.2008 21:41:50
Добавлено: 31.07.2008 21:41:50 Добавлено: 31.07.2008 22:08:37
Добавлено: 31.07.2008 22:08:37Function Run_And_Wait (Const CurDir, Param: AnsiString): Integer;
var
  P: TProcess;
begin
  P := TProcess.Create(Nil);
  assert(p <> Nil);
  try
    P.Options := [poWaitOnExit, poNoConsole];
    P.ShowWindow := swoHIDE;
    P.CommandLine := Param;
    P.CurrentDirectory := CurDir;
    try
      P.Execute;
      Result := P.ExitStatus;
    finally
      FreeAndNil(P);
    end;
  except
    FreeAndNil(P);
  end;
end;
 Добавлено: 01.08.2008 00:44:47
Добавлено: 01.08.2008 00:44:47batment писал(а):Как сделать чтобы при нажатии на кнопку запускалось какое-то приложение или вызывалось URL? Интересует решение задачи под Windows.