如何用Delphi程序获得计算机机的名称？(50分)

计算机的名称是在网络标识中定义的，如何用程序获得该名称？

Getcomputername<br>请查阅win32api.hlp

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=91497

GetComputerName

API函数GetComputerName

忘了是谁写的了，copy<br><br>procedure GetDomainList(TV:TTreeView);<br>var<br>a : Integer;<br>ErrCode : Integer;<br>NetRes : Array[0..1023] of TNetResource;<br>EnumHandle : THandle;<br>EnumEntries : DWord;<br>BufferSize : DWord;<br>s : string;<br>itm : TTreeNode;<br>begin<br>{ Start here }<br>try<br>With NetRes[0] do begin<br>dwScope :=RESOURCE_GLOBALNET;<br>dwType :=RESOURCETYPE_ANY;<br>dwDisplayType :=RESOURCEDISPLAYTYPE_DOMAIN;<br>dwUsage :=RESOURCEUSAGE_CONTAINER;<br>lpLocalName :=NIL;<br>lpRemoteName :=NIL;<br>lpComment :=NIL;<br>lpProvider :=NIL;<br>end;<br>{ get net root }<br>ErrCode:=WNetOpenEnum(<br>RESOURCE_GLOBALNET,<br>RESOURCETYPE_ANY,<br>RESOURCEUSAGE_CONTAINER,<br>@NetRes[0],<br>EnumHandle<br>);<br>If ErrCode=NO_ERROR then begin<br>EnumEntries:=1;<br>BufferSize:=SizeOf(NetRes);<br>ErrCode:=WNetEnumResource(<br>EnumHandle,<br>EnumEntries,<br>@NetRes[0],<br>BufferSize<br>);<br>WNetCloseEnum(EnumHandle);<br>ErrCode:=WNetOpenEnum(<br>RESOURCE_GLOBALNET,<br>RESOURCETYPE_ANY,<br>RESOURCEUSAGE_CONTAINER,<br>@NetRes[0],<br>EnumHandle<br>);<br>EnumEntries:=1024;<br>BufferSize:=SizeOf(NetRes);<br>ErrCode:=WNetEnumResource(<br>EnumHandle,<br>EnumEntries,<br>@NetRes[0],<br>BufferSize<br>);<br>IF ErrCode=No_Error then with TV do try<br>a:=0;<br>Items.BeginUpDate;<br>Items.Clear;<br>Itm:=Items.Add(TV.Selected,string(NetRes[0].lpProvider));<br>Itm.ImageIndex:=0;<br>Itm.SelectedIndex:=0;<br><br>{ get domains }<br><br><br>下面的一个单元定义了一个组件. TNetworkBrowser, 可以枚举hierachical树上所有<br>的网络资源. 实际上浏览是要花费很长时间的,这您可以通过在WINDOWS资源管理器<br>中打开"整个网络" 来比较一下. 如果你设置SCOPE属性 为nsContext , 你就可以看到<br>和网络邻居中一样的机器列表.<br><br>unit NetBrwsr;<br><br>interface<br><br>uses<br>Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br><br>type<br>TNetScope = (nsConnected, nsGlobal, nsRemembered, nsContext);<br>TNetResourceType = (nrAny, nrDisk, nrPrint);<br>TNetDisplay = (ndDomain, ndGeneric, ndServer, ndShare, ndFile, ndGroup,<br>ndNetwork, ndRoot, ndShareAdmin, ndDirectory, ndTree, ndNDSContainer);<br>TNetUsage = set of (nuConnectable, nuContainer);<br><br>TNetworkItems = class;<br><br>TNetworkItem = class<br>private<br>FScope: TNetScope;<br>FResourceType: TNetResourceType;<br>FDisplay: TNetDisplay;<br>FUsage: TNetUsage;<br>FLocalName: string;<br>FRemoteName: string;<br>FComment: string;<br>FProvider: string;<br>FSubItems: TNetworkItems;<br>public<br>constructor Create;<br>destructor Destroy; override;<br>property Scope: TNetScope read FScope;<br>property ResourceType: TNetResourceType read FResourceType;<br>property Display: TNetDisplay read FDisplay;<br>property Usage: TNetUsage read FUsage;<br>property LocalName: string read FLocalName;<br>property RemoteName: string read FRemoteName;<br>property Comment: string read FComment;<br>property Provider: string read FProvider;<br>property SubItems: TNetworkItems read FSubItems;<br>end;<br><br>TNetworkItems = class<br>private<br>FList: TList;<br>procedure SetItem(Index: Integer; Value: TNetworkItem);<br>function GetItem(Index: Integer): TNetworkItem;<br>function GetCount: Integer;<br>public<br>constructor Create;<br>destructor Destroy; override;<br>procedure Clear;<br>procedure Add(Item: TNetworkItem);<br>procedure Delete(Index: Integer);<br>property Items[Index: Integer]: TNetworkItem read GetItem write<br>SetItem; default;<br>property Count: Integer read GetCount;<br>end;<br><br>TNetworkBrowser = class(TComponent)<br>private<br>FItems: TNetworkItems;<br>FScope: TNetScope;<br>FResourceType: TNetResourceType;<br>FUsage: TNetUsage;<br>FActive: Boolean;<br>procedure Refresh;<br>procedure SetActive(Value: Boolean);<br>procedure SetScope(Value: TNetScope);<br>procedure SetResourceType(Value: TNetResourceType);<br>procedure SetUsage(Value: TNetUsage);<br>procedure EnumerateNet(NetItems: TNetworkItems; lpnr: PNetResource);<br>protected<br>public<br>constructor Create(AOwner: TComponent); override;<br>destructor Destroy; override;<br>procedure Open;<br>procedure Close;<br>property Items: TNetworkItems read FItems;<br>published<br>property Scope: TNetScope read FScope write SetScope default nsGlobal;<br>property ResourceType: TNetResourceType read FResourceType<br>write SetResourceType default nrAny;<br>property Usage: TNetUsage read FUsage write SetUsage default [];<br>property Active: Boolean read FActive write SetActive default False;<br>end;<br><br>implementation<br><br>type<br>PNetResourceArray = ^TNetResourceArray;<br>TNetResourceArray = array[0..0] of TNetResource;<br><br>{ TNetworkItem }<br><br>constructor TNetworkItem.Create;<br>begin<br>inherited;<br>FSubItems := TNetworkItems.Create;<br>end;<br><br>destructor TNetworkItem.Destroy;<br>begin<br>if FSubItems &lt;&gt; nil then<br>FSubItems.Free;<br>inherited;<br>end;<br><br>{ TNetworkItems }<br><br>constructor TNetworkItems.Create;<br>begin<br>inherited;<br>FList := TList.Create;<br>end;<br><br>destructor TNetworkItems.Destroy;<br>begin<br>Clear;<br>if FList &lt;&gt; nil then<br>FList.Free;<br>inherited;<br>end;<br><br>procedure TNetworkItems.SetItem(Index: Integer; Value: TNetworkItem);<br>begin<br>if (FList.Items[Index] &lt;&gt; nil) and (FList.Items[Index] &lt;&gt; Value) then<br>TNetworkItem(FList.Items[Index]).Free;<br>FList.Items[Index] := Value;<br>end;<br><br>function TNetworkItems.GetItem(Index: Integer): TNetworkItem;<br>begin<br>Result := TNetworkItem(FList.Items[Index]);<br>end;<br><br>procedure TNetworkItems.Clear;<br>begin<br>while Count &gt; 0 do<br>Delete(0);<br>end;<br><br>procedure TNetworkItems.Add(Item: TNetworkItem);<br>begin<br>FList.Add(Item);<br>end;<br><br>procedure TNetworkItems.Delete(Index: Integer);<br>begin<br>if FList.Items[Index] &lt;&gt; nil then<br>TNetworkItem(FList.Items[Index]).Free;<br>FList.Delete(Index);<br>end;<br><br>function TNetworkItems.GetCount: Integer;<br>begin<br>if FList &lt;&gt; nil then<br>Result := FList.Count<br>else<br>Result := 0;<br>end;<br><br>{ TNetworkBrowser }<br><br>constructor TNetworkBrowser.Create(AOwner: TComponent);<br>begin<br>inherited Create(AOwner);<br>FItems := TNetworkItems.Create;<br>FScope := nsGlobal;<br>FResourceType := nrAny;<br>FUsage := [];<br>end;<br><br>destructor TNetworkBrowser.Destroy;<br>begin<br>if FItems &lt;&gt; nil then<br>FItems.Free;<br>inherited;<br>end;<br><br>procedure TNetworkBrowser.EnumerateNet(NetItems: TNetworkItems; lpnr:<br>PNetResource);<br>var<br>dwResult, dwResultEnum: Integer;<br>hEnum: THandle;<br>cbBuffer, cEntries, i: Integer;<br>nrArray: PNetResourceArray;<br>NewItem: TNetworkItem;<br>dwScope, dwType, dwUsage: Integer;<br>begin<br>cbBuffer := 16384;<br>cEntries := $FFFFFFFF;<br><br>case FScope of<br>nsConnected: dwScope := RESOURCE_CONNECTED;<br>nsGlobal: dwScope := RESOURCE_GLOBALNET;<br>nsRemembered: dwScope := RESOURCE_REMEMBERED;<br>nsContext: dwScope := RESOURCE_CONTEXT;<br>else<br>dwScope := RESOURCE_GLOBALNET;<br>end;<br>case FResourceType of<br>nrAny: dwType := RESOURCETYPE_ANY;<br>nrDisk: dwType := RESOURCETYPE_DISK;<br>nrPrint: dwType := RESOURCETYPE_PRINT;<br>else<br>dwType := RESOURCETYPE_ANY;<br>end;<br>dwUsage := 0;<br>if nuConnectable in FUsage then<br>dwUsage := dwUsage or RESOURCEUSAGE_CONNECTABLE;<br>if nuContainer in FUsage then<br>dwUsage := dwUsage or RESOURCEUSAGE_CONTAINER;<br><br>dwResult := WNetOpenEnum(dwScope, dwType, dwUsage, lpnr, hEnum);<br>if dwResult &lt;&gt; NO_ERROR then Exit;<br><br>GetMem(nrArray, cbBuffer);<br>repeat<br>dwResultEnum := WNetEnumResource(hEnum, cEntries, nrArray, cbBuffer);<br>if dwResultEnum = NO_ERROR then<br>for i := 0 to cEntries-1 do<br>begin<br>NewItem := TNetworkItem.Create;<br>case nrArray.dwScope of<br>RESOURCE_CONNECTED: NewItem.FScope := nsConnected;<br>RESOURCE_GLOBALNET: NewItem.FScope := nsGlobal;<br>RESOURCE_REMEMBERED: NewItem.FScope := nsRemembered;<br>RESOURCE_CONTEXT: NewItem.FScope := nsContext;<br>else<br>NewItem.FScope := nsGlobal;<br>end;<br>case nrArray.dwType of<br>RESOURCETYPE_ANY: NewItem.FResourceType := nrAny;<br>RESOURCETYPE_DISK: NewItem.FResourceType := nrDisk;<br>RESOURCETYPE_PRINT: NewItem.FResourceType := nrPrint;<br>else<br>NewItem.FResourceType := nrAny;<br>end;<br>case nrArray.dwDisplayType of<br>RESOURCEDISPLAYTYPE_GENERIC: NewItem.FDisplay := ndGeneric;<br>RESOURCEDISPLAYTYPE_DOMAIN: NewItem.FDisplay := ndDomain;<br>RESOURCEDISPLAYTYPE_SERVER: NewItem.FDisplay := ndServer;<br>RESOURCEDISPLAYTYPE_SHARE: NewItem.FDisplay := ndShare;<br>RESOURCEDISPLAYTYPE_FILE: NewItem.FDisplay := ndFile;<br>RESOURCEDISPLAYTYPE_GROUP: NewItem.FDisplay := ndGroup;<br>RESOURCEDISPLAYTYPE_NETWORK: NewItem.FDisplay := ndNetwork;<br>RESOURCEDISPLAYTYPE_ROOT: NewItem.FDisplay := ndRoot;<br>RESOURCEDISPLAYTYPE_SHAREADMIN: NewItem.FDisplay :=<br>ndShareAdmin;<br>RESOURCEDISPLAYTYPE_DIRECTORY: NewItem.FDisplay :=<br>ndDirectory;<br>RESOURCEDISPLAYTYPE_TREE: NewItem.FDisplay := ndTree;<br>RESOURCEDISPLAYTYPE_NDSCONTAINER: NewItem.FDisplay :=<br>ndNDSContainer;<br>else<br>NewItem.FDisplay := ndGeneric;<br>end;<br>NewItem.FUsage := [];<br>if nrArray.dwUsage and RESOURCEUSAGE_CONNECTABLE &lt;&gt; 0 then<br>Include(NewItem.FUsage, nuConnectable);<br>if nrArray.dwUsage and RESOURCEUSAGE_CONTAINER &lt;&gt; 0 then<br>Include(NewItem.FUsage, nuContainer);<br>NewItem.FLocalName := StrPas(nrArray.lpLocalName);<br>NewItem.FRemoteName := StrPas(nrArray.lpRemoteName);<br>NewItem.FComment := StrPas(nrArray.lpComment);<br>NewItem.FProvider := StrPas(nrArray.lpProvider);<br>NetItems.Add(NewItem);<br>// if container, call recursively<br>if (nuContainer in NewItem.FUsage) and (FScope &lt;&gt; nsContext) then<br>EnumerateNet(NewItem.FSubItems, @nrArray)<br>end;<br>until dwResultEnum = ERROR_NO_MORE_ITEMS;<br><br>FreeMem(nrArray);<br>WNetCloseEnum(hEnum);<br>end;<br><br>procedure TNetworkBrowser.Refresh;<br>begin<br>FItems.Clear;<br>if FActive then<br>EnumerateNet(FItems, nil);<br>end;<br><br>procedure TNetworkBrowser.SetActive(Value: Boolean);<br>begin<br>if Value &lt;&gt; FActive then<br>begin<br>FActive := Value;<br>Refresh;<br>end;<br>end;<br><br>procedure TNetworkBrowser.SetScope(Value: TNetScope);<br>begin<br>if Value &lt;&gt; FScope then<br>begin<br>FScope := Value;<br>Refresh;<br>end;<br>end;<br><br>procedure TNetworkBrowser.SetResourceType(Value: TNetResourceType);<br>begin<br>if Value &lt;&gt; FResourceType then<br>begin<br>FResourceType := Value;<br>Refresh;<br>end;<br>end;<br><br>procedure TNetworkBrowser.SetUsage(Value: TNetUsage);<br>begin<br>if Value &lt;&gt; FUsage then<br>begin<br>FUsage := Value;<br>Refresh;<br>end;<br>end;<br><br>procedure TNetworkBrowser.Open;<br>begin<br>Active := True;<br>end;<br><br>procedure TNetworkBrowser.Close;<br>begin<br>Active := False;<br>end;<br><br>end.<br><br>

