AdsGetDllVersion

Delphi 5 Programm

unit frmAdsGetDllVersionUnit;

interface

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

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

implementation

{$R *.DFM}

procedure TfrmAdsGetDllVersion.FormCreate(Sender: TObject);
var tmp : Longword;
    pVersion :PAdsVersion;
begin
    tmp := AdsGetDllVersion();
    pVersion := PAdsVersion(@tmp);
    Label1.Caption := Format( 'Version: %d', [pVersion.version]);
    Label2.Caption := Format( 'Revision: %d', [pVersion.revision]);
    Label3.Caption := Format( 'Build: %d', [pVersion.build]);
end;

end.