啟動、查詢服務

發文回覆瀏覽次數：894

推到 Plurk!

推到 Facebook!

答題得分者是：RaynorPao

Samlee
一般會員

發表：13
回覆：12
積分：5
註冊：2002-07-28

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-15 08:40:28

IP:202.154.xxx.xxx 未訂閱

 為什麼我總是得不到Service的list.不知道是那個地方寫錯了.可以指正一下嗎.
謝謝    DWord BytesNeeded, serviceReturned, resumeHandle;
bool returnflag;
LPENUM_SERVICE_STATUS lpservice[100];
LPENUM_SERVICE_STATUS service;
DWord i, bytes;       SC_HANDLE hscmanager, hService;
   hscmanager = OpenSCManager(NULL,SERVICES_ACTIVE_DATABASEA, SC_MANAGER_ALL_ACCESS);       if(hscmanager<0)
      ShowMessage("ttt");
   returnflag = EnumServicesStatus(
                           hscmanager,
                           SERVICE_WIN32,
                           SERVICE_STATE_ALL,
                           service,
                           sizeof(service),
                           (unsigned long*)&BytesNeeded,
                           (unsigned long*)&serviceReturned,
                           (unsigned long*)&resumeHandle);
//   if ((returnflag == False) && (GetLastError() == ERROR_MORE_DATA))
//      ShowMessage("666");
   bytes = BytesNeeded   sizeof(LPENUM_SERVICE_STATUS);
   returnflag=EnumServicesStatus(
                     hscmanager,
                     SERVICE_WIN32,
                     SERVICE_STATE_ALL,
                     *lpservice,
                     bytes,
                     (unsigned long*)&BytesNeeded,
                     (unsigned long*)&serviceReturned,
                     (unsigned long*)&resumeHandle);
   AnsiString sServiceName,sDisplayName,tem;
   for (i=0; i>serviceReturned-1;i  ){
      sServiceName=lpservice[i]->lpServiceName;
      sDisplayName=lpservice[i]->lpDisplayName;
      tem=sServiceName ":" sDisplayName;
      ListBox1->Items->Add(sServiceName   ": "   sDisplayName);
      }

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-03-15 09:27:41

IP:203.73.xxx.xxx 未訂閱

引言:

 為什麼我總是得不到Service的list.不知道是那個地方寫錯了.可以指正一下嗎.
謝謝    DWord BytesNeeded, serviceReturned, resumeHandle;
bool returnflag;
LPENUM_SERVICE_STATUS lpservice[100];
LPENUM_SERVICE_STATUS service;
DWord i, bytes;       SC_HANDLE hscmanager, hService;
   hscmanager = OpenSCManager(NULL,SERVICES_ACTIVE_DATABASEA, SC_MANAGER_ALL_ACCESS);       if(hscmanager<0)
      ShowMessage("ttt");
   returnflag = EnumServicesStatus(
                           hscmanager,
                           SERVICE_WIN32,
                           SERVICE_STATE_ALL,
                           service,
                           sizeof(service),
                           (unsigned long*)&BytesNeeded,
                           (unsigned long*)&serviceReturned,
                           (unsigned long*)&resumeHandle);
//   if ((returnflag == False) && (GetLastError() == ERROR_MORE_DATA))
//      ShowMessage("666");
   bytes = BytesNeeded + sizeof(LPENUM_SERVICE_STATUS);
   returnflag=EnumServicesStatus(
                     hscmanager,
                     SERVICE_WIN32,
                     SERVICE_STATE_ALL,
                     *lpservice,
                     bytes,
                     (unsigned long*)&BytesNeeded,
                     (unsigned long*)&serviceReturned,
                     (unsigned long*)&resumeHandle);
   AnsiString sServiceName,sDisplayName,tem;
   for (i=0; i>serviceReturned-1;i++){
      sServiceName=lpservice[i]->lpServiceName;
      sDisplayName=lpservice[i]->lpDisplayName;
      tem=sServiceName+":"+sDisplayName;
      ListBox1->Items->Add(sServiceName + ": " + sDisplayName);
      }

Samlee 你好:
(1)請參考以下的範例程式碼
   >>>> >
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-05-07 6:30:26

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！