高手进来，关于WINDOWS服务枚举的问题(20分)

ztaif · 2004-03-20

EnumServicesStatus SERVICE_STATUS EnumDependentServices 这些都不是我想要的，但也不能不用 如何得到系统的服务名称列表，就如同运行 Services.msc以后看到的那个列表， 要全部的服务名称，不是只根据服务名来找到一个服务的句柄

yczzg · 2004-03-20

function TaskRefresh:string;//显示所有正在运行的程序列表 var   ContinueLoop:BOOL;   FSnapshotHandle:THandle;   FProcessEntry32:TProcessEntry32;   PID : integer;//   s: string;//   PHandle : THandle;// begin   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);   PID:=FProcessEntry32.th32ProcessID;//   while ContinueLoop do//   begin     s := ExtractFileName(FProcessEntry32.szExeFile);//     Result:=Result+(s)+#13+#10;     ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   end;   CloseHandle(FSnapshotHandle);   PHandle:=OpenProcess(PROCESS_VM_WRITE,false,PID);   CloseHandle(PHandle); end;

ztaif · 2004-04-26

接受答案了.

高手进来，关于WINDOWS服务枚举的问题(20分)

ztaif

Unregistered / Unconfirmed

yczzg

Unregistered / Unconfirmed

ztaif

Unregistered / Unconfirmed

Similar threads