astavka.Timer1Timer (Sender: TObject);. Enabled:=false;
end;
end.
/ / Текст файлу основної форми
unit Unit1;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, Menus, FileCtrl, ComCtrls, ToolWin, AppEvnts, Grids,, DirOutln, shellApi, ExtCtrls, jpeg, ImgList; =class (TForm): TStatusBar;: TToolBar;: TScrollBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TDriveComboBox;: TDirectoryListBox;: TFileListBox;: TFilterComboBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TFileListBox; : TFileListBox;: TLabel;: TLabel;: TApplicationEvents;: TMainMenu;: TMenuItem;: TMenuItem;: TPopupMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TToolButton;: TSpeedButton;: TMenuItem;: TMenuItem;: THeaderControl ;: TBitBtn;: TBitBtn;: TMenuItem;: TBitBtn;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TCheckBox;: TToolButton; PmRefClick (Sender: TObject); ApplicationEvents1Idle (Sender: TObject; var Done: Boolean); FormCreate (Sender: TObject); ButDir2Click (Sender: TObject); ButDir3Click (Sender: TObject); Dir3Change (Sender: TObject); AllDirDbl (Sender: TObject); MnCopyClick (Sender: TObject); MNMoveClick (Sender: TObject ); ConfChange (const ACaption, FromFile, ToFile: string); SBDir12Click (Sender: TObject); SBDir21Click (Sender: TObject); SBDir13Click (Sender: TObject); SBDir31Click (Sender: TObject); Dir1DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean); Dir2DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean); Dir3DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean ); Dir2DragDrop (Sender, Source: TObject; X, Y: Integer); Dir3DragDrop (Sender, Source: TObject; X, Y: Integer); Dir1DragDrop (Sender, Source: TObject; X, Y: Integer); TBSBDeleteClick (Sender : TObject); MnExitClick (Sender: TObject); MnOpenBaseClick (Sender: TObject); BbIns2Click (Sender: TObject); BbIns3Click (Sender: TObject); BbDir2Click (Sender: TObject); BitBtn1Click (Sender: TObject); Dir2Change (Sender: TObject); MnShutDownClick (Sender: TObject); MnReBootClick (Sender: TObject); N8Click (Sender: TObject); FormKeyPress (Sender: TObject; var Key: Char); Dir1Enter (Sender: TObject); Dir2Enter (Sender: TObject); CBOnTopClick (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;: string; modulepas, Insrec, UBase, URazdel;
{$ R *. DFM}
procedure TForm1.PmRefClick (Sender: TObject);. Panels [2]. Text:=IntToStr (diskSize (3) div 1024000) + « Mb »;. Panels [4]. Text:=IntToStr (diskSize (4) div 1024000) +« Mb »;. Update;. Update;. Update;
end; TForm1.ApplicationEvents1Idle (Sender: TObject; Done: Boolean);.Caption:=TimeTostr(time);.Title:=TimeToStr(Time);.Panels[5].Text:=application.Hint;.statusBar1.Panels[0].Text:=statusBar1.Panels[5].Text;
end; TForm1.FormCreate (Sender: TObject);. Panels [2]. Text:=IntToStr (diskSize (3) div 1024000) + « Mb »;. Panels [4]. Text:=IntToStr (diskSize (4) div 1024000) +« Mb »;. Checked:=true;. Down:=true;. KeyPreview:=True;
end; TForm1.Dir3Change (Sender: TObject);. Caption:=dir3.Directory;
