|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передать аргументы в строку запуска
Здравствуйте!
Подскажите, пожалуйста, как передать параметры в строку запуска внешнего приложения? Приложил фото. https://ibb.co/HDjcnbG |
#2
|
|||
|
|||
Код:
var cmd : String; begin cmd := format('appname.exe /%s /%s /%s',[edit1.text,edit2.text,edit3.text]); winexec(cmd,SW_SHOW); То? |
#3
|
|||
|
|||
Цитата:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var cmd : String; begin cmd := format('ping.exe /%s /%s /%s',[edit1.text,edit2.text,edit3.text]); winexec(cmd,SW_SHOW); end; end. Последний раз редактировалось cellleexx, 04.03.2021 в 19:25. |
#4
|
|||
|
|||
Ну просто же:
Код:
winexec(PChar(cmd),SW_SHOW); PS. Я так понимаю, это Delphi 7. |
#5
|
|||
|
|||
Цитата:
Просто, когда умеешь). Буду знать куда PChar толкать, спасибо! Да, 7. в профиле указал. В 10 тоже самое, но еще хуже, ввобще не запускается. В 7 аргументы не передаются. -- ShellExecute(cmd,SW_SHOW); ошибка в 10м: Incompatible types: 'HWND' and 'string'() в 7м: Incompatible types: 'String' and 'PShellExecuteInfoA' |