我的学习生涯（Delphi篇） - 01

    Delphi中包装了几乎所有的WIN32 API。

    这些API至今还活跃在Windows平台！

    比如下文出现的 BlockRead/ BlockWrite就是调用IOPro函数。

    效果如下图：

 Unit1.pas

[delphi]
unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ShellApi, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    Button3: TButton; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
  procedure mycopyfile(Sfname,Dfname:string); 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  lphKey: HKEY; 
  sKeyName: string; 
  sKeyValue: string; 
begin 
    sKeyName := 'myfile'; 
    sKeyValue :='我的文档'; 
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey); 
    RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0); 
    sKeyName := '.xbf'; 
    sKeyValue := 'myfile'; 
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey); 
    RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0); 
    sKeyName := 'myfile'; 
    sKeyValue := 'e:\WINNT\SYSTEM32\NotePad.exe "%1"'; 
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey); 
    RegSetValue(lphKey,'shell\open\command',REG_SZ,pchar(sKeyValue),MAX_PATH); 
 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  //ShellExecute(Application.Handle,'open','NotePad.exe','',nil,SW_SHOWNORMAL);  
 
  //WinExec('command.com',SW_SHOWNORMAL);  
end; 
 
 
 
procedure mycopyfile(Sfname,Dfname:string); 
Var 
  Sourcef,Destinef:file; 
  NumRead,NumWritten:Integer; 
  Buf:array[1..4096] of char;//定义缓冲区；  
Begin 
  //Dfname:='c:\xiaobin.xbf';  
  AssignFile(Sourcef,Sfname); 
  Reset(Sourcef,1); 
  AssignFile(Destinef,Dfname); 
  Rewrite(Destinef,1); 
  Repeat 
    BlockRead(Sourcef,Buf,SizeOf(Buf),Numread);//读源文件  
    BlockWrite(destinef,buf,NumRead,NumWritten);//写目标文件；  
  Until (Numread=0) or (Numwritten<>numread); 
 
    //BlockRead(Sourcef,buf,SIZEOF(buf),NumRead);  
    //BlockWrite(Destinef,buf,NumRead,NumWritten);  
    closeFile(Sourcef); 
    Closefile(destinef); 
 
end; 
 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if  FileExists(Edit2.Text) then 
  begin 
    if Application.MessageBox('文件已经存在！是否覆盖？','提示',MB_YESNO)=IDYES then 
    begin 
      mycopyfile(Edit1.Text,Edit2.Text); 
      //CopyFile('c:\xiaobin.xbf','d:\xiaobin.xbf',True);  
      Application.MessageBox('文件复制完成！','消息',32); 
    end; 
  end 
  else 
  begin 
    mycopyfile(Edit1.Text,Edit2.Text); 
    //CopyFile('c:\xiaobin.xbf','d:\xiaobin.xbf',True);  
    Application.MessageBox('文件复制完成！','消息',32); 
  end; 
   
end; 
 
end. 

unit Unit1;

interface

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

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

var
  Form1: TForm1;

  procedure mycopyfile(Sfname,Dfname:string);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  lphKey: HKEY;
  sKeyName: string;
  sKeyValue: string;
begin
    sKeyName := 'myfile';
    sKeyValue :='我的文档';
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
    RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);
    sKeyName := '.xbf';
    sKeyValue := 'myfile';
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
    RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);
    sKeyName := 'myfile';
    sKeyValue := 'e:\WINNT\SYSTEM32\NotePad.exe "%1"';
    RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
    RegSetValue(lphKey,'shell\open\command',REG_SZ,pchar(sKeyValue),MAX_PATH);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //ShellExecute(Application.Handle,'open','NotePad.exe','',nil,SW_SHOWNORMAL);

  //WinExec('command.com',SW_SHOWNORMAL);
end;

procedure mycopyfile(Sfname,Dfname:string);
Var
  Sourcef,Destinef:file;
  NumRead,NumWritten:Integer;
  Buf:array[1..4096] of char;//定义缓冲区；
Begin
  //Dfname:='c:\xiaobin.xbf';<

补充：软件开发 , Delphi ,

上一个：DELPHI 打印预览功能
下一个：关于Delphi中DLL,BPL等无法调试的问题