16,747
社区成员




while not FCapOver do
begin
Application.ProcessMessages;
//----------------------------------------------------------------------
if GetTickCount- FCapStartTime>= FCapOutTime *1000 then//检测5秒钟
begin
FCapIP.StopCap;
FCapOver:=True;
end;
// Sleep(10);
end;