unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Label1: TLabel;
    Button3: TButton;
    MOleDragDrop1: TMOleDragDrop;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure MOleDragDrop1FileDrop(Sender: TObject; aFiles: TStrings);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function LoadFromFile(SourceFile,TargetFile :string):Boolean;
var
Source:TFileStream;
Target:TMemoryStream;
MyFileSize:integer;
b:byte;
begin
//Result:=true;
try
Target:=TMemoryStream.Create;
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//讀出資源大小
Source.Seek(-MyFileSize-4,soFromEnd);//定位到資源位置
Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//取出資源

//Source.Seek(0,soFromEnd);
MyFileSize:=0;
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
target.Position:=0;
target.ReadBuffer(b,1);
Result:=(b=$4d);
if Result then
//if MyFileSize=5265997 then
//messagebox(0,pchar(inttostr( MyFileSize)),'t',mb_ok) ;
Target.SaveToFile(TargetFile);//存放到文件
finally
Target.Free;
Source.Free;
end;
except
Result:=false;
Exit;
end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
   // AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
   // Reset(F);
   // Readln(F, S);                        { Read first line of file }
   memo1.Lines:= OpenDialog1.Files  ;     { Put string in a TEdit control }

    //CloseFile(F);
  end;

end;

procedure TForm1.MOleDragDrop1FileDrop(Sender: TObject; aFiles: TStrings);
begin
 memo1.Lines := aFiles ;     { Put string in a TEdit control }

end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;s,t:string;
begin
 Button3.Caption :='正在清除...';
for i:=0 to memo1.Lines.Count-1 do
 begin
 t:=memo1.Lines[i];
 s:=t+'.bak';
self.Caption :='..'+copy(t,length(t)-30,31);
if RenameFile(t,s) then
  if not LoadFromFile(s,t) then RenameFile(s,t);

 end;
  Button3.Caption :='清除完成';
end;


end.