mainunit.pas

DELPHI函数包 有很多程序员都需要的函数包

unit MainUnit;

interface

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

type
  TMainForm = class(TForm)
    BAbout: TButton;
    Button2: TButton;
    Button3: TButton;
    bshowdatetime: TButton;
    BGetCpuId: TButton;
    BGetWindir: TButton;
    BGetOSInfo: TButton;
    BGetScreen: TButton;
    SpeedButton1: TSpeedButton;
    Button4: TButton;
    Button5: TButton;
    Button10: TButton;
    Button1: TButton;
    Button7: TButton;
    Button13: TButton;
    SpeedButton3: TSpeedButton;
    Button14: TButton;
    BPlayMusic: TButton;
    OpenDialog: TOpenDialog;
    Panel1: TPanel;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    BDESEncryStr: TButton;
    BDESDecryStr: TButton;
    EGetScreenWh: TEdit;
    BGetScreenWH: TButton;
    BGetDriveType: TButton;
    EGetDriveType: TEdit;
    procedure BAboutClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure BGetWindirClick(Sender: TObject);
    procedure BGetCpuIdClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BGetOSInfoClick(Sender: TObject);
    procedure bshowdatetimeClick(Sender: TObject);
    procedure BGetScreenClick(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure BPlayMusicClick(Sender: TObject);
    procedure BDESDecryStrClick(Sender: TObject);
    procedure BDESEncryStrClick(Sender: TObject);
    procedure BGetScreenWHClick(Sender: TObject);
    procedure BGetDriveTypeClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  S:string;
  
implementation

uses PowerDll;


//function GetScreen(IncludeCur:Boolean;FileName:string):boolean; external 'powerdll.dll';

{$R *.dfm}

procedure TMainForm.BAboutClick(Sender: TObject);
begin
  ShowMessage(PowerDllAbout);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
try
  KillProcess('QQ.EXE');
except end;
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
try
  AutoRun(PChar(ParamStr(0)),'AutoRunValue');
except end;
end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);
begin
try
  ShowMessage(GetIPAddress);
except end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
try
  OpenCDRom(1);
except end;
end;

procedure TMainForm.Button5Click(Sender: TObject);
begin
  OpenCDRom(0);
end;

procedure TMainForm.Button10Click(Sender: TObject);
begin
  ShowMessage(GetDiskNumber)
end;

procedure TMainForm.BGetWindirClick(Sender: TObject);
begin
  ShowMessage(GetWinDir);
end;

procedure TMainForm.BGetCpuIdClick(Sender: TObject);
begin
try
  ShowMessage(IntToStr(GetCPUId));
except end;
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
try
  if MessageDlg('确实要关机吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
    ShutDown;
except end;
end;

procedure TMainForm.BGetOSInfoClick(Sender: TObject);
begin
  ShowMessage(GetOSInfo);
end;

procedure TMainForm.bshowdatetimeClick(Sender: TObject);
begin
  ShowMessage(GetDateTime);
end;

procedure TMainForm.BGetScreenClick(Sender: TObject);
begin
try
  GetScreen(True,'D:\Screen.bmp');
  MessageBox(0,'屏幕图像已经保存为文件：D:\Screen.bmp','',0);
except end;
end;

procedure TMainForm.Button13Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetFileSize(PChar(ParamStr(0)))));
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  LockReg(True);
end;

procedure TMainForm.Button7Click(Sender: TObject);
begin
  LockReg(False);
end;

procedure TMainForm.Button14Click(Sender: TObject);
begin
try
  DeleteMe;
except end;
end;

procedure TMainForm.BPlayMusicClick(Sender: TObject);
begin
try
  if not OpenDialog.Execute then exit;
  PlayMusic(True,PChar(OpenDialog.FileName));
except end;
end;

procedure TMainForm.BDESDecryStrClick(Sender: TObject);
begin
try
  Edit3.text:=DESDecryStr(PChar(Edit3.text),PChar(Edit2.Text));
except end;
end;

procedure TMainForm.BDESEncryStrClick(Sender: TObject);
begin
try
  Edit3.Text:=DESEncryStr(PChar(Edit1.text),PChar(Edit2.Text));
except end;
end;

procedure TMainForm.BGetScreenWHClick(Sender: TObject);
begin
try
  ShowMessage(IntToStr(GetScreenWH(PChar(Trim(EGetScreenWH.Text)))));
except end;
end;

procedure TMainForm.BGetDriveTypeClick(Sender: TObject);
begin
try
  ShowMessage(IntToStr(DriveType(PChar(EGetDriveType.Text))));
except end;
end;

end.