DELPHI
关注
分享
扫一扫
文章平均质量分 77
mingday
这个作者很懒，什么都没留下…
展开
-
delphi·返回当前机器名
function pcname:string;var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char; Size: cardinal; re:string;begin Size := MAX_COMPUTERNAME_LENGTH+1; if GetC原创 2009-06-24 16:29:00 · 500 阅读 · 0 评论 -
用delphi增加/获得windows用户帐号
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type USER_INFO_1 = record usri1_name: pwidechar; usri1_passwo转载 2009-06-24 14:54:00 · 1092 阅读 · 0 评论