在 API 函数中使用 PChar 参数的几种方法
在 API 函数中使用 PChar 参数的几种方法
涂孟超 发表于3年前
在 API 函数中使用 PChar 参数的几种方法
  • 发表于 3年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

标题:腾讯云 新注册用户域名抢购1元起>>>   


//以 GetWindowsDirectory 为例:

{ 以静态数组做缓冲区 }
procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..MAX_PATH-1] of Char;
begin
  GetWindowsDirectory(buf, SizeOf(buf));
  ShowMessage(buf); { C:\\WINDOWS }
end;

{ 自己分配内存 }
procedure TForm1.Button2Click(Sender: TObject);
var
  p: PChar;
begin
  p := StrAlloc(MAX_PATH);
  GetWindowsDirectory(p, StrBufSize(p));
  ShowMessage(p); { C:\\WINDOWS }
  StrDispose(p);
end;

{ 直接使用 string; 这和下一种方法都需要再删除尾部空白 }
procedure TForm1.Button3Click(Sender: TObject);
var
  str: string;
  len: Integer;
begin
  SetLength(str, MAX_PATH);
  len := GetWindowsDirectory(PChar(str), ByteLength(str));
  SetLength(str, len);
  ShowMessage(str); { C:\\WINDOWS }
end;

{ 同时, 把 PChar(str) 改为 @str[1] }
procedure TForm1.Button4Click(Sender: TObject);
var
  str: string;
  len: Integer;
begin
  SetLength(str, MAX_PATH);
  len := GetWindowsDirectory(@str[1], ByteLength(str));
  SetLength(str, len);
  ShowMessage(str); { C:\\WINDOWS }
end;

{ 这种方法最好, 先获取结果的长度... }
procedure TForm1.Button5Click(Sender: TObject);
var
  len: Integer;
  str: string;
begin
  len := GetWindowsDirectory(nil, 0);
  SetLength(str, len);
  GetWindowsDirectory(PChar(str), len);
  ShowMessage(str); { C:\\WINDOWS }
end;

 
 
 
 
 

 

 

  
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: