AdsPortClose

Delphi 5 Programm

unit frmAdsPortCloseUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TcAdsDef, TcAdsApi, Buttons;

type
  TfrmAdsPortclose = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.DFM}
///////////////////////////////////////////////////////////////
procedure TfrmAdsPortclose.FormCreate(Sender: TObject);
var result : longint;
begin
     result :=AdsPortClose();
     Label1.Caption := Format( 'AdsPortClose() result: %d [0x%x]', [result, result]);
end;

end.