怎样解决DELPHI中调用API后的传递参数的问题

Question

比如说调用Getcomputername()这个API函数，其中有两个参数，第一个参数是PCHAR类型，第二个参数是cardinal类型，如果要将第一个PCHAR类型转换成STRING类型应怎样做？

Answer 1

function GetName: string;
var
  szName: array [0..128] of Char;
  dwSize: DWORD;
begin
  dwSize := 128;
  if not GetComputerName(szName, dwSize) then
    StrCopy(szName, '未知');
  Result := szName;
end;

Answer 2

String = strPas(PChar);
PChar = PChar(string) ;