..
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
Última edición por maco2007 fecha: 21-10-2007 a las 02:02:18.
|