Win9x-Dienstleistungen

Win9x-Dienstleistungen

Win9x-Dienstleistungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das einen Service für Win9X schreiben
Dienstleistungen
Eine der vorteilhaftesten Eigenschaften auf WinNT und Win2000 ist die Fähigkeit zum Ausführen von Anwendungen im Hintergrund, hinter den Kulissen Anfragen bedienen.
Es ist eine Schande, dass Windows 95/98 nicht diese dieselbe Funktion hat es offensichtlich ist, weil es nicht bedeutet wurde, auf einem Netzwerkserver jeglicher Art werden. Manchmal ist es jedoch notwendig, eine Aufgabe, die unter Windows 95/98, als Dienst ausführen, so die netten Leute bei Microsoft beschlossen, implementieren, was ich hielte 'ein Hack' zu haben.
Ihre Anwendung schreiben, in der Projektquelle, dies zu tun.

beginnen
Application.Initialize;
Application.ShowMainForm: = False; <--fügen Sie diese!!

Dieses stoppt das Hauptformular angezeigt wird, wenn die Anwendung ausgeführt wird.
Jetzt in der Registrierung
< HKEY_LOCAL_MACHINE >
\Software\MicroSoft\Windows\CurrentVersion\Run
Machen Sie eine Eingabe von Strings auf Ihre Anwendung zeigen.
Rufen Sie abschließend in der OnCreate des Formulars
InternalRegisterServiceProcess(True)
Der Code für InternalRegisterServiceProcess ist wie folgt.
Typ
TServiceFunc = Function (aProcessID: DWord;

ESRD: DWord): WordBool; Stdcall;
Funktion InternalRegisterServiceProcess)
const StartService: Boolean): Boolean;
var
HKernel32: THandle;
P: TServiceFunc;
DwProcess: DWord;
DwType: DWord;
beginnen
Ergebnis: = False;
HKernel32: = LoadLibrary('Kernel32.dll');
Wenn HKernel32 > 0 dann
versuchen Sie
P: = GetProcAddress(HKernel32,'RegisterServiceProcess');
Wenn Assigned(P) dann
beginnen
DwProcess: = GetCurrentProcessID;
DwType: = 0;
StartService von RS
True: DwType: = 1;
Falsch: DwType: = 0;
Ende;
Ergebnis: = P (DwProcess, DwType);
Ende;
Schließlich
FreeLibrary(HKernel32);
Ende;
Ende;