Delphi-Programm als Dienst

[alcaeus]

So müsste es eigentlich gehen:

Delphi-Quellcode:

var
  MyForm: TForm1;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Application.CreateForm(TForm1, MyForm);
  MyForm.Show;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  MyForm.Free;
end;