delphi 修改计算机名称,delphi更改计算机用户名.doc

unit Unit1;

interface

uses

Windows,winsock, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,nb30, StdCtrls, DB, ADODB,IniFiles, ComCtrls;

type

TForm1 = class(TForm)

ipdz: TEdit;

jsjm: TEdit;

dzlx: TEdit;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ADOConnection1: TADOConnection;

newyhm: TEdit;

ADOQuery1: TADOQuery;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

Edit1: TEdit;

StatusBar1: TStatusBar;

Edit2: TEdit;

Edit3: TEdit;

Label5: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

DataFile:string;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

getpz,getpz1:TIniFile;

s,ss:string;

const

link='Provider=Microsoft.Jet.OLEDB.4.0;'+

'Data Source=%s;Persist Security Info=False;'+

'Jet OLEDB:Database Password=5491267';

implementation

{$R *.dfm}

function NBGetAdapterAddress(a: integer): String;

//a指定多个网卡适配器中的哪一个0，1，2...

Var

NCB:TNCB; // Netbios control block file://NetBios控制块

ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态

LANAENUM : TLANAENUM; // Netbios lana

intIdx : Integer; // Temporary work value//临时变量

cRC : Char; // Netbios return code//NetBios返回值

strTemp : String; // Temporary string//临时变量

Begin

// Initialize

Result := '';

Try

// Zero control blocl

ZeroMemory(@NCB, SizeOf(NCB));

// Issue enum command

NCB.ncb_command:=Chr(NCBENUM);

// cRC := NetBios(@NCB);

// Reissue enum command

NCB.ncb_buffer := @LANAENUM;

NCB.ncb_length := SizeOf(LANAENUM);

cRC := NetBios(@NCB);

If Ord(cRC)<>0 Then

exit;

// Reset adapter

ZeroMemory(@NCB, SizeOf(NCB));

NCB.ncb_command := Chr(NCBRESET);

NCB.ncb_lana_num := LANAENUM.lana[a];

cRC := NetBios(@NCB);

If Ord(cRC)<>0 Then