String与Windows API结合的简单问题，帮帮菜鸟吧！发言给分

Question

SetLength(CurrentDir,200);GetCurrentDirectory(Length(CurrentDir),Pchar(CurrentDir)^);

Answer 1

SetLength(CurrentDir,200);GetCurrentDirectory(Length(CurrentDir),Pchar(CurrentDir)^);

Answer 2

对使用SetLength或者
var
CurrentDirectory:array[0..255] of char;
begin
GetCurrentDirectory(256,CurrentDirectory);
ShowMessage(CurrentDirectory);
end;

Answer 3

var
       CurrentDirectory:array[0..MAX_PATH] of char;
begin
       GetCurrentDirectory(MAX_PATH,@CurrentDirectory[0]);
       ShowMessage(CurrentDirectory);
end;

Answer 4

同意 yang6130(月明@沧海)的，应该用MAX_PATH