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;
僵哥热心肠
C/C++ code:
for(int i=0;i<100;i++)
{
if(lst[i]==0)
{
break;
}
}
能不能再请问下这个怎么转？
var
i:integer;
...
for int i:=0 to 9
相关问答：
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
C/C++ code:
con.Dr7=con.Dr7&~0xc0;
请问这句怎么转成delphi?
阿发伯的正解
......
各位大侠帮忙分析一下：
我用Query执行一个存储过程，操作完成之后，存储过程只是执行了一半（每执行一部分，都会写一条执行记录到我建立History表，结果每次写到一半就没有结果了）
同样的条件， ......
很简单的Grid，就像是windows资源管理器用“详细资料”显示时那种，或着就是XP的“任务管理器”中“进程”那种。有多个列，每列显示我想要的一个字段。列和列还可以自己拖动顺序（这个我不要求）。听起来有点像是DBG ......
