Wersja Windowsa

Jak sprawdzic na jakiej wersji Windows zostal uruchomiony program? Oczywiscie chodzi mi czy to jest 95, 98, Me itd. itp. [cya]

http://4programmers.net/view_faq.html?id=258
lub GetVersionEx

function GetSystem: String;
var
OSinfo: OSVERSIONINFO;
OS: string;
begin

OSinfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
GetVersionEx(OSinfo);

case (OSinfo.dwPlatformId) of

VER_PLATFORM_WIN32s: OS := 'WIN 3.1' ;

VER_PLATFORM_WIN32_WINDOWS:
 case (OSinfo.dwMajorVersion + OSinfo.dwMinorVersion) of
    4:  OS := 'Win 95' ;
    14: OS := 'Win 98' ;
    94: OS := 'Win Me' ;
    end;

VER_PLATFORM_WIN32_NT:
case (OSinfo.dwMajorVersion + OSinfo.dwMinorVersion) of
54: OS := 'Win NT 3.51';
4: OS := 'Win NT 4.0';
5: OS := 'Win 2000';
6: OS := 'Win XP';
7: OS := 'Windows Server 2003';
end;

else OS := 'Nieznany';
end;

Result := OS;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := GetSystem; //zwykle przypisanie
end;

end.

w takim razie ja jeszcze moze zapytam jak mozna pobrac wersje systemu operacyjnego poprzez internet/lan znajac ip. wiem ze to jest mozliwe bo np nmap czy languard podaje takie informacje.