这个问题2000分，地址冲突(300分)

xeb · 2006-08-31

procedure TForm1.Button5Click(Sender: TObject); var svcmgr,svc  :  Integer  ; lpqscBuf: _QUERY_SERVICE_CONFIG; dwBytesNeeded

WORD; begin   lpqscBuf :=new( _QUERY_SERVICE_CONFIG);   svcmgr  :=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);   if  svcmgr  =      0  then     exit  ;   svc  :=OpenService(svcmgr,     'dhcp',SERVICE_ALL_ACCESS);   if  svc  =  0  then   begin         CloseServiceHandle(svcmgr);         exit  ;   end  ;   if QueryServiceConfig(        svc,        @lpqscBuf,        4096,        dwBytesNeeded) then   begin     if lpqscBuf.dwStartType >3 then     begin       showMessage('OK!');     end;   end;   CloseServiceHandle(svcmgr);   CloseServiceHandle(svc); end;

轻舞肥羊 · 2006-08-31

给你一段参考代码 function TServiceInfoList.GetServiceConfig(  const AServiceInfo: TServiceInfo): Boolean; var  dwTemp              : DWORD;  pCfg                : PQueryServiceConfig; begin  Result  :=  False;  OpenHandle;  AServiceInf

penHandle;  pCfg    :=  nil;  dwTemp  :=  0;  if AServiceInfo.FServiceHandle > 0 then  try    QueryServiceConfig(        AServiceInfo.FServiceHandle,        pCfg,        0,        dwTemp);    if dwTemp > 0 then    begin      GetMem(pCfg, dwTemp);      try        if QueryServiceConfig(            AServiceInfo.FServiceHandle,            pCfg,            dwTemp,            dwTemp) then        begin          AServiceInfo.FFileName  :=  pCfg.lpBinaryPathName;          AServiceInfo.FStartType :=  pCfg.dwStartType;          Result  :=  True;        end;      finally        FreeMem(pCfg);      end;    end;  finally    AServiceInfo.CloseHandle;  end; end;

znj_326 · 2006-08-31

