procedure TForm1.FlatButton1Click(Sender: TObject);var FilePath:String;// numberzip:Smallint;begin FilePath:=ExtractFilePath(Application.ExeName)+'顺德';{ Thread1:=TShowProgress.create(FilePath); //创建线程计算总目录 Thread1.Priority:=tpNormal; Thread1.FreeOnTerminate:=True;} FilePath:=ExtractFilePath( Read More
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; Button5:TButton; Button6:TButton; Button7:TButton; procedureButton1Click(Sender:TO Read More
unit Crc32; interface uses Windows; const Table: array[0..255] of DWORD = ($00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988, $09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91, ... Read More