Надо узнать, где запрятана, на компьютере, эта глюченая, но родная система
под названием windows:
Private
Windir: string;
WindirP:
PChar;
Res: Cardinal;
//…
procedure TForm1.Button1Click(Sender: TObject);
begin
WinDirP :=
StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP,
MAX_PATH);
if Res > 0 then
WinDir :=
StrPas(WinDirP);
Caption := WinDir;
end;
Теперь надо выяснить, что за windows и dos перед нами. Думаю, пару label и
одной button хватит:
procedure TForm1.Button1Click(Sender: TObject);
var
WinVersion, DosVersion: Word;
begin
WinVersion :=
GetVersion and $0000FFFF;
DosVersion := GetVersion shr 16;
Label1.Caption:=IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion));
Label2.Caption:=IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion));
end;