|
Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
454 Beiträge
Delphi XE4 Professional
|
AW: Eine isapi dll für Apache 2.4 soll CMD ausführen
22. Mär 2021, 10:52
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.
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \
|
|
|
Zitat
|