Delphi编程之系统OEM DIY

最新推荐文章于 2025-09-13 08:01:12 发布

weixin_30448603

最新推荐文章于 2025-09-13 08:01:12 发布

阅读量104

点赞数

CC 4.0 BY-SA版权

文章标签：操作系统

原文链接：http://www.cnblogs.com/guowangyunxiao/p/5287408.html

具体代码如下：

//转载请注明出处

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs,Registry;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    OpenPictureDialog1: TOpenPictureDialog;
    Image1: TImage;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') and (Edit2.Text='') and (Edit3.Text='') and (Edit4.Text='') and (Edit5.Text='') then
MessageBox(0,'您还没有填写相关信息呢！','提示信息',64)
else
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Edit6.Text:= ExtractFileDir(OpenPictureDialog1.FileName)+'\'+ExtractFileName(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Image1.Picture.Bitmap.Empty then
MessageBox(0,'您还没有载入图片呢！','提示信息',64)
else
Image1.Picture.Bitmap:=nil;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
MessageBox(0,'作者：过往云霄 QQ：154103651'+#13+#13'操作系统：Windows 10简体中文专业版64位'+#13+#13'编程工具：Delphi 2010英文架构师版','提示信息',64);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
  Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation',True) then
  begin
    Reg.WriteString('Manufacturer',Edit1.Text);
    Reg.WriteString('Model',Edit2.Text);
    Reg.WriteString('SupportHours',Edit3.Text);
    Reg.WriteString('SupportPhone',Edit4.Text);
    Reg.WriteString('SupportURL',Edit5.Text);
    //Reg.WriteString('Logo',ExtractFileName(OpenPictureDialog1.FileName));  获得文件名称
     Reg.WriteString('Logo',ExtractFileDir(OpenPictureDialog1.FileName)+'\'+ExtractFileName(OpenPictureDialog1.FileName));
    Reg.CloseKey;
  end;
finally
Reg.Free;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close;
end;

end.