1,222
社区成员




#include <tlhelp32.h>
void __fastcall TfrmGather::Button15Click(TObject *Sender)
{
PROCESSENTRY32 pe32;
pe32.dwSize = sizeof(PROCESSENTRY32);
HANDLE SnapshotHandle = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, TH32CS_SNAPALL );
if ( SnapshotHandle != INVALID_HANDLE_VALUE )
{
if ( Process32First( SnapshotHandle, &pe32 ) )
{
do
{
String Str = String(pe32.szExeFile) +": "+FloatToStr(pe32.th32ProcessID) ;
Memo1->Lines->Add(Str) ;
}
while( Process32Next( SnapshotHandle, &pe32 ) );
}
}
CloseHandle( SnapshotHandle );
}