デルファイアプリケーションを使用してパラメータを渡して外部アプリケーションを開きます

Question

実際に私はカスタムアプリケーションを1つ持っていて、そのexeファイルにいくつかの値を渡したいと思っています。自動的にファイルが生成されるはずです。

unit fExecuteExe; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ShellApi; 

type 
    TForm1 = class(TForm) 
    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 
    filename: String; 
begin 
    filename := 'C:\Testsrc\MojaveD5\Tools\AliasToDataview\Alias2DV.exe'; 
    ShellExecute(handle,'open',PChar(filename), '','',SW_SHOWNORMAL); 
end; 

end. 

Delphiのフォーム

object Form1: TForm1 
    Left = 179 
    Top = 116 
    Width = 495 
    Height = 294 
    Caption = 'Form1' 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    OldCreateOrder = False 
    PixelsPerInch = 96 
    TextHeight = 13 
    object Button1: TButton 
    Left = 176 
    Top = 96 
    Width = 113 
    Height = 25 
    Caption = 'Run Alias2Dataview' 
    TabOrder = 0 
    OnClick = Button1Click 
    end 
end 

私は、このアプリケーションを開きます（画像は下記に提供される）と、そのテキストボックスにいくつかの値を渡すと、それのボタンをクリックすることができる方法はありますか？

このアプリケーションはコマンドラインをサポートしていません。残念ながら私はそれがコードではなく.exeでしかありません。

Answer 1

Firs of allは、結果を知らないので、ShellExecuteを使用しません。

// Runs application and returns PID. 0 if failed. 
function RunApplication(const AExecutableFile, AParameters: string; 
    const AShowOption: Integer = SW_SHOWNORMAL): Integer; 
var 
    _SEInfo: TShellExecuteInfo; 
begin 
    Result := 0; 
    if not FileExists(AExecutableFile) then 
    Exit; 

    FillChar(_SEInfo, SizeOf(_SEInfo), 0); 
    _SEInfo.cbSize := SizeOf(TShellExecuteInfo); 
    _SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS; 
    // _SEInfo.Wnd := Application.Handle; 
    _SEInfo.lpFile := PChar(AExecutableFile); 
    _SEInfo.lpParameters := PChar(AParameters); 
    _SEInfo.nShow := AShowOption; 
    if ShellExecuteEx(@_SEInfo) then 
    begin 
    WaitForInputIdle(_SEInfo.hProcess, 3000); 
    Result := GetProcessID(_SEInfo.hProcess); 
    end; 
end; 

アプリケーションでコマンドラインパラメータがサポートされていない場合は、必要なものを自動化できます。

例：アプリケーションを実行するには、そのウィンドウが表示されるまで待ちます。次に、子ウィンドウを列挙し、ハンドルがあれば、テキストの設定、ボタンのクリックなどを行うことができます。