Другой способ запуска чужого приложения

Delphi , Программа и Интерфейс , Приложения чужие

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   libc;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   iPrg: Integer;
 begin
   //Execute kcalc - A calculator for KDE 
  iPrg := libc.system('kcalc');
   if iPrg = -1 then
     ShowMessage('Error executing your program');
 end;

Here is a translation of the text into Russian:

Пример программы Delphi, которая запускает другое приложение - калькулятор KDE kcalc. Вот разбивка кода:

• Программа использует юнит libc для доступа к системному команде.
• Процедура Button1Click вызывается, когда пользователь кликнет на кнопке на форме. Эта процедура запускает приложение kcalc с помощью функции system, которая выполняет команду в оболочке.
• Переменная iPrg хранит значение возвращаемое функцией system. Если выполнение программы fails (т.е., возвращает -1), отображается сообщение об ошибке.

Вот некоторые предложения по улучшению кода:

• Вместо использования юнита libc, можно использовать функцию ShellExecute из Windows API для запуска приложения. Это сделает код более платформонезависимым.
• Можно добавить обработку ошибок, чтобы обрабатывать конкретные ошибки, которые могут возникнуть во время выполнения, такие как файл не найден или доступ запрещен.
• Если вы хотите предоставить более дружелюбное пользовательское опыление, можно отобразить сообщение с выводом запущенного программы, а не только сообщение об ошибке.

Вот альтернативное решение с использованием ShellExecute:

uses
  ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('kcalc'), nil, nil, SW_SHOWNORMAL);
end;

Код использует функцию ShellExecute для запуска приложения kcalc с помощью ассоциированного программы по умолчанию. Флаг SW_SHOWNORMAL указывает, что окно должно быть отображено нормально (т.е., не миниaturized или максимизировано).

В статье описывается способ запуска чужого приложения с помощью функции system из библиотеки libc в программировании на Delphi.

Комментарии и вопросы

:: Главная :: Приложения чужие ::