openunit.pas

基于delphi媒体播放器的源代码 很全面

unit openUnit;

interface

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

type
  TForm10 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses shipinunit,unit5;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);
var
  cot:integer;
begin
  if FileListBox1.Count<>0 then
    begin
      for cot:=0 to FileListBox1.Count-1 do
        begin
          if (pos('.avi',FileListBox1.Items.Strings[cot])<>0)or(pos('.AVI',FileListBox1.Items.Strings[cot])<>0)or(pos('.RM',FileListBox1.Items.Strings[cot])<>0)or(pos('.rm',FileListBox1.Items.Strings[cot])<>0)or(pos('.ram',FileListBox1.Items.Strings[cot])<>0)or(pos('.RAM',FileListBox1.Items.Strings[cot])<>0)or(pos('.RA',FileListBox1.Items.Strings[cot])<>0)or(pos('.ra',FileListBox1.Items.Strings[cot])<>0) then
            begin
              shipinform.CheckListBox1.Items.Add(DirectoryListBox1.Directory+'\'+FileListBox1.Items.Strings[cot]);
              shipinform.CheckListBox1.ItemIndex:=cot;
            end;
        end;
    shipinform.CheckListBox1.Items.SaveToFile(ExtractFileDir(Application.ExeName)+'\mpgp.dll');
    close;
    end
  else
    begin
             form5.Label1.Caption:='没有找到文件！　';
             form5.ShowModal;
    end;

end;

end.