Forum: Win32/Win64 API (native code)
Delphi
by alcaeus,
7. Mai 2004
Ja, ich werde mir das Problem mal ansehen, ich hab zur Zeit aber nicht viel Zeit...vielleicht weiß jemand anderes noch eine Lösung..
Forum: Win32/Win64 API (native code)
Delphi
by alcaeus,
7. Mai 2004
Also, erstmal, verwende das -Tag. Dadurch wird der Code um einiges lesbarer. Du musst nur die Ereignisse ServiceStart und ServiceStop implementieren, das geht über den Objektinspektor.
Forum: Win32/Win64 API (native code)
Delphi
by alcaeus,
7. Mai 2004
So müsste es eigentlich gehen:
var
MyForm: TForm1;
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Application.CreateForm(TForm1, MyForm);
MyForm.Show;
end;