sorry,王寒松大侠贴过，不过我没测试过，习习

看的眼都花了.厉害

我查了，是王寒松贴的，不过我测试未通过，我想用GetComputerName函数，<br>我的机器未查到Win32Api.hlp,请具体说明GetComputerName的用法，<br>多谢！

据我所知，GetComputerName只能在NT下用，在9X下还得读注册表<br>

&gt;&gt;我的机器未查到Win32Api.hlp,请具体说明GetComputerName的用法??<br><br>The GetComputerName function retrieves the computer name of the<br>&nbsp;current system. This name is established at system startup, when <br>it is initialized from the registry. <br><br>BOOL GetComputerName(<br>&nbsp; &nbsp; LPTSTR lpBuffer, // address of name buffer<br>&nbsp; &nbsp; LPDWORD nSize // address of size of name buffer <br>&nbsp; &nbsp; <br><br><br>Parameters<br><br>lpBuffer<br><br>Points to a buffer to receive the null-terminated character <br>string containing the computer name. <br><br>nSize<br><br>Points to a variable that specifies the maximum size, in characters, <br>of the buffer. This value should be large enough to contain <br>MAX_COMPUTERNAME_LENGTH + 1 characters. <br>&nbsp;<br><br>Return Values<br><br>If the function succeeds, the return value is nonzero and the <br>variable represented by the nSize parameter contains the number of <br>characters copied to the destination buffer, not including the <br>terminating null character. <br>If the function fails, the return value is zero. To get extended <br>error information, call GetLastError<br>

它分别有对应好几个OS的:<br><br>function GetComputerNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;<br>{$EXTERNALSYM GetComputerNameW}<br>function GetComputerNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;<br>{$EXTERNALSYM GetComputerName}<br>function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;

多人接受答案了。