@jaenicke wenn er keine Adminrechte bekommt, dann könnte er ja trotzdem in die Registry einblicken (Read) aber eben nichts ändern:
Gute Idee hab sogar eine Funktion dazu gefunden:
Code:
function IsNT: boolean;
var OsVersion: TOSVersionInfo;
begin
OsVersion.dwOSVersionInfoSize := sizeof(OsVersion);
if( GetVersionEx(OsVersion) = true ) then
Result := (OsVersion.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsNT = true then
showmessage('This is Windows NT')
else
showmessage('This is NOT Windows NT');
end;
Zitat:
... aber nur wenn du auf JA drückst. Bei NEIN wird die Ausführung abgebrochen.
ja leider
