怎样取得本机的计算机名和本机sql server 2000服务器名

Question

在DELPHI中怎样取得本机的计算机名和本机sql server 2000服务器名

Answer 1

取本机名
var name:pchar;len:dword;
begin
len:=30;
getmem(name,30);
getcomputername(name,len);
showmessage(name);
end;

Answer 2

取服务器应该是：
Query.sql.text:='select @@SERVERNAME';
Query.open;

Answer 3

sql服务器
uses
　comobj;procedure TForm1.btnButton1Click(Sender: TObject);
var
　SQLServer: Variant;
　ServerList: Variant;
　i, nServers: integer;
　sRetValue: String;
begin
　SQLServer := CreateOleObject('SQLDMO.Application');
　ServerList := SQLServer.ListAvailableSQLServers;
　nServers := ServerList.Count;
　for i := 1 to nservers do
　　ListBox1.Items.Add(ServerList.Item(i));
　SQLServer := NULL;
　serverList := NULL;

Answer 4

获得计算机名字
s:array[1..127] of char;
i:dword;
GetComputerName(@s,i);
edit1.text:=s;服务器的已经有很多人说了，我就不说了

Answer 5

我知道的几种方法，但最好的办法是：
你可以到问题搜索中搜索sql server，立刻就有结果。