按键精灵 同时多个循环
“1”每隔2秒要按一下,“5”每隔12秒要按一下,“8”每隔120秒要按一下
这个用按键精灵怎么写代码
wait有多个重载的方法,可以指定等待的时间
在用VCL的情况下还是建议你使用TThread,
API做程序的时候就要用CreateThread了
给出函数:WaitForSingleObject
你可以在一个线程中用这个函数来等待另一个线程操作完毕,
或者用消息来实现。
一般格式:WaitForSingleObject(hThread,INFINITE);
hThread是线程句柄
创建线程时要这么写:hThread := CreateThread(...);
百度真小气,C语言给了两个板块,Pascal一个也没有
delphi循环中等待问题~~
关于循环中等待问题...
procedure MyThreadFuncOutgoon();//循环发送函数
begin
A();//询问1
B();//询问2
C();//询问3
D();//询问4
end;
procedure TForm1.BitBtn2Click(Sender: TObject);//按键等待发送值
begin
发送值;//这里如何写?
end;
procedure TForm1.comm1ReceiveData(Sender: TObject; Buffer: Pointer;//接收数据
BufferLength: Word);
begin
处理询问1();
处理询问2()
delphi循环中等待问题~~
关于循环中等待问题...
procedure MyThreadFuncOutgoon();//循环发送函数
begin
A();//询问1
B();//询问2
C();//询问3
D();//询问4
end;
procedure TForm1.BitBtn2Click(Sender: TObject);//按键等待发送值
begin
发送值;//这里如何写?
end;
procedure TForm1.comm1ReceiveData(Sender: TObject; Buffer: Pointer;//接收数据
BufferLength: Word);
begin
处理询问1();
处理询问2()
wait有多个重载的方法,可以指定等待的时间
在用VCL的情况下还是建议你使用TThread,
API做程序的时候就要用CreateThread了
给出函数:WaitForSingleObject
你可以在一个线程中用这个函数来等待另一个线程操作完毕,
或者用消息来实现。
一般格式:WaitForSingleObject(hThread,INFINITE);
hThread是线程句柄
创建线程时要这么写:hThread := CreateThread(...);
百度真小气,C语言给了两个板块,Pascal一个也没有