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

[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;