论坛 › Delphi交流 › 关于线程的问题！！求教！！！

丨夜漆黑 发表于 2013-2-24 01:06:36

关于线程的问题！！求教！！！

下面是线程入口函数
function TimingButtonFunc(p: Pointer): Integer; stdcall;
var
iTime: Integer;
begin
iTime := Integer(p);
while True do
begin
    FrmGame.SetPressKey(0);                              ①
    FrmGame.Text := IntToStr(Random(100));      ②
    Sleep(iTime*1000);
end;
Result := 0;
end;
下面是创建线程。
    if hTimer=0 then      hTimer := Windows.CreateThread(nil, 0, @TimingButtonFunc, Ptr(30), 0, ID);
hTimer是线程句柄全局变量我纳闷的是，第②句执行有效果第①句为什么就没有反映呢！这个函数是按0键小弟刚接触多线程！ 我想实现的是每隔iTime秒按一次0键

丨夜漆黑 发表于 2013-2-24 13:23:07

没人知道么，求跟进啊 ！！！

查看完整版本: 关于线程的问题！！求教！！！