Eine isapi dll für Apache 2.4 soll CMD ausführen

**erich.wanker**

Hi

Rueckgabe ShellExecute:42

Hab ich so ermittelt:

Delphi-Quellcode:

			unit WebModuleUnit1;

interface

uses System.SysUtils, System.Classes, Web.HTTPApp,ShellApi;

type

  TWebModule1 = class(TWebModule)

    procedure WebModule1DefaultHandlerAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure WebModuleCreate(Sender: TObject);

  private

    i:integer;

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  WebModuleClass: TComponentClass = TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

  Response.Content := '<html><body>Rueckgabe ShellExecute:'+inttostr(i)+'</body></html>';

end;

procedure TWebModule1.WebModuleCreate(Sender: TObject);

begin

  i:= ShellExecute(0, nil, Pchar('C:\Server\test.cmd'), nil, nil, 5);

end;

end.

Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

Forumregeln