unit2.pas

来自「用Delphi开发的USB源程序」· PAS 代码 · 共 31 行

unit Unit2;
interface
 uses Classes,Windows;
 type
  mythread = class(TThread)
  protected
    procedure Execute; override;
 end;
 var GMythread:mythread;
implementation

uses Unit1;

procedure mythread.Execute;
var hDevice:THandle;
begin
  repeat
   hDevice:=0;
   if(not form1.UsbOpenDriver(hDevice, USB_DEVICE_NAME))then
   begin
    form1.set_red();
   end else
       begin
        form1.set_green();
       end;
   sleep(1);
   CloseHandle(hDevice);
  until false;
end;
end.