david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
65 lines
2.0 KiB
ObjectPascal
65 lines
2.0 KiB
ObjectPascal
unit uDADriverInfo;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ Data Abstract Library - Core Library }
|
|
{ }
|
|
{ compiler: Delphi 6 and up, Kylix 3 and up }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the Data Abstract }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I DataAbstract.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
uDADriverManager;
|
|
|
|
procedure ShowDriverInfo(aDriverManager: TDADriverManager);
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils,
|
|
{$IFDEF FPC}
|
|
FPgtkExt,
|
|
{$ENDIF}
|
|
{$IFDEF MSWINDOWS}
|
|
Dialogs;
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
QDialogs;
|
|
{$ENDIF}
|
|
|
|
procedure ShowDriverInfo(aDriverManager: TDADriverManager);
|
|
var
|
|
s: string;
|
|
i: integer;
|
|
begin
|
|
if (aDriverManager.DriverCount = 0) then
|
|
MessageDlg('No drivers are currently loaded', mtWarning, [mbOK], 0)
|
|
else begin
|
|
s := 'The following ' + IntToStr(aDriverManager.DriverCount) + ' drivers are currently loaded:'#13;
|
|
for i := 0 to (aDriverManager.DriverCount - 1) do begin
|
|
with aDriverManager.DriverInfo[i] do begin
|
|
if (Handle = 0) then
|
|
s := s + #13 + Format('%s - %s %d.%d (Statically Linked)',
|
|
[Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion])
|
|
|
|
else
|
|
s := s + #13 + Format('%s - %s %d.%d (%s)',
|
|
[Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion, FileName]);
|
|
end;
|
|
end;
|
|
|
|
MessageDlg(s, mtInformation, [mbOK], 0);
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|