fm_deleteother.pas

档案资料管理系统

unit FM_DeleteOther;

interface

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

type
  TFM_DeleteOther1 = class(TForm)
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_DeleteOther1: TFM_DeleteOther1;

implementation

{$R *.dfm}

procedure TFM_DeleteOther1.FormCreate(Sender: TObject);
var
 FMDeleteFileSearch:TSearchRec;
 FMDeleteFileNamePath:string;
begin
 FMDeleteFileNamePath:=ExtractFilePath(Application.ExeName)+'\Otherfile\SaveFile\';
 if FindFirst(FMDeleteFileNamePath+'*.',faDirectory,FMDeleteFileSearch) = 0 then
    begin
     repeat
      if(FMDeleteFileSearch.Name[1]<>'.') then
         begin
          ListBox1.Items.Add(FMDeleteFileSearch.Name);
         end;
      until FindNext(FMDeleteFileSearch) <> 0;
      FindClose(FMDeleteFileSearch);
    end;
end;
procedure TFM_DeleteOther1.BitBtn1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex<>-1 then
   begin
    if Application.MessageBox(PChar('确实要删除 【'+ListBox1.Items.Strings[listbox1.ItemIndex]+'】 吗？'),'真诚提醒您',MB_YESNO or MB_ICONQUESTION )=IDYes then
       begin
        DeleteFile(ExtractFilePath(Application.ExeName)+'\Otherfile\SaveFile\'+ListBox1.Items.Strings[listbox1.ItemIndex]);
        Close;
       end;
   end
 else
   Application.MessageBox('请选择要删除的项','真诚提醒您',MB_OK	or MB_ICONINFORMATION)
end;
end.