Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Zwei Fragen 1. Mediaplayer 2. Wie ermittelt ich, ob OS WinXP


stefanstp - Fr 29.11.02 12:37
Titel: Zwei Fragen 1. Mediaplayer 2. Wie ermittelt ich, ob OS WinXP
1. Ich habe ein Problem. Und zwar habe ich ein Programm erstellt, welches Videos abspielt. Das klappt auch super unter Win2000 und Win98. Jedoch nicht unter XP. Es wird nur der Ton angezeigt, kein Bild.
Wenn ich aber mein Programm maximiere dann ja. Also liegt es am Refresh.

Habe auch extra wenn ich das Video abspiele diverse Refresh ausprobiert (sogar mit Timer usw.) Aber nix geht wirklich richtig.

Was muß ich machen, damit WinXP da nicht rumspinnt???

2. Wie ermittelt ich mit möglichst ganz wenig Code, ob das laufende Betriebssystem XP ist???

Besten Dank im Voraus und ein schönes Wochenende!!!

STEFAN


LCS - Fr 29.11.02 12:56

Hi
Zitat:

2. Wie ermittelt ich mit möglichst ganz wenig Code, ob das laufende Betriebssystem XP ist???


So zum Beispiel:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
function CheckXP: boolean;
var
   vi  : TOSVERSIONINFO;  //Struktur OSVERSIONINFO
begin
   FillChar(vi, SizeOf(TOSVERSIONINFO), 0);
   vi.dwOSVersionInfoSize := SizeOf(vi);
   GetVersionEx(vi);
   Result := (vi.dwPlatformId = VER_PLATFORM_WIN32_NT) and (vi.dwMajorVersion >= 5);
end;


Gruss Lothar


Tino - Fr 29.11.02 14:44

Zwei unterschiedliche Fragen die auch noch in unterschiedliche Sparten gehören: Also bitte in Zukunft in zwei getrennten Topics posten!

Gruß
TINO


Delete - Fr 29.11.02 22:06

@LCS: Einspruch bzw. Ergänzung:

Quelltext
1:
dwMajorVersion = 5                    

würde Win2000 einschließen. Zusätzlich muss also noch

Quelltext
1:
dwMinorVersion = 1                    

geprüft werden, dann hast du Win XP.

@Stefan: Ich empfehle einen Blick ins MSDN oder PSDK, da sind irgendwo die Versionsnummern aufgeführt.