обновление в блоге - Windows

[Pblog]

Windows

pblog.ruНадо узнать, где запрятана, на компьютере, эта глюченая, но родная система под названием 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 хватит:
(more…)