Denne artikkelen viser hvordan du skriver en tjeneste for Win9XServicesOne av de mest fordelaktige funksjoner på WinNT og Win2000 er evnen til å kjøre programmer i bakgrunnen, som serverer forespørsler bak scenes.It er en skam at Windows95 /98 har ikke denne samme funksjonen, selvsagt er det fordi det ikke var ment å være en nettverksserver av noe slag. Men noen ganger er det nødvendig å ha en oppgave som kjører som en tjeneste på Windows95 /98, så hyggelige mennesker på Microsoft bestemte seg for å gjennomføre det jeg ville vurdere " en hack ". -write Søknaden din, i prosjektet kilden gjøre dette < b> begynne Application.Initialize; Application.ShowMainForm: = False; //< - Legg dette !!
Dette vil stoppe viktigste formen vises når søknaden er run.Now i registeret < HKEY_LOCAL_MACHINE > \\ Software \\ Microsoft \\ Windows \\ Currentversion \\ RunMake en streng oppføring peker til din søknad .Til slutt, i OnCreate av skjemaet samtalen InternalRegisterServiceProcess (sann)
kode for InternalRegisterServiceProcess er som follows.type TServiceFunc = function (aProcessID: DWORD; aType: DWORD): WordBool; STDCALL; funksjon InternalRegisterServiceProcess (konst StartService: Boolean): Boolean; Var HKernel32: THandle; P: TServiceFunc; dwProcess: DWORD; dwType: DWORD, begynner Resultat: = False; HKernel32: = Loadlibrary ('Kernel32.dll'); hvis HKernel32 > 0 prøv deretter P: = GetProcAddress (HKernel32, 'RegisterServiceProcess'); hvis Assigned (P), og start dwProcess: = GetCurrentProcessID; dwType: = 0; Ved StartService av True: dwType: = 1; Falske: dwType: = 0; slutt; Resultat: = P (dwProcess, dwType); slutt; endelig FreeLibrary (HKernel32); end, end; Anmeldelser