Zwei Fragen 1. Mediaplayer 2. Wie ermittelt ich, ob OS WinXP

stefanstp · Beiträge: 106

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 · Verfasst: 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:

markieren

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

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

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

Gruß
TINO

Ehemaliges Mitglied Erhaltene Danke: 1

@LCS: Einspruch bzw. Ergänzung:

markieren

Quelltext

1:	dwMajorVersion = 5

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

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme