Windows ve System klasörlerinin bulunması

[COLOR=#B5B5B5][FONT=tahoma]procedure TForm1.Button1Click(Sender: TObject);[/FONT][/COLOR]var
  a : Array[0..144] of char;
begin
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a)); [COLOR=#B5B5B5][FONT=tahoma]end;[/FONT][/COLOR]