delphi·返回当前机器名

最新推荐文章于 2021-12-30 16:05:20 发布
原创 最新推荐文章于 2021-12-30 16:05:20 发布 · 530 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #function

本文介绍了一个使用Pascal语言编写的简单函数，该函数能够获取并返回当前计算机的名称。通过调用GetComputerName函数，并利用StrPas进行字符串处理，确保了返回值的准确性。

Delphi 获取计算机名
小印丶的笔记
10-24 807
RAD Studio 10.2.3 测试√ procedure TForm_Tips.Button_GetComputerNameClick(Sender: TObject); {取得计算机名} function ComputerName: string; var CNameBuffer: PChar; fl_loaded: Boolean; CLen: ^DWord; begin GetMem(CNameBuffer, 255); New(CLen
Delphi 获得计算机名
Microblue（严 武）
08-02 2558
{获得计算机版本} v := windows.GetVersion; if v >= $80000000 then strNT := 'Not' else strNT := 'Yes'; {获得计算机名} function GetComputerName: string; var buffer: array[0..MAX_COMPUTERNAME_LENGTH +
delphi修改系统计算机名称
11-29
软件随即产生一个8位的值，并修改计算机名称。无需重启即可生效。
delphi 中获取计算机名和IP
rznice的专栏
05-07 7522
function GetComputerName:String; //获取计算机名称 var wVersionRequested : WORD; wsaData : TWSAData; p : PHostEnt; s : array[0..128] of char; begin try wVersionRequested := MAKEWORD(1, 1);
Delphi获取和修改计算机名称..rar
04-28
Delphi获取和修改计算机名称..rar
delphi获取Mac物理地址以及计算机名用户名IP地址CPUID等源代码分享
01-26
包含我的一个单元文件。自己写的哦。看完之后大家记得给点改进意见哦
Python4Delphi演示源程序
最新发布
02-07
5. `Primes_Demo.dproj.local`：这可能是项目特定的本地设置，如编译器选项，只在当前机器上生效。 6. `uMainForm.pas`：这是Delphi的源代码文件，包含了`uMainForm`的逻辑，其中可能会有调用Python的代码，比如...
Delphi实现远程机器网卡MAC地址获取工具
而`GetIpNetTable`则用于枚举当前ARP表中的所有条目，程序可在其中遍历查找目标IP对应的物理地址。这些API调用需要正确的数据结构定义（如`MIB_IPNETROW`）、内存分配与释放处理，以及错误码的判断，体现了较强的...
Delphi网络编程实例：机器与性能计数器枚举
首先，PdhEnumMachines函数用于列举当前网络环境中所有可用的机器名称（即主机名），这对于构建分布式监控系统至关重要，开发者可以通过该函数发现局域网内支持性能数据共享的计算机节点。接着，PdhConnectMachine...
Delphi2009获取主机名和IP地址
08-31
如果你只需要获取本地主机的IP地址，可以使用`GetHostByName`函数，传入空字符串或'localhost'，它会返回当前机器的IP地址。 另外，如果你的代码是针对IPv4，可以使用`GetHostByName`；对于IPv6，则可以使用`...
DELPHI XE 获取CPU序列号
03-27
代码中的`DW$A20F`表示的是`cpuid`指令的机器码，通过这种方式，我们可以将`cpuid`的执行结果保存到寄存器`iEax`、`iEbx`、`iEcx`和`iEdx`中。 最后，通过`Format`函数将这些寄存器的值格式化为字符串，并返回给...
delphi 获取计算机名称,Delphi 得到局域网内所有电脑的名称和IP地址
weixin_35419402的博客
07-29 596
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, WinSock, StdCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;procedure FormCreate(Sender: TO...
delphi 计算机名,Delphi 读取设置计算机名
weixin_30551437的博客
07-28 300
源代码：-----------------------------------------------------------------------------------------unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ...
Delphi获取计算机名
weixin_30747253的博客
01-12 197
代码实现如下 procedure TMainForm.tmrMonitorTimer(Sender: TObject); var ComputerName:array[0..MAX_COMPUTERNAME_LENGTH+1] of char; //保留计算机名的缓冲区 Buffer:Dword; // 缓冲区大小 sComputerName:string;//计算机名 b...
Delphi 如何获取本地计算机名和IP地址
sanoul的专栏
06-21 2349
获取计算机名函数：uses Windows;function GetHostName:String; var  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;  Size: Cardinal;begin  result:=;  Size := MAX_COMPUTERNAME_LENGTH+1;  GetComputerNa
delphi 获取本机IP地址和MAC地址
ijong的笔记
05-18 4793
<br />unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C_Err_GetNameByIpAddr = '获取主机名失败'; C_Err_GetSQLServerList = '获取SQLServer服务器失败';
Delphi获取计算机名称及IP地址
Delphi、Java、Ext、Ubuntu
08-06 550
[code="Delphi"] function GetComputerName:String; //获取计算机名称 var wVersionRequested : WORD; wsaData : TWSAData; p : PHostEnt; s : array[0..128] of char; begin try wVersionRequested :=...
GetComputerName 获取计算机名称
weixin_30656145的博客
12-20 336
BOOL GetComputerName( LPTSTR lpBuffer, LPDWORD lpnSize ); GetComputerName函数用来获取计算机的名称，lpBuffer是TCHAR[]类型，TCHAR的数量可以设置为MAX_COMPUTERNAME_LENGTH+1,lpnSize就是lpBuffer的位数 转载于:https://www.cnbl...
Delphi 获取本地电脑名称/IP/MAC Address
y_nanfang的博客
12-30 802
Delphi 获取本地电脑名称/IP/MAC ADDEESS function GetBiosName:string; var cName:array[0…255] of char
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值