main.pas

这是Virtual PC或VMWare虚拟机所创虚拟硬盘的文件读取程序.主要用到的是硬盘及分区格式的知识.因为VMware所创的硬盘文件最小为100M所以我没有测试,如果你测试不可用的话那我也没办法,

{∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑
◎→
◎→                      Tresss Studio
◎→  Project: View HD File
◎→  Start Date:2006/1/18
◎→  Change Date:2006/1/28
◎→  System: Delphi6+WinXP
◎→  Author: Tresss
◎→  E-Mail: [e-mail]
◎→  Character: Main File,interface
◎→  Tips:此文件为界面处理单元;
◎→       ExFun为主要功能实现单元;
◎→
◎→
∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑∑}
unit main;

interface

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

type
  TFrmMain = class(TForm)
    EdtFile: TEdit;
    BtnFile: TSpeedButton;
    Od1: TOpenDialog;
    LbFile: TListBox;
    Sd1: TSaveDialog;
    Stb: TStatusBar;
    procedure BtnFileClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure LbFileDblClick(Sender: TObject);
  private
  public
    HFile:THandle;              //文件句柄;
    PosOfPart,SizeOfSector:Integer;        //分区偏移量,每扇区字节数;
    NumOfCluster,NumOfResSec:Integer;               //每簇扇区数,保留扇区数;
    NumOfFat,NumOfFile:Integer;            //Fat数,文件数;
    SizeOfPart,SizeOfFat:Integer;                 //分区大小;

  end;

var
  FrmMain: TFrmMain;

implementation

uses ExFun;

{$R *.dfm}

procedure TFrmMain.BtnFileClick(Sender: TObject);
begin
  If Od1.Execute Then EdtFile.Text:=Od1.FileName;
  CheckFile;
  FileList;
end;

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If HFile<>0 Then FileClose(HFile);
end;

procedure TFrmMain.LbFileDblClick(Sender: TObject);
begin
  If HFile<>0 Then
  Begin
    Sd1.FileName:=LbFile.Items[LbFile.ItemIndex];
    If Sd1.Execute Then
    Begin
      FileSaveAs;
    End;
  End;
end;

end.