propdlg.pas

一个磁盘文件被删除后恢复的源程序！ 内嵌汇编代码~！

unit propdlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TItemPropertiesDialog = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    EditName: TEdit;
    Label1: TLabel;
    EditCluster: TEdit;
    Label2: TLabel;
    EditSize: TEdit;
    Label3: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    ItemName: string;
    ItemSize: longword;
    ItemCluster: longword;
    function Execute: boolean;
  end;

var
  ItemPropertiesDialog: TItemPropertiesDialog;

implementation

function TItemPropertiesDialog.Execute;
var
  code: integer;
begin
  EditName.text:=ItemName;
  EditSize.text:=Inttostr(ItemSize);
  EditCluster.text:=Inttostr(ItemCluster);
  if ShowModal = mrOK then
  begin
    ItemName:=EditName.text;
    val(EditCluster.text, ItemCluster, code);
    val(EditSize.text, ItemSize, code);
    result:=TRUE;
  end else result:=FALSE;
end;

{$R *.dfm}

end.