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 最後在彈出的建立密碼頁面,輸入自...