Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Dienst installieren?

    Delphi
    by 1ceman, 27. Nov 2007
  So hab den Dienst nochmal komplett neu geschrieben.
  Jetzt kann ich ihn immerhin schonmal installieren. Wird auch bei meine diensten angezeigt
  und ich kann ihn starten. Jetzt hab ich folgenden Code genommen, um meinem Dienst ne beschreibung
  zu geben.
  
  procedure TService1.ServiceAfterInstall(Sender: TService);
  var
  Reg: TRegistry;
  begin
  Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
• Forum: Win32/Win64 API (native code)

  Re: Dienst installieren?

    Delphi
    by 1ceman, 26. Nov 2007
  Ja ist von TService abgeleitet.
  Hier ist der Quellcode:(damit ihr nicht zwangsläufig auf den link vom bsp. gehen müsst)
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
  
  type
• Forum: Win32/Win64 API (native code)

  Dienst installieren?

    Delphi
    by 1ceman, 26. Nov 2007
  Ich hab angefangen mir einen dienst zu schreiben, der wenn er login daten vom server zugesendet bekommt,
  diese Daten für nen Autologin in die registry schreibt und den pc dann neustartet.
  Aber irgendwie bekomme ich den dienst noch nichtmal installiert. Hab zum testen erstmal diesen Dienst aus dem
  Beispiel von MaBuSE genommen.
  Dann habe ich in Delphi 7 den Parameter /install eingestellt und...