Delphi如何獲取本地計算機名和IP地址

2021-05-22 11:56:51 字數 1835 閱讀 3238

1樓:雲南新華電腦學校

uses windows;

function gethostname:string;

varcomputername: array[0..max_computername_length+1] of char;

size: cardinal;

begin

result:='';

size := max_computername_length+1;

getcomputername(computername, size);

result:=strpas(computername);

end;

delphi如何獲取本地計算機名

2樓:巴山夜酒

unit unit1;

inte***ce

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs;

type

tform1 = class(tform)

private

public

end;

function _getcomputername:string;

implementation

//獲取本地完整的計算機名稱

function _getcomputername:string;

varmpcname:array[0..255] of char;

nsize:cardinal;

begin

nsize:= 256;

fillchar(szcomputername,sizeof(mpcname),0);

getcomputername(mpcname,nsize);

if strpas(mpcname)= '' then

result:= ''

else

result:= strpas(mpcname);

end;

end.

3樓:

右擊我的電腦圖示,屬性裡面,計算機名,裡面就寫的了,一看就知道

4樓:

function getcomputernetname: string;

varbuffer: array[0..255] of char;

size: dword;

begin

size := 256;

if getcomputername(buffer, size) then

result := buffer

else

result := ''

end;

function getuserfromwindows: string;

varusername : string;

usernamelen : dword;

begin

usernamelen := 255;

setlength(username, usernamelen) ;

if getusername(pchar(username), usernamelen) then

result := copy(username,1,usernamelen - 1)

else

result := 'unknown';

end;

~~~~~~~~~~~~~~~~~~~~~~~~~

怎樣獲取檢視本地計算機名稱

如何自學計算機程式設計?如何學習計算機程式設計?

你好,首先你要有一臺電腦。然後網上找一個免費自學程式設計 每天在上面學習,敲敲打打 堅持且培養興趣!你會變成大佬的!望!如何學習計算機程式設計?可以找相關專業的學校進行學習的。對於計算機零基礎的同學來講,入門程式設計可以先從一些能夠獲得即時反饋的課程來學習,這裡推薦一個比較好的平臺,叫做 夜曲程式設...

計算機如何分類,計算機軟體是如何分類的

計算機分為模擬式電子計算機和數字式電子計算機兩大類。計算機又分巨型 大型 中型 小型 微型和單片型等。1 巨型機。主要是從效能方面去定義的。20世紀70年代,國際上以運算速度在每秒1000萬次以上,儲存容量在1000萬位以上的計算機稱為巨型機 也有人把運算速度超過每秒執行1000萬條指令 主儲存器容...

涉密計算機如何設定口令,涉密計算機管理設定密碼

以win10為例,設定方法如下 1 首先我們開啟電腦,點選 開始 選單,找到 設定 2 接著我們在 設定 選單裡找到 賬戶 點選進入。3 接著點選 賬戶 選擇頁面右側的 登入選項 4 在 登入選項 裡新增密碼。下面還有關於電腦的其他密碼設定,需要的話進行設定即可。5 最後在彈出的建立密碼頁面,輸入自...