Autor Beitrag
Willie1
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 32

Win 98 SE, Win XP Home
Delphi 5 Prof., Delphi 6/7 Pers.
BeitragVerfasst: Do 09.03.06 11:24 
Hi,

wie kann in einem mit Delphi erzeugten Programm erkennen, ob die OS-Plattform Windows XP Home oder Professional ist.

MfG
W.
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 09.03.06 11:32 
In dem du die magischen Wörter deines Beitrages in die Suche eintippst.
MagicAndre1981
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 09.03.06 12:21 
Auf der DP hab ich eine umfangreiche Version gebastelt:

Suche in der Delphi-PRAXiS WINDOWS VERSION ERMITTELN

André
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Do 09.03.06 14:40 
Eine umfangereiche Implementierung gibt's in der OIncProcs.pas. In mehreren Versionen ...

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
Willie1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 32

Win 98 SE, Win XP Home
Delphi 5 Prof., Delphi 6/7 Pers.
BeitragVerfasst: Do 09.03.06 16:10 
Titel: XP Home + Prof erkennen
Hallo Leute,

danke für eure Tips!!!!!

Da hat es MS aber mal wieder kompliziert gemacht.

Gruß
Willie1
Willie1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 32

Win 98 SE, Win XP Home
Delphi 5 Prof., Delphi 6/7 Pers.
BeitragVerfasst: Do 09.03.06 19:05 
Titel: XP Home und Prof
Gibt es keine einfache Art, wie man(frau) die Home- von der Prof.-Edition unterscheiden kann? Nur mal ne Frage...???

Gruß W.
SAiBOT
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 323
Erhaltene Danke: 6

XP SP2; 7
D7; D2009
BeitragVerfasst: Do 09.03.06 20:18 
from uallutils.pas

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
function is9x: boolean; stdcall;
asm
  MOV     EAX, FS:[030H]
  TEST    EAX, EAX
  SETS    AL
end;

function isNT: boolean; stdcall;
begin
  result := (GetVersion and $80000000) = 0;
end;


wenn das kompliziert sein soll :D
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 09.03.06 20:28 
"Am Thema vorbei." Es geht um Home <> Professional und nicht NT ff <> 9x.
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Do 09.03.06 20:30 
@LordEvil: Gegen uall's HideLibrary-Funktionen sind die genannten Funktionen für NT\9x regelrecht einfach *g*.

Wenn er rein von XP die Hohn und die Pro unterscheiden will, sollte er sich einfach mal die Routine WindowsVersionStrEx in der besagten Unit oben genau anschauen ... Dort ist das eigentlich EINDEUTIG zu sehen, was man abfragen muss ;-)

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
SAiBOT
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 323
Erhaltene Danke: 6

XP SP2; 7
D7; D2009
BeitragVerfasst: Do 09.03.06 20:45 
user profile iconLuckie hat folgendes geschrieben:
"Am Thema vorbei." Es geht um Home <> Professional und nicht NT ff <> 9x.


ups, sry nicht richtig gelesen :oops:
MagicAndre1981
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Fr 10.03.06 01:15 
user profile iconBenBE hat folgendes geschrieben:
Eine umfangereiche Implementierung gibt's in der OIncProcs.pas. In mehreren Versionen ...


Da fehlt aber noch die Hälfte :wink:

Schau mal hier:

www.delphipraxis.net...st326888.html#326888
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Fr 10.03.06 12:11 
Thx, werd mir die Unit mal anschauen und die OIncProcs.pas entsprechend aktualisieren ;-)

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5285
Erhaltene Danke: 29

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: Fr 10.03.06 12:43 
der unterschied liegt eigentlich nur in einem byte einer bestimmen dll, weiß aber grad net welche dat war. da könnte man das zB auslesen.
MagicAndre1981
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Fr 10.03.06 18:54 
user profile iconF34r0fTh3D4rk hat folgendes geschrieben:
der unterschied liegt eigentlich nur in einem byte einer bestimmen dll, weiß aber grad net welche dat war.


Nöö, in einem Registry Eintrag ;)

ausblenden Quelltext
1:
HKLM\HomeKey\CurrentControlSet001\Control\ProductOptions\ProductSuite					


Personal = WinXP Home ;)
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5285
Erhaltene Danke: 29

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: Fr 10.03.06 20:45 
da kann ja alles drinstehen, sagt aber nichts über die version aus