开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
ConfigExt.~pas
资源名称：directshowsdk.rar　[点击查看]
上传用户：mjqmds
上传日期：2022-05-05
资源大小：2827k
文件大小：7k
源码类别：

DirextX编程

开发平台：

Delphi

ConfigExt.~pas：源码内容
  1. unit ConfigExt;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, CheckLst, TFlatButtonUnit, XPMenu,
  8.   TFlatCheckListBoxUnit, StrUtils;
  10. type
  11.   TCEForm = class(TForm)
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     RadioButton3: TRadioButton;
  15.     FlatCheckListBox1: TFlatCheckListBox;
  16.     XPMenu1: TXPMenu;
  17.     FlatButton1: TFlatButton;
  18.     FlatButton2: TFlatButton;
  19.     procedure RadioButton1Click(Sender: TObject);
  20.     procedure RadioButton2Click(Sender: TObject);
  21.     procedure RadioButton3Click(Sender: TObject);
  22.     procedure FlatButton1Click(Sender: TObject);
  23.     procedure FlatButton2Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.   private
  26.     procedure UpdateRegister(bLoad:Boolean=false);
  27.     procedure CustomSelects(b:Boolean; Exts:String);
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  33. var
  34.   CEForm: TCEForm;
  36. implementation
  38. uses Main, RegFiles;
  40. {$R *.dfm}
  42. function GetExt(Str:String):String;
  43. Var
  44.     Index:Integer;
  45. begin
  46.     Index:=Pos('->',Str);
  47.     Result:=Copy(Str,1,Index-1);
  48.     Result:=Trim(Result);
  49. end;
  51. function GetIconIndex(Ext:String):Integer;
  52. begin
  53.     Result:=2;
  54.     Ext:=UpperCase(Trim(Ext));
  55.     if Ext='.ASF' then
  56.         Result:=1
  57.     else if Ext='.AVI' then
  58.         Result:=3
  59.     else if Ext='.BF' then
  60.         Result:=4
  61.     else if Ext='.DAT' then
  62.         Result:=5
  63.     else if Ext='.DVD' then
  64.         Result:=6
  65.     else if Ext='.SWF' then
  66.         Result:=7
  67.     else if Ext='.WPL' then
  68.         Result:=8
  69.     else if Ext='.M4B' then
  70.         Result:=9
  71.     else if Ext='.M4P' then
  72.         Result:=10
  73.     else if Ext='.M4V' then
  74.         Result:=11
  75.     else if Ext='.MKV' then
  76.         Result:=12
  77.     else if Ext='.MP3' then
  78.         Result:=13
  79.     else if Ext='.MP4' then
  80.         Result:=14
  81.     else if Ext='.MPEG' then
  82.         Result:=15
  83.     else if Ext='.MPG' then
  84.         Result:=16
  85.     else if Ext='.OGM' then
  86.         Result:=17
  87.     else if Ext='.PSS' then
  88.         Result:=18
  89.     else if Ext='.PVA' then
  90.         Result:=19
  91.     else if Ext='.MOV' then
  92.         Result:=20
  93.     else if (Ext='.RM') OR (Ext='.RMVB') then
  94.         Result:=21
  95.     else if Ext='.TP' then
  96.         Result:=22
  97.     else if Ext='.TPR' then
  98.         Result:=23
  99.     else if Ext='.TS' then
  100.         Result:=24
  101.     else if Ext='.VOB' then
  102.         Result:=25
  103.     else if Ext='.WM' then
  104.         Result:=26
  105.     else if Ext='.WMA' then
  106.         Result:=27
  107.     else if Ext='.WMP' then
  108.         Result:=28
  109.     else if Ext='.MMV' then
  110.         Result:=29
  111. end;
  113. procedure TCEForm.CustomSelects(b: Boolean; Exts:String);
  114. Var
  115.     i:Integer;
  116.     Tmp:String;
  117. begin
  118.     Exts:=UpperCase(Exts);
  119.     For i:=0 to FlatCheckListBox1.Items.Count-1 do
  120.     begin
  121.         Tmp:=UpperCase(GetExt(FlatCheckListBox1.Items.Strings[i]));
  122.         if AnsiPos(Tmp,Exts)<>0 then
  123.             FlatCheckListBox1.Checked[i]:=b
  124.         else
  125.             FlatCheckListBox1.Checked[i]:=Not b;
  127.     end;
  128. end;
  130. procedure TCEForm.RadioButton1Click(Sender: TObject);
  131. begin
  132.     CustomSelects(true,'.RM,.RMVB,.AVI,.WMV,.ASF,.DAT,.VOB,.MPG,.MKV,.MOV,.MP3,.WMA,.WAV,.WPL');
  133. end;
  135. procedure TCEForm.RadioButton2Click(Sender: TObject);
  136. begin
  137.     CustomSelects(true,'.RM,.RMVB,.AVI,.WMV,.ASF,.DAT,.VOB,.MPG,.MKV,.MOV,.WPL');
  138. end;
  140. procedure TCEForm.RadioButton3Click(Sender: TObject);
  141. begin
  142.     CustomSelects(true,'.MP3,.WMA,.WAV,.WPL');
  143. end;
  145. procedure TCEForm.FlatButton1Click(Sender: TObject);
  146. Var
  147.     i:Integer;
  148.     Str:String;
  149. begin
  150.     For i:=0 to FlatCheckListBox1.Items.Count-1 do
  151.     begin
  152.         if FlatCheckListBox1.Checked[i] then
  153.         begin
  154.             if Str='' then
  155.                 Str:=FlatCheckListBox1.Items[i]
  156.             else
  157.                 Str:=Str+','+FlatCheckListBox1.Items[i];
  158.         end;
  159.     end;
  160.     if RadioButton1.Checked then
  161.         Str:=RadioButton1.Name+','+Str
  162.     else if RadioButton2.Checked then
  163.         Str:=RadioButton2.Name+','+Str
  164.     else
  165.         Str:=RadioButton3.Name+','+Str;
  166.     MainForm.WriteIni('Play','Exts',Str);
  167.     UpdateRegister;
  168.     ModalResult:=mrok;
  169. end;
  171. procedure TCEForm.UpdateRegister(bLoad:Boolean=false);
  172. Var
  173.     i:Integer;
  174.     Str,Tmp:String;
  175.     StrList:TStringList;
  176. Var
  177.     Radio:TRadioButton;
  178. begin
  179.     StrList:=TStringList.Create;
  180.     Try
  181.         if bLoad then
  182.         begin
  183.             Str:=UpperCase(MainForm.ReadIni('Play','Exts',''));
  184.             StrList.Text:=AnsiReplaceStr(Str,',',#13#10);
  185.             if StrList.Count=0 then
  186.             begin
  187.                 Radio:=RadioButton1;
  188.                 Radio.Checked:=true;
  189.                 Radio.OnClick(Radio);
  190.             end
  191.             else
  192.             begin
  193.                 Radio:=TRadioButton(Self.FindComponent(StrList.Strings[0]));
  194.                 Radio.Checked:=true;
  195.                 Radio.OnClick(Radio);
  196.             end;
  197.         end;
  198.         For i:=0 to FlatCheckListBox1.Items.Count-1 do
  199.         begin
  200.             Tmp:=UpperCase(GetExt(FlatCheckListBox1.Items[i]));
  201.             if bLoad then
  202.             begin
  203.                 FlatCheckListBox1.Checked[i]:=Pos(Tmp,Str)<>0;
  204.             end;
  205.             if FlatCheckListBox1.Checked[i] then
  206.             begin
  207.                 CreateAssociation(Tmp,Application.ExeName,Application.ExeName+','+IntToStr(GetIconIndex(ExtractFileExt(Tmp))),
  208.                     'WHSUPPERPLAY'+Tmp,'老王的超级播放器',false);
  209.             end
  210.             else
  211.                 RemoveAssociation(Tmp,'WHSUPPERPLAY'+Tmp,
  212.                     true,false);
  213.         end;
  214.     Finally
  215.         StrList.Free;
  216.     end;
  217.     if Not bLoad then
  218.         CreateAssociation('','','','','',true);
  219. end;
  221. procedure TCEForm.FlatButton2Click(Sender: TObject);
  222. begin
  223.     ModalResult:=mrCancel;
  224. end;
  226. procedure TCEForm.FormCreate(Sender: TObject);
  227. Var
  228.     i:Integer;
  229. begin
  230.     FlatCheckListBox1.Items.Add('.RM          ->视频文件');
  231.     FlatCheckListBox1.Items.Add('.RMVB        ->视频文件');
  232.     FlatCheckListBox1.Items.Add('.AVI         ->视频文件');
  233.     FlatCheckListBox1.Items.Add('.WMV         ->视频文件');
  234.     FlatCheckListBox1.Items.Add('.ASF         ->视频文件');
  235.     FlatCheckListBox1.Items.Add('.DAT         ->视频文件');
  236.     FlatCheckListBox1.Items.Add('.VOB         ->视频文件');
  237.     FlatCheckListBox1.Items.Add('.MPG         ->视频文件');
  238.     FlatCheckListBox1.Items.Add('.MKV         ->视频文件');
  239.     FlatCheckListBox1.Items.Add('.MOV         ->视频文件');
  240.     FlatCheckListBox1.Items.Add('.MP3         ->声音文件');
  241.     FlatCheckListBox1.Items.Add('.WMA         ->声音文件');
  242.     FlatCheckListBox1.Items.Add('.WAV         ->声音文件');
  243.     FlatCheckListBox1.Items.Add('.WPL         ->播放列表文件');
  244.     UpdateRegister(true);
  245.     for i:=0 to  FlatCheckListBox1.Items.Count-1 do
  246.     begin
  247.         if FlatCheckListBox1.Checked[i] then
  248.             Exit;
  249.     end;
  250.     RadioButton1.OnClick(RadioButton1);
  251. end;
  253. end.