{ ====================================================================== Project  : Firebird utilities Unit     : uService.pas Purpose  : Access the windows NT service manager API Author   : Achim Kalwa <delphi@achim-kalwa.de> Compiler : Borland Delphi 5.01 ---------------------------------------------------------------------- Historie: 2002-03-04, Kalwa: - Form/Unit created 2002-03-17, Kalwa: - BUGFIX: In DoQueryServiceStatus, DoChangeServiceConfig,  the memory allocated for PServiceConfig was never freed. ====================================================================== } //{$I fbmgr.inc} unit uService; interface uses  SysUtils,  Windows,  WinSvc; type  TSvcStatus = (ssUnknown,                // enumeration of service status                ssStopped,                ssStartPending,                ssStopPending,                ssRunning,                ssContinuePending,                ssPausePending,                ssPaused,                ssError); function GetWinSysDir : String; function GetServiceStatus(ServiceName : String) : TSvcStatus; function DoStartService(ServiceName : string) : TSvcStatus; function DoStopService(ServiceName : string) : TSvcStatus; function DoChangeServiceConfig(ServiceName : string; Enabled, AutoStart : Boolean) : Boolean; function DoQueryServiceConfig(ServiceName : string; var DisplayName : string; var Enabled, AutoStart : Boolean) : Boolean; implementation uses  Controls,  Forms; function GetWinSysDir : String; var  aLen   : Integer; begin  SetLength(Result, MAX_PATH);  aLen := Windows.GetSystemDirectory(PChar(Result), MAX_PATH);  SetLength(Result, aLen); end; function GetServiceStatus(ServiceName : String) : TSvcStatus; { retrieve status of given service } var  dwStatus         : DWord;  hService         : SC_HANDLE;  hServiceManager  : SC_HANDLE;  ServiceStatus    : TServiceStatus; Begin  dwStatus := 0 ;  hServiceManager := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);  if hServiceManager > 0 then begin    hService := OpenService(hServiceManager,                            pChar(ServiceName),                            SERVICE_QUERY_STATUS);    if hService > 0 then begin      if QueryServiceStatus(hService, ServiceStatus) then begin        dwStatus := ServiceStatus.dwCurrentState;      end;      CloseServiceHandle(hService) ;    end;  end;  CloseServiceHandle(hServiceManager) ;  Result := TSvcStatus(dwStatus); end;                                    { GetServiceStatus } function DoStartService(ServiceName : string) : TSvcStatus; { start a installed service by name. Returns the service status } var  hService         : SC_HANDLE;  hServiceManager  : SC_HANDLE;  pDummy           : PChar;  Tries            : Integer; begin  Result := GetServiceStatus(ServiceName);  if Result <> ssStopped then Exit;  Screen.Cursor := crHourGlass;  hServiceManager := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);  if hServiceManager > 0 then begin    hService := OpenService(hServiceManager,                            PChar(ServiceName),                            SERVICE_START);    if hService > 0 then begin      pDummy := nil;      if StartService(hService, 0, pDummy) then begin        Tries := 10;        repeat          Sleep(1000);          Result := GetServiceStatus(ServiceName);          Dec(Tries);        until (Tries = 0) or (Result = ssRunning);      end      else begin        Result := ssError;      end;      CloseServiceHandle(hService);    end;  end;  CloseServiceHandle(hServiceManager);  Screen.Cursor := crDefault; end; { DoStartService } function DoStopService(ServiceName : string) : TSvcStatus; { stop a running service by name. Returns the service status } var  hService         : SC_HANDLE;  hServiceManager  : SC_HANDLE;  ServiceStatus    : TServiceStatus;  Tries            : Integer; begin  Result := GetServiceStatus(ServiceName);  if Result <> ssRunning then Exit;  Screen.Cursor := crHourGlass;  hServiceManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);  if hServiceManager > 0 then begin    hService := OpenService(hServiceManager,                            PChar(ServiceName),                            GENERIC_EXECUTE);    if hService > 0 then begin      if ControlService(hService, SERVICE_CONTROL_STOP, ServiceStatus) then begin        Tries := 10;        Repeat          Sleep(1000);          Dec(Tries);          Result := GetServiceStatus(ServiceName);        until (Tries = 0) or (Result = ssStopped);      end      else        Result := ssError;      CloseServiceHandle(hService);    end;  end;  CloseServiceHandle(hServiceManager) ;  Screen.Cursor := crDefault; end;   { DoStopService } function DoQueryServiceConfig(ServiceName : string; var DisplayName : string; var Enabled, AutoStart : Boolean) : Boolean; { retrieves information for a named service. } var  hService         : SC_HANDLE;  hServiceManager  : SC_HANDLE;  BytesNeeded      : DWORD;  PServiceConfig   : PQueryServiceConfig; begin  Result := False;  DisplayName := '';  Enabled     := False;  AutoStart   := False;  hServiceManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);  if hServiceManager > 0 then begin    hService := OpenService(hServiceManager,                            PChar(ServiceName),                            SERVICE_QUERY_CONFIG or SERVICE_CHANGE_CONFIG);    if hService > 0 then begin      BytesNeeded := 0;      QueryServiceConfig(hService, nil, 0, BytesNeeded);      GetMem(PServiceConfig, BytesNeeded);      QueryServiceConfig(hService, PServiceConfig, BytesNeeded, BytesNeeded);      DisplayName := StrPas(PServiceConfig^.lpDisplayName);      case PServiceConfig^.dwStartType of        SERVICE_AUTO_START:          begin            Enabled := True;            AutoStart := True;          end;        SERVICE_DEMAND_START:          begin            Enabled := True;            AutoStart := False;          end;        SERVICE_DISABLED:          begin            Enabled := False;            AutoStart := False;          end;      end; { case }      CloseServiceHandle(hService);      FreeMem(PServiceConfig);    end;  end;  CloseServiceHandle(hServiceManager) ;  Screen.Cursor := crDefault; end;                                    { DoQueryServiceStatus } function DoChangeServiceConfig(ServiceName : string; Enabled, AutoStart : Boolean) : Boolean; { changes a service's statup configuration } var  hService         : SC_HANDLE;  hServiceManager  : SC_HANDLE;  NewStartType     : Integer;  DisplayName      : string;  BytesNeeded      : DWORD;  PServiceConfig   : PQueryServiceConfig; begin  Result := False;  hServiceManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);  if hServiceManager > 0 then begin    hService := OpenService(hServiceManager,                            PChar(ServiceName),                            SERVICE_QUERY_CONFIG or SERVICE_CHANGE_CONFIG);    if hService > 0 then begin      BytesNeeded := 0;      QueryServiceConfig(hService, nil, 0, BytesNeeded);      GetMem(PServiceConfig, BytesNeeded);      QueryServiceConfig(hService, PServiceConfig, BytesNeeded, BytesNeeded);      DisplayName := StrPas(PServiceConfig^.lpDisplayName);      if Enabled then begin        if AutoStart        then NewStartType := SERVICE_AUTO_START        else NewStartType := SERVICE_DEMAND_START;      end      else        NewStartType := SERVICE_DISABLED;      Result := ChangeServiceConfig(        hService,                       { Handle of Service }        SERVICE_NO_CHANGE,              { don't change service type }        NewStartType,                   { set new start type }        SERVICE_NO_CHANGE,              { don't change ErrorControl }        nil,                            { don't change BinaryPathName }        nil,                            { don't change LoadGroupOrder }        nil,                            { don't change dwTagID }        nil,                            { don't change Dependencies }        nil,                            { don't change ServiceStartName }        nil,                            { don't change Password (if any) }        PChar(DisplayName));            { Display name }      CloseServiceHandle(hService);      FreeMem(PServiceConfig);    end;  end;  CloseServiceHandle(hServiceManager) ;  Screen.Cursor := crDefault; end;                                    { DoChangeServiceConfig } end.

huzhicheng · 2006-08-31

路过，学习一下

xeb · 2006-09-01

接手答案

fsldg · 2006-09-01

学习一下

xeb · 2006-09-01

怎么才能给分 不能大于300？

xeb · 2006-09-01

感谢上面同志的热情解答

这个问题2000分，地址冲突(300分)

xeb

Unregistered / Unconfirmed

轻舞肥羊

Unregistered / Unconfirmed

znj_326

Unregistered / Unconfirmed

huzhicheng

Unregistered / Unconfirmed

xeb

Unregistered / Unconfirmed

fsldg

Unregistered / Unconfirmed

xeb

Unregistered / Unconfirmed

xeb

Unregistered / Unconfirmed

Similar threads