BIOSDATE bajo Win 2000 y XP

[maco2007]

creo q si funciona puedes hacer algo asi para q te funcione en WinXp y 98 mira :

USES Registry;

Function LeeReg(RootKeys: HKEY; Key: String; NameValue: String): String;
Begin
With TRegistry.Create do
Try
RootKey := RootKeys;
OpenKey(Key, False);
Result:= ReadString(NameValue);
finally
FREE;
end;
end;

function QueWindows:String;
var Version:TOsVersionInfo; begin Version.dwOSVersionInfoSize:=SizeOf(Version); GetVersionex(Version); case Version.dwPlatformId of VER_PLATFORM_WIN32s: Result:='WindowsNormal';
VER_PLATFORM_WIN32_WINDOWS:
Result:='Windows98';
VER_PLATFORM_WIN32_NT:
Result:='WindowsNormal';
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Win:String;
begin Win:= QueWindows; if (Win)= 'WindowsNormal' then Edit1.Text:= LeeReg(HKEY_LOCAL_MACHINE, 'HARDWARE\DESCRIPTION\System', 'SystemBiosDate')
else Edit1.Text:= String(Pchar(Ptr($FFFF5)));

end;

Aqui te dejo un ejemplo