name.pas

Delphi实效编程百例的随书源代码 这是其中的操作系统部分

unit name;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
        ComputerName: PChar;
        size: DWord;
begin
        GetMem(ComputerName, 255);
        size := 255;
        // 获取计算机名称
        if GetComputerName(ComputerName,size)=False then
        begin
                MessageBox( Handle, '获取计算机名称失败。' , '错误' , MB_OK+MB_ICONERROR);
                FreeMem( ComputerName );
                Exit ;
        end;
        Edit1.Text := ComputerName;
        FreeMem(ComputerName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
        ComputerName: String;  //保存计算机名的String
        result: bool;
        error: dword;
begin
        // 设置计算机名称
        ComputerName:=Edit1.Text;
        result:=SetComputerName(PChar(ComputerName));
         //判断是否正确执行了SetComputerName
        if result=false then
        begin
                error:=GetLastError();
                MessageBox( Handle, '设置计算机名称失败' , '错误' , MB_OK+MB_ICONERROR);
                Exit ;
        end;
end;

end.