بدست اوردن نام server تعریف شده در sql server به وسیله دلفی

[reza_Nazem]

سلام
خواهش می کنم کمکم کنید

[Babak-Aghili]

.........................

http://www.barnamenevis.org/sh...C2%E6%D1%CF%E4

[reza_Nazem]

بابک متشکرم
من بوسیله یک تایع API در دلفی توانستم مشکلم را حل کنم
ولی راه حل شما مطمئن تر و حرفه ای تر می باشد

[arshia_]

اگر ممکنه شما هم روش مورد استفاده خودتون رو اینجا برای دوستان بنویسید
ممنون

[reza_Nazem]

procedure TForm1.Button2Click(Sender: TObject);
Var Len : Integer;
temp : PChar;
begin
Len := 50;
GetMem(temp , Len );
GetComputerName(temp,MainThreadID);
Edit1.Text := temp;
FreeMem(temp);
end;