Thema: Delphi Gigabyte dll functions

Einzelnen Beitrag anzeigen

Razor
(Gast)

n/a Beiträge
 
#30

Re: Gigabyte dll functions

  Alt 29. Aug 2007, 11:59
For me it returns -1 or false but i dont know for accual users that have gigabyte board.So you may test it


Delphi-Quellcode:
interface

uses
  Fastmm4,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
    const
  w83781ddll = 'w83781d.dll';
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function LX_IsGigaMainBoard : integer;external 'w83781d.dll';
var
  Form1: TForm1;
   hInstdll: THandle;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hInstdll := LoadLibrary(w83781ddll);
if LX_IsGigaMainBoard=-1 then
label1.caption:='you dont have a giga board!'
else if LX_IsGigaMainBoard=0 then
 label1.caption:='you do have a giga board!';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(hInstdll);
end;

end.
Angehängte Dateien
Dateityp: dll w83781d_205.dll (60,0 KB, 20x aufgerufen)
Dateityp: dll markfundrv_767.dll (112,0 KB, 20x aufgerufen)
  Mit Zitat antworten Zitat