jieguo.pas

一个文件管理的程序

unit jieguo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids,shellapi, DBGrids, jpeg, ExtCtrls;
type
  TForm8 = class(TForm)
    DBGrid1: TDBGrid;
    SpeedButton3: TSpeedButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4Click(Sender: TObject);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  currentdir:string;
implementation

uses chaxun;

{$R *.dfm}

procedure TForm8.SpeedButton3Click(Sender: TObject);
begin
  form6.show
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
    currentdir:=getcurrentdir;
end;

procedure TForm8.DBGrid1DblClick(Sender: TObject);
var
s:pchar;
p:string;
begin
  p:=currentdir+'\'+dbgrid1.DataSource.DataSet.FieldValues['fileload'];
  s:=pchar(p);
  ShellExecute(handle,'open',s,nil,nil,SW_ShowNormal);
end;
procedure TForm8.Image2Click(Sender: TObject);
var
s:pchar;
p:string;
begin
  p:=currentdir+'\'+dbgrid1.DataSource.DataSet.FieldValues['fileload'];
  s:=pchar(p);
  ShellExecute(handle,'open',s,nil,nil,SW_ShowNormal);
end;
procedure TForm8.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image2.Visible:=true;
 image3.Visible:=false;
end;

procedure TForm8.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image3.Visible:=true;
 image2.Visible:=false;
 image5.Visible:=true;
 image4.Visible:=false;
end;

procedure TForm8.Image4Click(Sender: TObject);
begin
 close;
end;

procedure TForm8.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 image4.Visible:=true;
 image5.Visible:=false;
end;

end.