1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| __fastcall TPublic::TPublic(TComponent* Owner)
: TForm(Owner)
{
char strDir[1024];
SC_HANDLE hSCManager,hService;
SERVICE_DESCRIPTION SD;
GetCurrentDirectory(1024,strDir);
strcat(strDir,"\\IPublic.exe");
hSCManager = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
hService = CreateService(hSCManager, "IPublic", "IPublic",
SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS, SERVICE_DEMAND_START,
SERVICE_ERROR_NORMAL, strDir, NULL, NULL, NULL, NULL, NULL);
SD.lpDescription = "Recupération IP Public InfoCentre.";
ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION, &SD);
CloseServiceHandle(hService);
SC_HANDLE SCMan;
SCMan = OpenSCManager(NULL, NULL, GENERIC_EXECUTE) ;
SC_HANDLE MonServ;
MonServ = OpenService(SCMan, "IPubblic", SERVICE_START );
StartService(MonServ, 0, NULL);
CloseServiceHandle(MonServ);
CloseServiceHandle(SCMan);
} |
Partager