/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Hvordan kan man læse windowsversionen ????
Fra : P.L.


Dato : 10-12-01 00:07

Hej NG

Er der en eller anden, som kan fortælle, hvordan man kan aflæse om windows er f.eks. win98 eller
NT4.0 man arbejder på

På forhånd tak

PL



 
 
Steen Jensen (11-12-2001)
Kommentar
Fra : Steen Jensen


Dato : 11-12-01 15:16

Hej

P.L. skrev i meddelelsen
<3c13eefa$0$25369$edfadb0f@dspool01.news.tele.dk>...
>Hej NG
>
>Er der en eller anden, som kan fortælle, hvordan man kan aflæse om windows
er f.eks. win98 eller
>NT4.0 man arbejder på
>
>På forhånd tak
>
>PL
>
>

F.eks

function GetOsVer: String;
var
OSV: TOSVersionInfo;
begin
OSV.dwOSVersionInfoSize:=Sizeof(OSV);
if GetVersionEx(OSV) then begin
case OsV.dwPlatformId of
VER_PLATFORM_WIN32s :Result:='Win32';
VER_PLATFORM_WIN32_WINDOWS :Result:='Win9x';
VER_PLATFORM_WIN32_NT :Result:='WinNT';
else
Result:='Ukendt';
end;
end
else
Result:='Fejl';
end;

Med venlig hilsen
Steen




Kurt Bilde (10-12-2001)
Kommentar
Fra : Kurt Bilde


Dato : 10-12-01 14:00

Hej "PL"

> Er der en eller anden, som kan fortælle, hvordan man kan aflæse om windows er f.eks. win98 eller
> NT4.0 man arbejder på


function OSString(FullId: Boolean): string;
var
BinStreng: string;
BuildStr: string;
MinorStr: string;
MajorStr: string;
KernelVersionHi: DWord;
begin
BinStreng := '';
KernelVersionHi := 0;
if FullId then
begin
{Kommentar - patch eller servicepack}
Insert(Win32CSDVersion, BinStreng, 1);
if BinStreng <> '' then Insert(', ', BinStreng, 1);
Insert(').', BinStreng, length(BinStreng) + 1);
{BuildVersion}
try
BuildStr := IntToStr(Win32BuildNumber);
except on EConvertError do BuildStr := '';
end;
Insert(BuildStr, BinStreng, 1);
if BuildStr <> '' then Insert('.', BinStreng, 1);
{MinorVersion}
try
MinorStr := IntToStr(Win32MinorVersion);
except on EConvertError do MinorStr := '';
end;
Insert(MinorStr, BinStreng, 1);
if MinorStr <> '' then Insert('.', BinStreng, 1);
{MinorVersion}
try
MajorStr := IntToStr(Win32MajorVersion);
except on EConvertError do MajorStr := '';
end;
Insert(MajorStr, BinStreng, 1);
Insert(' - (', BinStreng, 1);
end else BinStreng := '.';
{Tekst}
if Win32Platform <> VER_PLATFORM_WIN32_NT then
begin
case Win32MinorVersion of
0..9: if Trim(Win32CSDVersion) = 'B' then insert(' 95 OSR2',
BinStreng, 1)
else if Trim(Win32CSDVersion) = 'C' then insert(' 95 OSR2.5',
BinStreng, 1)
else insert(' 95', BinStreng, 1);
10..89:
// På Windows ME kan Win32MinorVersion returnere 10 (Identisk
med Windows 98
// under visse omstændigheder. Ved at checke
// kernel versionen kan man få det rigtige svar.
if KernelVersionHi = $0004005A then insert(' ME', BinStreng, 1)
// 4.90.x.x
else if Trim(Win32CSDVersion) = 'A' then insert(' 98 SE',
BinStreng, 1)
else insert(' 98', BinStreng, 1);
90: insert(' ME', BinStreng, 1);
end;
end else
begin
case Win32MajorVersion of
3: insert(' NT 3', BinStreng, 1);
4: insert(' NT 4', BinStreng, 1);
5: begin
case Win32MinorVersion of
0: insert(' 2000', BinStreng, 1);
1: insert(' XP', BinStreng, 1);
end;
end;
else insert(' XP', BinStreng, 1);
end;
end;
insert('Microsoft Windows', BinStreng, 1);
Result := BinStreng;
end;


-Kurt


PL (26-12-2001)
Kommentar
Fra : PL


Dato : 26-12-01 12:44

Hej Kurt

Din "function OSString(FullId: Boolean): string;" virker rigtig godt

Takker
PL



P.L. (11-12-2001)
Kommentar
Fra : P.L.


Dato : 11-12-01 00:30

Tak til jer begge

PL


"P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
news:3c13eefa$0$25369$edfadb0f@dspool01.news.tele.dk...
> Hej NG
>
> Er der en eller anden, som kan fortælle, hvordan man kan aflæse om windows er f.eks. win98 eller
> NT4.0 man arbejder på
>
> På forhånd tak
>
> PL
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste