مشکل در تابع برگرداندن نام کامپیوتر

[paria92]

سلام دوستان لطفاً کمک کنید.من این قطعه کد رو نوشتم که این تابع نام کامپیوتر رو برگردونه ولی ارر میده کسی میتونه مشکلمو حل کنه؟

procedure TForm1.btn1Click(Sender: TObject);

var

  d:DWORD;

  p:PChar;

begin

d:=256;

GetComputerName(d,p);

edt1.Text:=p;

end;

end.

[hadisalahi2]

Function GetComputerName: string;

var

  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

  Size: Cardinal;

begin

  Size := MAX_COMPUTERNAME_LENGTH + 1;

  Windows.GetComputerName(@buffer, Size);

  Result := StrPas(buffer);

  GetComputerName:=Result;

end;

[دلفــي]

سلام دوستان لطفاً کمک کنید.من این قطعه کد رو نوشتم که این تابع نام کامپیوتر رو برگردونه ولی ارر میده کسی میتونه مشکلمو حل کنه؟

procedure TForm1.btn1Click(Sender: TObject);

var

  d:DWORD;

  p:PChar;

begin

d:=256;

GetComputerName(d,p);

edt1.Text:=p;

end;

end.

procedure TForm1.btn1Click(Sender: TObject);

var

  d:DWORD;

  p: Array [0 .. 256] of char;

begin

d:=256;

GetComputerName(p,d);  // جاي p , d تعويض شده است

edt1.Text:=p;

end;