Блог программистов

Надо узнать, где запрятана, на компьютере, эта глюченая, но родная система под названием 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;