unit1.pas

来自「針對最新的Intel ATOM N270主機板透過SMBus存取GPIO埠範例（」· PAS 代码 · 共 39 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, RoundLed, _GClass, AbLED, winio;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    Timer1: TTimer;
    led1: TAbLED;
    led2: TAbLED;
    led3: TAbLED;
    led4: TAbLED;
    led5: TAbLED;
    led6: TAbLED;
    led7: TAbLED;
    led8: TAbLED;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure led5Click(Sender: TObject);
    procedure led6Click(Sender: TObject);
    procedure led7Click(Sender: TObject);
    procedure led8Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    bFirst : boolean;
    procedure Reset_Port;
    procedure GP_Output(szKey : Integer; szStatus : Boolean);
    Function DecToBin(dec:longint):string;                            // 10 秈