关于getwindowsdirectory

Question

wins:string[30];
用getwindowsdirectory(@wins,sizeof(wins))获取windows目录返回总是
':\windows',怎么使其返回完整路径?

Answer 1

var s1,s2,s3:array[1..40] of char;z1,z2:string;
getwindowsdirectory(@s1,40);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  WinDir: array[0..MAX_PATH] of char;   // holds the Windows directory
begin
  {retrieve the Windows directory...}
  GetWindowsDirectory(WinDir, MAX_PATH);  {...and display it}
  Label1.Caption := StrPas(WinDir)
end;

Answer 3

var
  filename: pchar;
begin
  getmem(filename,256);
  getwindowsdirectory(filename,256);
  showmessage(filename);
end;

Answer 4

wins:string[30];getwindowsdirectory(@wins[1],30);
wins[0] := Char(StrLen(@wins[1]));

Answer 5

var
  ps: Pchar;
begin
  GetMem(ps,255);
  getwindowsdirectory(ps,255);
  Result := StrPas(ps);
  FreeMem(ps);
end;