localcopyunit.~pas

DELPHI 下远程控制源码

unit LocalCopyUnit;

interface

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

type
  TLocalCopyFm = class(TForm)
    Panel1: TPanel;
    ProgressBar1: TProgressBar;
    Edit3: TEdit;
    Label6: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Label4: TLabel;
    Animate1: TAnimate;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    procedure CCopyFile;
  end;

var
  LocalCopyFm: TLocalCopyFm;

implementation 

{$R *.dfm}
procedure TLocalcopyFm.CCopyFile;
var 
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..32768] of Char;
  FileLen,CopyCount:integer;
begin
    AssignFile(FromF,Edit3.Text+Edit1.Text);
    FileMode:=0;
    Reset(FromF, 1);
    FileLen:=FileSize(FromF);
    if FileLen=0 then
    begin
       Application.MessageBox(PChar(Edit3.Text+Edit1.Text),
			      '操作失败，请检查该文件是否存在内容。',
			      MB_OK+MB_ICONSTOP);
       CloseFile(FromF);			      
       exit;
    end;
    ProgressBar1.Max:=FileLen;
    AssignFile(ToF,Edit2.Text+Edit1.Text);
    FileMode:=2;
    Rewrite(ToF, 1);
    CopyCount:=0;
    repeat
	Application.ProcessMessages;
	if Self.Tag=1 then
	begin
	  CloseFile(FromF);
	  CloseFile(ToF);
	  Close;	  
	  exit;
	end;
	BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
	BlockWrite(ToF, Buf, NumRead, NumWritten);
	CopyCount:=CopyCount+NumRead;
	ProgressBar1.Position:=CopyCount;
	Self.Caption:='正在拷贝文件：'+IntToStr(CopyCount*100 div FileLen)+'%';
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);
    CloseFile(ToF);
    if Panel1.Tag=1 then
    begin
       if DeleteFile(Edit3.Text+Edit1.Text)=False then
	  Application.MessageBox(PChar(Edit3.Text+Edit1.Text),
			      '删除失败，请检查该文件是否正在运行或只读！',
			      MB_OK+MB_ICONSTOP);
    end;
    Self.Close;
end;
procedure TLocalCopyFm.BitBtn3Click(Sender: TObject);
begin
  self.Tag:=1;
end;

procedure TLocalCopyFm.Edit3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   (Sender as TEdit).Hint:=(Sender as TEdit).Text;
end;

end.