Hallo zusammen,
Ich habe einen kleinen Dienst unter delphi .net erstellt welches
ein delphi win32 programm starten.
Das win32-programm funktioniert auch ohne problem wenn es eigenständig gestartet wird.
Wird das win32-Programm allerdings über den service gestarten wird
die onCreate funktion nicht ausgeführt.
Für den Aufruf im Service Programm habe ich folgenden code benutzt:
procedure TWindowsService.OnStart(args: array of string);
var Reader: BDPDataReader;
Value: string;
Command: BDPCommand;
begin
inherited;
InitializeComponent;
BdpConnection1.Open;
BdpDataAdapter1.Active:=True;
Command := BdpConnection1.CreateCommand;
Command.CommandText := 'SELECT ServicePath FROM System';
Reader := command.ExecuteReader;
while reader.Read do
begin
Value := Reader.GetString(0);
end;
Reader.Free;
BdpDataAdapter1.Active:=false;
BdpConnection1.Close;
NewProcess := Process.Create;
NewProcess.StartInfo.FileName:= value;
NewProcess.StartInfo.WindowStyle := ProcessWindowStyle.hidden;
NewProcess.Start;
end;
Hat jemand eine Idee?
Besten Dank,
Jürgen
Ich habe einen kleinen Dienst unter delphi .net erstellt welches
ein delphi win32 programm starten.
Das win32-programm funktioniert auch ohne problem wenn es eigenständig gestartet wird.
Wird das win32-Programm allerdings über den service gestarten wird
die onCreate funktion nicht ausgeführt.
Für den Aufruf im Service Programm habe ich folgenden code benutzt:
procedure TWindowsService.OnStart(args: array of string);
var Reader: BDPDataReader;
Value: string;
Command: BDPCommand;
begin
inherited;
InitializeComponent;
BdpConnection1.Open;
BdpDataAdapter1.Active:=True;
Command := BdpConnection1.CreateCommand;
Command.CommandText := 'SELECT ServicePath FROM System';
Reader := command.ExecuteReader;
while reader.Read do
begin
Value := Reader.GetString(0);
end;
Reader.Free;
BdpDataAdapter1.Active:=false;
BdpConnection1.Close;
NewProcess := Process.Create;
NewProcess.StartInfo.FileName:= value;
NewProcess.StartInfo.WindowStyle := ProcessWindowStyle.hidden;
NewProcess.Start;
end;
Hat jemand eine Idee?
Besten Dank,
Jürgen
Comment