(Gast)
n/a Beiträge
|
Re: Gigabyte dll functions
29. Aug 2007, 12: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.
|
|
Zitat
|