vcתdelphiÎÊÌâ

C/C++ code:

void RefreshThreadList (DWORD dwOwnerPID)
{

HANDLE hThreadSnap = NULL;
BOOL bRet = FALSE;
THREADENTRY32 te32 = {0};
int px=0;


hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);

te32.dwSize = sizeof(THREADENTRY32);

if (Thread32First(hThreadSnap, &te32))
{
px=0;
do
{

if (te32.th32OwnerProcessID == dwOwnerPID&&dwOwnerPID!=0)
{
lst[px]=te32.th32ThreadID;
px++;
}

}
while (Thread32Next(hThreadSnap, &te32));
}

CloseHandle (hThreadSnap);


}



ÇëÎÊË­°ïÎÒ°ÑÕâ¾ävcת³Édelphi?

---

DWORD lst[100];

---

Delphi(Pascal) code:
uses
TLHelp32;

---

½©¸çÈÈÐij¦

---

C/C++ code:

for(int i=0;i<100;i++)
{
if(lst[i]==0)
{
break;
}
}


Äܲ»ÄÜÔÙÇëÎÊÏÂÕâ¸öÔõôת£¿

---

var
 i:integer;
...
 for int i:=0 to 9