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

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

DirextX编程

开发平台：

Delphi

Main.~pas：源码内容
  1. unit Main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes,Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, dxBar, XPMenu, Buttons, dxBarExtItems,
  8.   TFlatScrollbarUnit, ImgList, LMDCustomControl, LMDCustomPanel,
  9.   LMDCustomTrackBar, LMDTrackBar, ExtDlgs, Menus, Math, DrawPanel,
  10.   TFlatSplitterUnit, TFlatPanelUnit, ComCtrls, GIFImage, GraphicEx,
  11.   AppEvnts, LMDControl, LMDBaseControl, LMDBaseGraphicControl, Graphics,
  12.   LMDGraphicControl, LMDCustomGraphicLabel, LMDGraphicLabel, PlayList, ShellAPI,
  13.   CoolTrayIcon, DropTarget, DropSource, DropURLTarget, Registry, OleServer;
  15. Const
  16.   WM_FULLSCREEN=WM_USER+1001;
  17.   WM_PLAYNEXT=WM_USER+1002;
  18.   WM_PLAYPRIOR=WM_USER+1003;
  19.   WM_STARTSHOW=WM_USER+1006;
  20.   WM_OPENREMOTEFILE=WM_USER+1007;
  21.   WM_SHOWAPP=WM_USER+1108;
  22.   WM_HIDEAPP=WM_USER+1109;
  23.   WM_KILLAPP=WM_USER+1110;
  24. type
  25.   TPlayState=(psNone,psStop,psPlay,psPause,psOne,psLoad,psPreview);
  26.   TMainForm = class(TForm)
  27.     Timer1: TTimer;
  28.     OpenDialog1: TOpenDialog;
  29.     dxBarManager1: TdxBarManager;
  30.     dxBarButton1: TdxBarButton;
  31.     dxBarButton2: TdxBarButton;
  32.     dxBarButton3: TdxBarButton;
  33.     dxBarButton4: TdxBarButton;
  34.     Panel2: TPanel;
  35.     dxBarProgressItem1: TdxBarProgressItem;
  36.     XPMenu1: TXPMenu;
  37.     dxBarSubItem1: TdxBarSubItem;
  38.     dxBarButton5: TdxBarButton;
  39.     dxBarButton6: TdxBarButton;
  40.     dxBarSubItem2: TdxBarSubItem;
  41.     dxBarSubItem3: TdxBarSubItem;
  42.     dxBarSubItem4: TdxBarSubItem;
  43.     dxBarButton7: TdxBarButton;
  44.     dxBarButton8: TdxBarButton;
  45.     dxBarSubItem5: TdxBarSubItem;
  46.     dxBarButton9: TdxBarButton;
  47.     dxBarButton10: TdxBarButton;
  48.     dxBarButton11: TdxBarButton;
  49.     dxBarButton12: TdxBarButton;
  50.     dxBarSubItem6: TdxBarSubItem;
  51.     dxBarButton13: TdxBarButton;
  52.     LMDTrackBar2: TLMDTrackBar;
  53.     SavePictureDialog1: TSavePictureDialog;
  54.     dxBarButton14: TdxBarButton;
  55.     dxBarButton15: TdxBarButton;
  56.     dxBarButton16: TdxBarButton;
  57.     dxBarButton17: TdxBarButton;
  58.     dxBarButton18: TdxBarButton;
  59.     dxBarButton19: TdxBarButton;
  60.     dxBarSubItem7: TdxBarSubItem;
  61.     dxBarButton20: TdxBarButton;
  62.     dxBarButton21: TdxBarButton;
  63.     dxBarSubItem8: TdxBarSubItem;
  64.     dxBarButton22: TdxBarButton;
  65.     dxBarButton23: TdxBarButton;
  66.     dxBarSubItem9: TdxBarSubItem;
  67.     dxBarButton24: TdxBarButton;
  68.     dxBarButton25: TdxBarButton;
  69.     dxBarButton26: TdxBarButton;
  70.     dxBarButton27: TdxBarButton;
  71.     dxBarButton28: TdxBarButton;
  72.     dxBarButton29: TdxBarButton;
  73.     dxBarButton30: TdxBarButton;
  74.     dxBarButton31: TdxBarButton;
  75.     dxBarButton32: TdxBarButton;
  76.     dxBarButton33: TdxBarButton;
  77.     PopupMenu1: TPopupMenu;
  78.     N10: TMenuItem;
  79.     N11: TMenuItem;
  80.     Panel3: TPanel;
  81.     SpeedButton5: TSpeedButton;
  82.     LMDTrackBar1: TLMDTrackBar;
  83.     Panel4: TPanel;
  84.     Panel5: TPanel;
  85.     Panel6: TPanel;
  86.     Panel1: TDrawPanel;
  87.     dxBarSubItem10: TdxBarSubItem;
  88.     dxBarButton34: TdxBarButton;
  89.     dxBarButton35: TdxBarButton;
  90.     dxBarButton36: TdxBarButton;
  91.     dxBarButton37: TdxBarButton;
  92.     dxBarButton38: TdxBarButton;
  93.     dxBarButton39: TdxBarButton;
  94.     dxBarButton40: TdxBarButton;
  95.     dxBarButton41: TdxBarButton;
  96.     dxBarButton42: TdxBarButton;
  97.     dxBarButton43: TdxBarButton;
  98.     dxBarButton44: TdxBarButton;
  99.     dxBarButton45: TdxBarButton;
  100.     N1: TMenuItem;
  101.     N2: TMenuItem;
  102.     N3: TMenuItem;
  103.     N4: TMenuItem;
  104.     N5: TMenuItem;
  105.     N6: TMenuItem;
  106.     dxBarSubItem11: TdxBarSubItem;
  107.     dxBarButton46: TdxBarButton;
  108.     dxBarButton47: TdxBarButton;
  109.     ApplicationEvents1: TApplicationEvents;
  110.     dxBarListItem1: TdxBarListItem;
  111.     dxBarButton48: TdxBarButton;
  112.     dxBarInPlaceSubItem1: TdxBarInPlaceSubItem;
  113.     dxBarTreeViewCombo1: TdxBarTreeViewCombo;
  114.     dxBarListItem2: TdxBarListItem;
  115.     dxBarButton49: TdxBarButton;
  116.     dxBarLargeButton1: TdxBarLargeButton;
  117.     dxBarLargeButton2: TdxBarLargeButton;
  118.     dxBarStatic1: TdxBarStatic;
  119.     dxBarButton50: TdxBarButton;
  120.     dxBarButton51: TdxBarButton;
  121.     dxBarEdit1: TdxBarEdit;
  122.     dxBarToolbarsListItem1: TdxBarToolbarsListItem;
  123.     dxBarButton52: TdxBarButton;
  124.     Panel7: TPanel;
  125.     SpeedButton6: TSpeedButton;
  126.     SpeedButton14: TSpeedButton;
  127.     SpeedButton1: TSpeedButton;
  128.     SpeedButton2: TSpeedButton;
  129.     SpeedButton3: TSpeedButton;
  130.     SpeedButton4: TSpeedButton;
  131.     SpeedButton7: TSpeedButton;
  132.     SpeedButton8: TSpeedButton;
  133.     SpeedButton9: TSpeedButton;
  134.     SpeedButton10: TSpeedButton;
  135.     SpeedButton12: TSpeedButton;
  136.     SpeedButton13: TSpeedButton;
  137.     SpeedButton15: TSpeedButton;
  138.     Panel22: TPanel;
  139.     OpenDialog2: TOpenDialog;
  140.     SaveDialog1: TSaveDialog;
  141.     SaveDialog2: TSaveDialog;
  142.     Panel9: TPanel;
  143.     dxBarButton53: TdxBarButton;
  144.     ListView1: TListView;
  145.     dxBarButton54: TdxBarButton;
  146.     OpenDialog3: TOpenDialog;
  147.     SpeedButton11: TSpeedButton;
  148.     CoolTrayIcon1: TCoolTrayIcon;
  149.     PopupMenu2: TPopupMenu;
  150.     N7: TMenuItem;
  151.     N8: TMenuItem;
  152.     N9: TMenuItem;
  153.     N12: TMenuItem;
  154.     N13: TMenuItem;
  155.     N14: TMenuItem;
  156.     N15: TMenuItem;
  157.     dxBarButton55: TdxBarButton;
  158.     dxBarButton56: TdxBarButton;
  159.     ImageList1: TImageList;
  160.     N16: TMenuItem;
  161.     N17: TMenuItem;
  162.     dxBarButton57: TdxBarButton;
  163.     DropURLTarget1: TDropURLTarget;
  164.     DropFileTarget1: TDropFileTarget;
  165.     DropURLTarget2: TDropURLTarget;
  166.     DropFileTarget2: TDropFileTarget;
  167.     SpeedButton16: TSpeedButton;
  168.     dxBarButton58: TdxBarButton;
  169.     dxBarSubItem12: TdxBarSubItem;
  170.     dxBarButton59: TdxBarButton;
  171.     dxBarButton60: TdxBarButton;
  172.     dxBarButton61: TdxBarButton;
  173.     dxBarButton62: TdxBarButton;
  174.     Panel8: TPanel;
  175.     Shape1: TShape;
  176.     PopupMenu3: TPopupMenu;
  177.     Timer2: TTimer;
  178.     dxBarButton63: TdxBarButton;
  179.     dxBarSubItem13: TdxBarSubItem;
  180.     dxBarButton64: TdxBarButton;
  181.     dxBarButton65: TdxBarButton;
  182.     procedure FormCreate(Sender: TObject);
  183.     procedure FormDestroy(Sender: TObject);
  184.     procedure Timer1Timer(Sender: TObject);
  185.     procedure SpeedButton4Click(Sender: TObject);
  186.     procedure SpeedButton1Click(Sender: TObject);
  187.     procedure SpeedButton2Click(Sender: TObject);
  188.     procedure SpeedButton3Click(Sender: TObject);
  189.     procedure dxBarButton4Click(Sender: TObject);
  190.     procedure SpeedButton5Click(Sender: TObject);
  191.     procedure SpeedButton7Click(Sender: TObject);
  192.     procedure SpeedButton8Click(Sender: TObject);
  193.     procedure SpeedButton9Click(Sender: TObject);
  194.     procedure SpeedButton10Click(Sender: TObject);
  195.     procedure LMDTrackBar2MouseDown(Sender: TObject; Button: TMouseButton;
  196.       Shift: TShiftState; X, Y: Integer);
  197.     procedure LMDTrackBar2MouseUp(Sender: TObject; Button: TMouseButton;
  198.       Shift: TShiftState; X, Y: Integer);
  199.     procedure LMDTrackBar2Track(Sender: TObject; ScrollCode: TScrollCode;
  200.       var ScrollPos: Integer);
  201.     procedure LMDTrackBar1Track(Sender: TObject; ScrollCode: TScrollCode;
  202.       var ScrollPos: Integer);
  203.     procedure Panel1Resize(Sender: TObject);
  204.     procedure SpeedButton6Click(Sender: TObject);
  205.     procedure SpeedButton14Click(Sender: TObject);
  206.     procedure SpeedButton15Click(Sender: TObject);
  207.     procedure dxBarButton6Click(Sender: TObject);
  208.     procedure dxBarButton14Click(Sender: TObject);
  209.     procedure dxBarButton15Click(Sender: TObject);
  210.     procedure dxBarButton16Click(Sender: TObject);
  211.     procedure dxBarButton17Click(Sender: TObject);
  212.     procedure dxBarButton18Click(Sender: TObject);
  213.     procedure dxBarButton19Click(Sender: TObject);
  214.     procedure dxBarButton24Click(Sender: TObject);
  215.     procedure dxBarButton25Click(Sender: TObject);
  216.     procedure dxBarButton26Click(Sender: TObject);
  217.     procedure dxBarButton32Click(Sender: TObject);
  218.     procedure FormKeyUp(Sender: TObject; var Key: Word;
  219.       Shift: TShiftState);
  220.     procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  221.       Y: Integer);
  222.     procedure dxBarButton44Click(Sender: TObject);
  223.     procedure dxBarButton7Click(Sender: TObject);
  224.     procedure dxBarButton5Click(Sender: TObject);
  225.     procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
  226.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  227.     procedure ListView1CustomDrawItem(Sender: TCustomListView;
  228.       Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  229.     procedure N10Click(Sender: TObject);
  230.     procedure N11Click(Sender: TObject);
  231.     procedure N3Click(Sender: TObject);
  232.     procedure N4Click(Sender: TObject);
  233.     procedure N5Click(Sender: TObject);
  234.     procedure N6Click(Sender: TObject);
  235.     procedure LMDTrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
  236.       Shift: TShiftState; X, Y: Integer);
  237.     procedure ListView1DblClick(Sender: TObject);
  238.     procedure dxBarButton53Click(Sender: TObject);
  239.     procedure SpeedButton13Click(Sender: TObject);
  240.     procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  241.       State: TDragState; var Accept: Boolean);
  242.     procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
  243.     procedure dxBarButton22Click(Sender: TObject);
  244.     procedure dxBarButton21Click(Sender: TObject);
  245.     procedure dxBarButton13Click(Sender: TObject);
  246.     procedure dxBarButton30Click(Sender: TObject);
  247.     procedure dxBarButton31Click(Sender: TObject);
  248.     procedure dxBarButton27Click(Sender: TObject);
  249.     procedure dxBarButton46Click(Sender: TObject);
  250.     procedure dxBarButton29Click(Sender: TObject);
  251.     procedure dxBarButton28Click(Sender: TObject);
  252.     procedure dxBarButton33Click(Sender: TObject);
  253.     procedure ApplicationEvents1Activate(Sender: TObject);
  254.     procedure ApplicationEvents1Deactivate(Sender: TObject);
  255.     procedure dxBarButton11Click(Sender: TObject);
  256.     procedure dxBarButton47Click(Sender: TObject);
  257.     procedure Panel1Paint(Sender: TObject);
  258.     procedure SpeedButton12Click(Sender: TObject);
  259.     procedure CoolTrayIcon1Click(Sender: TObject);
  260.     procedure N12Click(Sender: TObject);
  261.     procedure N8Click(Sender: TObject);
  262.     procedure dxBarButton55Click(Sender: TObject);
  263.     procedure dxBarButton56Click(Sender: TObject);
  264.     procedure dxBarButton57Click(Sender: TObject);
  265.     procedure DropURLTarget1Drop(Sender: TObject; ShiftState: TShiftState;
  266.       Point: TPoint; var Effect: Integer);
  267.     procedure DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
  268.       Point: TPoint; var Effect: Integer);
  269.     procedure FormResize(Sender: TObject);
  270.     procedure SpeedButton16Click(Sender: TObject);
  271.     procedure dxBarButton58Click(Sender: TObject);
  272.     procedure dxBarButton60Click(Sender: TObject);
  273.     procedure LMDTrackBar1MouseWheel(Sender: TObject; Shift: TShiftState;
  274.       WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  275.     procedure FormDeactivate(Sender: TObject);
  276.     procedure dxBarButton62Click(Sender: TObject);
  277.     procedure PopupMenu3Popup(Sender: TObject);
  278.     procedure Panel1DblClick(Sender: TObject);
  279.     procedure Timer2Timer(Sender: TObject);
  280.     procedure dxBarButton63Click(Sender: TObject);
  281.     procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  282.       Shift: TShiftState; X, Y: Integer);
  283.     procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  284.       Shift: TShiftState; X, Y: Integer);
  285.     procedure dxBarButton64Click(Sender: TObject);
  286.     procedure dxBarButton65Click(Sender: TObject);
  287.   private
  288.     PlayState:TPlayState;
  289.     IsNoSet:Boolean;
  290.     Rate:DOUBLE;
  291.     OldRec:TRect;
  292.     PubLeft:Single;
  293.     CurrentItem:TListItem;
  294.     PlayEndFileName:String;
  295.     MaxSeconds,MaxMinutes,MaxHours:Integer;
  297.     AutoPause:Boolean;
  298.     PlayListManager:TPlayListManager;
  299.     bNextSuccess:Boolean;
  300.     bContinuePlay:Boolean;
  301.     OldPosRect:TRect;
  302.     OldX:Integer;
  303.     OldPt:TPoint;
  304.     RoundPlay:Boolean;
  305.     MouseTimeout:DWORD;
  306.     PreviewClick:Boolean;
  307.     PreviewFileName:Array[0..3] of String;
  308.     PausePreview:Boolean;
  310.     procedure InitPlayMenu(Items: TdxBarSubItem; MenuItem:TMenuItem);
  311.     procedure FilterOptionClick(Sender:TObject);
  312.     procedure StopPlay(IsSave:Boolean);
  313.     procedure MenuItemClick(Sender:TObject);
  314.     procedure OpenDialog(FileType:TFileType; PlayType:TPlayType);
  315.     procedure OnReadyEnd(Sender:TObject; PlayInfo:PPlayFileInfo; Item:TListItem);
  316.     function OpenFile(Item:TListItem):Boolean;
  317.     procedure WMFULLSCREEN(var Msg:TMessage);Message WM_FULLSCREEN;
  318.     procedure UpdateFullScreen(b:Boolean);
  319.     procedure CheckOne;
  320.     procedure UpdateButtonState;
  321.     procedure Init;
  322.     procedure DoRatio;
  323.     function GetLayerNo(X, Y: Integer): Integer;
  324.     { Private declarations }
  325.   protected
  326.     bLockUpateWindow:Boolean;
  327.     procedure WndProc(var Msg:TMessage);override;
  328.   public
  329.     class procedure WriteIni(Section, Key, Value: String);
  330.     class function ReadIni(Section,Key,Default:String):String;
  332.     class procedure WriteReg(Key:String; Value:Variant);
  333.     class function ReadReg(Key:String; DefaultValue:Variant):Variant;
  334.     { Public declarations }
  335.   end;
  337. var
  338.   MainForm: TMainForm;
  340. implementation
  342. uses WHPlaySDK, IniFiles, Controller, Hook, Config, MD5Unit, Password,
  343.   About, DoUnit, AudioConfig, ConfigExt;
  345. {$R *.dfm}
  347. procedure TMainForm.FormCreate(Sender: TObject);
  348. Var
  349.     i:Integer;
  350.     menu:TMenuItem;
  351. begin
  352.     WriteReg('ProcessHandle',GetCurrentProcess);
  353.     WriteReg('MsgHandle',Handle);
  354.     //DropURLTarget1.Register(Listview1);
  355.     //DropURLTarget2.Register(Panel1);
  356.     DropFileTarget1.Register(Listview1);
  357.     DropFileTarget2.Register(Panel1);
  359.     PlayListManager:=TPlayListManager.Create(ListView1,Handle);
  360.     SetWindowLong(Panel1.Handle,GWL_STYLE,GetWindowLong(Panel1.Handle, GWL_STYLE)
  361.         or WS_CHILD);
  362.     SetWindowLong(Panel2.Handle,GWL_STYLE,GetWindowLong(Panel2.Handle, GWL_STYLE)
  363.         or WS_CHILD);
  364.     //SetWindowLong(Panel2.Handle,GWL_EXSTYLE,GetWindowLong(Panel2.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
  365.     dllRegisterVideoHandle(Panel1.Handle);
  366.     dllRegisterMsgHandle(Handle);
  367.     Init;
  368.     For i:=0 to ImageList1.Count-1 do
  369.     begin
  370.         Menu:=TMenuItem.Create(N16);
  371.         Menu.Caption:='图标'+IntToStr(i);
  372.         Menu.ImageIndex:=i;
  373.         Menu.OnClick:=MenuItemClick;
  374.         N16.Add(Menu);
  375.     end;
  376.     PlayListManager.OnReadyEnd:=OnReadyEnd;
  377.     if (ParamStr(1)<>'') then
  378.     begin
  379.         PostMessage(Handle,WM_STARTSHOW,0,0);
  380.     end;
  381.     //SetHook;
  382. end;
  384. procedure OnNotifyEvent(eventcode:LongInt; Param:Pointer; var IsContinue:Boolean);stdcall;
  385. Var
  386.     Form:TMainForm;
  387. begin
  388.     Form:=TMainForm(Param);
  389.     With Form do
  390.     begin
  391.         Case eventCode of
  392.             EC_COMPLETE:
  393.             begin
  394.                 Panel8.Caption:='播放              00:00:00/00:00:00';
  395.                 PostMessage(Form.Handle,WM_PLAYNEXT,1,0);
  396.             end;
  397.             EC_USERABORT:
  398.             begin
  399.             end;
  400.             EC_ERRORABORT:
  401.             begin
  402.             end;
  403.         end;
  404.     end;
  405. end;
  407. procedure SwitchToThisWindow(hwnd:THandle; bRestore:Boolean);stdcall; External 'User32.dll';
  409. function ForceForegroundWindow(hwnd: THandle): boolean;
  410. const
  411.     SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
  412.     SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
  413. var
  414.     ForegroundThreadID: DWORD;
  415.     ThisThreadID      : DWORD;
  416.     timeout           : DWORD;
  417. begin
  418.     if IsIconic(hwnd) then ShowWindow(hwnd, SW_RESTORE);
  420.     if GetForegroundWindow = hwnd then
  421.         Result := true
  422.     else
  423.     begin
  424.         SwitchToThisWindow(Hwnd,true);
  425.         if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4)) or
  426.           ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
  427.           ((Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and
  428.           (Win32MinorVersion > 0)))) then
  429.         begin
  430.             Result := false;
  431.             ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,nil);
  432.             ThisThreadID := GetWindowThreadPRocessId(hwnd,nil);
  433.             if AttachThreadInput(ThisThreadID, ForegroundThreadID, true) then
  434.             begin
  435.                 BringWindowToTop(hwnd); // IE 5.5 related hack
  436.                 SetForegroundWindow(hwnd);
  437.                 AttachThreadInput(ThisThreadID, ForegroundThreadID, false);
  438.                 Result := (GetForegroundWindow = hwnd);
  439.             end;
  440.             if not Result then
  441.             begin
  442.                 SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
  443.                 SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE);
  444.                 BringWindowToTop(hwnd); // IE 5.5 related hack
  445.                 SetForegroundWindow(hWnd);
  446.                 SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE);
  447.             end;
  448.         end
  449.         else begin
  450.             BringWindowToTop(hwnd); // IE 5.5 related hack
  451.             SetForegroundWindow(hwnd);
  452.         end;
  454.         Result := (GetForegroundWindow = hwnd);
  455.     end;
  456. end;
  458. procedure TMainForm.WndProc(var Msg: TMessage);
  459. Var
  460.     Item:TListItem;
  461.     Info:PPlayFileInfo;
  462.     vHours,vMinutes,vSeconds:String;
  463.     eventCode:LongInt;
  464.     v:Variant;
  465. begin
  466.     inherited;
  467.     if Application.Terminated then
  468.         Exit;
  470. if (Msg.Msg in [WM_PAINT,WM_SIZE,WM_DISPLAYCHANGE,WM_MOVE]) and (Not (PlayState in [psStop,psNone,psLoad])) then
  471.         dllDefaultProcessMsg(Handle,Msg.Msg,Msg.WParam,Msg.LParam);
  472.     Case Msg.Msg of
  473.         WM_KILLAPP:
  474.         begin
  475.             Close;
  476.         end;
  477.         WM_SHOWAPP:
  478.         begin
  479.             CoolTrayIcon1.ShowMainForm;
  480.             ForceForegroundWindow(Application.Handle);
  481.             ForceForegroundWindow(Handle);
  482.         end;
  483.         WM_HIDEAPP:
  484.         begin
  485.             ApplicationEvents1Deactivate(nil);
  486.         end;
  487.         WM_OPENREMOTEFILE:
  488.         begin
  489.           Msg.Result:=0;
  490.           v:=ReadReg('TmpFileName',null);
  491.           if Not VarIsNull(v) then
  492.           begin
  493.             CoolTrayIcon1.ShowMainForm;
  494.             ForceForegroundWindow(Application.Handle);
  495.             ForceForegroundWindow(Handle);
  496.             PlayListManager.Add(v,ftUnknown,ptPlay);
  497.             Msg.Result:=1;
  498.           end;
  499.         end;
  500.         WM_ADDITEM:
  501.         begin
  502.             Info:=Ptr(Msg.WParam);
  503.             Item:=ListView1.Items.Add;
  504.             With Item do
  505.             begin
  506.                 Caption:=Info.DisplayName;
  507.                 GetTimeString(Info.MediaInfo.PlayHours,Info.MediaInfo.PlayMinites,Info.MediaInfo.PlaySeconds,vHours,vMinutes,vSeconds);
  508.                 SubItems.Add(vHours+':'+vMinutes+':'+vSeconds);
  509.                 SubItems.Add(FloatToStr(Info.FileSize)+'M');
  510.                 Data:=Info;
  511.             end;
  512.             if Info.PlayType=ptPlay then
  513.                 OnReadyEnd(Owner,Info,Item);
  514.         end;
  515.         WM_STARTSHOW:
  516.         begin
  517.             if FileExists(ParamStr(1)) then
  518.             begin
  519.                 if UpperCase(ExtractFileExt(ParamStr(1)))='.WPL' then
  520.                     Self.PlayListManager.Open(ParamStr(1),false,true)
  521.                 else
  522.                     PlayListManager.Add(ParamStr(1),ftUnknown,ptPlay);
  523.             end;
  524.         end;
  525.         WM_PLAYNEXT:
  526.         begin
  527.             CurrentItem:=ListView1.GetNextItem(CurrentItem,sdAll, []);
  528.             if Not Assigned(CurrentItem) then
  529.             begin
  530.                 StopPlay(false);
  531.                 Exit;
  532.             end;
  533.                 
  534.             SpeedButton3.Click;
  535.             if CurrentItem<>nil then
  536.             begin
  537.                 if Not OpenFile(CurrentItem) then
  538.                 begin
  539.                     PostMessage(Handle,WM_PLAYNEXT,1,0);
  540.                 end
  541.                 else
  542.                     bNextSuccess:=true;
  543.             end
  544.             else if Msg.WParam=1 then
  545.             begin
  546.                 if dxBarButton53.Down then
  547.                 begin
  548.                     if ListView1.Items.Count=0 then
  549.                         Exit;
  551.                     CurrentItem:=ListView1.Items[0];
  552.                     OpenFile(CurrentItem);
  553.                 end
  554.                 else
  555.                 begin
  556.                     if dxBarButton9.Down then
  557.                     begin
  558.                         WinExit(EWX_FORCE or EWX_SHUTDOWN);
  559.                     end
  560.                     else if dxBarButton10.Down then
  561.                     begin
  562.                         Application.Terminate;
  563.                     end
  564.                     else if dxBarButton11.Down then
  565.                     begin
  566.                         ShellExecute(0,'open',PChar(PlayEndFileName),'','',SW_SHOW);
  567.                         Application.Terminate;
  568.                     end;
  569.                 end;
  570.             end;
  571.         end;
  572.         WM_PLAYPRIOR:
  573.         begin
  574.             if (CurrentItem<>nil) and (CurrentItem.Index>0) then
  575.                 CurrentItem:=ListView1.Items[CurrentItem.Index-1]
  576.             else
  577.             begin
  578.                 StopPlay(false);
  579.                 Exit;
  580.             end;
  582.             SpeedButton3.Click;
  583.             if CurrentItem<>nil then
  584.             begin
  585.                 if Not OpenFile(CurrentItem) then
  586.                 begin
  587.                     PostMessage(Handle,WM_PLAYPRIOR,0,0);
  588.                 end
  589.                 else
  590.                     bNextSuccess:=true;
  591.             end;
  592.         end;
  593.         
  594.     end;
  596.     if Msg.Msg<>WM_GRAPHNOTIFY then
  597.         Exit;
  599.     dllDefaultOnGraphNotify(Msg.WParam,Msg.LParam,Self,OnNotifyEvent);
  600. end;
  602. procedure TMainForm.Timer1Timer(Sender: TObject);
  603. Var
  604.     Hours,Minutes,Seconds:Integer;
  605.     vMaxHours,vMaxMinutes,vMaxSeconds,vHours,vMinutes,vSeconds:String;
  606. begin
  607.     if IsNoSet then
  608.         Exit;
  610.     if Application.Terminated then
  611.         Exit;
  612.         
  613.     if PlayState=psPreview then
  614.     begin
  615.         LMDTrackBar2.Position:=dllPreviewGetPosition;
  616.         dllPreviewGetSM(Seconds,Minutes);
  617.     end
  618.     else
  619.     begin
  620.         LMDTrackBar2.Position:=dllGetPostion;
  621.         dllReadMediaPosition(Seconds,Minutes);
  622.     end;
  623.     Hours:=Minutes div 60;
  624.     Minutes:=Minutes mod 60;
  626.     GetTimeString(MaxHours,MaxMinutes,MaxSeconds,vMaxHours,vMaxMinutes,vMaxSeconds);
  627.     GetTimeString(Hours,Minutes,Seconds,vHours,vMinutes,vSeconds);
  628.     Panel8.Caption:='播放    '+vHours+':'+vMinutes+':'+vSeconds+'/'+
  629.         vMaxHours+':'+vMaxMinutes+':'+vMaxSeconds;
  630. end;
  632. procedure TMainForm.FormDestroy(Sender: TObject);
  633. begin
  634.     //endhook;
  635.     PlayListManager.Free;
  636.     dllQuit;
  637. end;
  639. procedure TMainForm.SpeedButton4Click(Sender: TObject);
  640. begin
  641.     if Not (PlayState in [psPlay,psOne,psPause]) then
  642.     begin
  643.         SpeedButton4.Down:=false;
  644.         Exit;
  645.     end;
  646.     if SpeedButton4.Down then
  647.         dxBarButton55.Click
  648.     else
  649.         With OldPosRect do
  650.             SetBounds(Left,Top,Right,Bottom);
  651. end;
  653. procedure TMainForm.SpeedButton1Click(Sender: TObject);
  654. begin
  655.     if PlayState in [psNone,psStop] then
  656.     begin
  657.         if ListView1.Selected<>nil then
  658.             OpenFile(ListView1.Selected)
  659.         else if ListView1.Items.Count>0 then
  660.             OpenFile(ListView1.Items[0])
  661.         else
  662.             dxBarButton5.Click;
  663.     end
  664.     else
  665.     begin
  666.         dllPlay;
  667.             
  668.         dllVolume(0-(3000-LMDTrackBar1.Position));
  670.         Timer1.Enabled:=true;
  671.         dxBarButton56.OnClick(dxBarButton56);
  672.         PlayState:=psPlay;
  673.         UpdateButtonState;
  674.     end;
  675. end;
  677. procedure TMainForm.SpeedButton2Click(Sender: TObject);
  678. begin
  679.     DllPause;
  680.     PlayState:=psPause;
  681.     Timer1.Enabled:=false;
  682.     UpdateButtonState;
  683.     Panel1.Invalidate;
  684. end;
  686. procedure TMainForm.SpeedButton3Click(Sender: TObject);
  687. begin
  688.     StopPlay(false);
  689. end;
  691. procedure TMainForm.dxBarButton4Click(Sender: TObject);
  692. begin
  693.     dllShowVRPropertyPage
  694. end;
  696. procedure TMainForm.SpeedButton5Click(Sender: TObject);
  697. begin
  698.     if SpeedButton5.Visible then
  699.     begin
  700.         SpeedButton11.Visible:=true;
  701.         SpeedButton5.Visible:=false;
  702.         dllMuteAudio;
  703.     end
  704.     else
  705.     begin
  706.         SpeedButton5.Visible:=true;
  707.         SpeedButton11.Visible:=false;
  708.         dllResumeAudio;
  709.     end;
  711. end;
  713. procedure TMainForm.SpeedButton7Click(Sender: TObject);
  714. begin
  715.     CheckOne;
  716.     dllStepFrames(1);
  717.     UpdateButtonState;
  718. end;
  720. procedure TMainForm.SpeedButton8Click(Sender: TObject);
  721. begin
  722.     Rate:=Rate-(rate/2);
  723.     dllModifyRate(Rate);
  724.     if Rate>1.0 then
  725.         Panel6.Caption:='播放速度：'+FloatToStr(RoundTo(Rate,-2))+'（快速）'
  726.     else
  727.         Panel6.Caption:='播放速度：'+FloatToStr(RoundTo(Rate,-2))+'（慢速）';
  728. end;
  730. procedure TMainForm.SpeedButton9Click(Sender: TObject);
  731. begin
  732.     Rate:=Rate+0.5;
  733.     dllModifyRate(Rate);
  734.     if Rate>1.0 then
  735.         Panel6.Caption:='播放速度：'+FloatToStr(RoundTo(Rate,-2))+'（快速）'
  736.     else
  737.         Panel6.Caption:='播放速度：'+FloatToStr(RoundTo(Rate,-2))+'（慢速）';
  738. end;
  740. procedure TMainForm.SpeedButton10Click(Sender: TObject);
  741. begin
  742.     Rate:=1;
  743.     dllModifyRate(Rate);
  744.     Panel6.Caption:='播放速度：1.0（正常）';
  745. end;
  747. procedure TMainForm.LMDTrackBar2MouseDown(Sender: TObject;
  748.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  749. begin
  750.     IsNoSet:=true;
  751.     OldX:=X;
  752. end;
  754. procedure TMainForm.LMDTrackBar2MouseUp(Sender: TObject;
  755.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  756. begin
  757.     if IsNoSet then
  758.     begin
  759.         LMDTrackBar2.Position:=Round(LMDTrackBar2.MaxValue*(X/LMDTrackBar2.ClientWidth));
  760.     end;
  761.     IsNoSet:=false;
  762.     LMDTrackBar2.Invalidate;
  763. end;
  765. procedure TMainForm.LMDTrackBar2Track(Sender: TObject;
  766.   ScrollCode: TScrollCode; var ScrollPos: Integer);
  767. begin
  768.     if ScrollCode=scEndScroll then
  769.     begin
  770.         if LMDTrackBar2.Position=LMDTrackBar2.MaxValue then
  771.             LMDTrackBar2.Position:=LMDTrackBar2.Position-1;
  772.         if PlayState=psPreview then
  773.             dllPreviewSetPosition(LMDTrackBar2.Position)
  774.         else
  775.             dllSetPosition(LMDTrackBar2.Position);
  777.     end;
  778. end;
  780. procedure TMainForm.LMDTrackBar1Track(Sender: TObject;
  781.   ScrollCode: TScrollCode; var ScrollPos: Integer);
  782. begin
  783.     dllVolume(0-(3000-LMDTrackBar1.Position));
  784.     if ScrollCode=scEndScroll then
  785.     begin
  786.         WriteIni('Config' ,'Volume',IntToStr(LMDTrackBar1.Position));
  787.     end;
  788. end;
  790. procedure TMainForm.CheckOne;
  791. begin
  792.     if Not (PlayState in [psOne]) then
  793.     begin
  794.         dllSwitchStepFrame;
  795.         PlayState:=psOne;
  796.     end;
  797. end;
  799. procedure TMainForm.Panel1Resize(Sender: TObject);
  800. begin
  801.     if bLockUpateWindow then
  802.         Exit;
  803.     if (PlayState=psPreview) or (PausePreview) then
  804.         dllPreviewResize();
  805.     dllResetDisplay(Panel1.Handle);
  806. end;
  808. procedure TMainForm.Init;
  809. Var
  810.     g:TGUID;
  811. begin
  812.     InitPlayMenu(dxBarSubItem3,PopupMenu3.Items);
  813.     LMDTrackBar1.Position:=StrToInt(ReadIni('Config','Volume','0'));
  814.     g:=StringToGUID(ReadIni('Config','GUID','{c553f2c0-1529-11d0-b4d1-00805f6cbbea}'));
  815.     dllRegisterLockFilterGUID(g);
  816.     UpdateButtonState;
  817.     dxBarButton53.Down:=StrToBool(ReadIni('Config','RoundPlay','0'));
  818.     dxBarButton22.Down:=StrToBool(ReadIni('Config','Ratio','0'));
  819.     dxBarButton56.Down:=StrToBool(ReadIni('Config','AutoSize','0'));
  820.     ImageList1.GetIcon(StrToInt(ReadIni('Config','IconIndex','0')),CoolTrayIcon1.Icon);
  821.     OldPosRect.Left:=StrToInt(ReadIni('Config','PosX',IntToStr((Screen.Width-Width) div 2)));
  822.     OldPosRect.Top:=StrToInt(ReadIni('Config','PosY',IntToStr((Screen.Height-Height) div 2)));
  823.     OldPosRect.Right:=StrToInt(ReadIni('Config','PosWidth',IntToStr(Width)));
  824.     OldPosRect.Bottom:=StrToInt(ReadIni('Config','PosHeight',IntToStr(Height)));
  825.     With OldPosRect do
  826.         SetBounds(Left,Top,Right,Bottom);
  827.     CoolTrayIcon1.Refresh;
  828.     Rate:=1;
  829.     dxBarButton47.Down:=StrToBool(ReadIni('Playing','PlayListVisible','0'));
  830.     dxBarButton47Click(dxBarButton47);
  831. end;
  833. class function TMainForm.ReadIni(Section, Key, Default: String):String;
  834. Var
  835.     IniFile:TIniFile;
  836. begin
  837.     IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.Dat');
  838.     Try
  839.         Result:=IniFile.ReadString(Section,Key,Default);
  840.     Finally
  841.         IniFile.Free;
  842.     end;
  843. end;
  845. class procedure TMainForm.WriteIni(Section, Key, Value: String);
  846. Var
  847.     IniFile:TIniFile;
  848. begin
  849.     IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.Dat');
  850.     Try
  851.         IniFile.WriteString(Section,Key,Value);
  852.     Finally
  853.         IniFile.Free;
  854.     end;
  855. end;
  857. procedure TMainForm.UpdateButtonState;
  858. begin
  859.     SpeedButton4.Enabled:=Not dxBarButton56.Down;
  860.     Case PlayState of
  861.         psNone:
  862.         begin
  863.             SpeedButton1.Enabled:=true;
  864.             SpeedButton2.Enabled:=false;
  865.             SpeedButton3.Enabled:=false;
  867.             SpeedButton6.Enabled:=false;
  868.             SpeedButton14.Enabled:=false;
  870.             SpeedButton15.Enabled:=false;
  871.             SpeedButton7.Enabled:=false;
  873.             SpeedButton8.Enabled:=false;
  874.             SpeedButton9.Enabled:=false;
  875.             SpeedButton10.Enabled:=false;
  876.             Panel5.Caption:=' 状态：没有媒体';
  877.             Panel1.EraseBackground:=true;
  878.         end;
  879.         psStop:
  880.         begin
  881.             SpeedButton1.Enabled:=true;
  882.             SpeedButton2.Enabled:=false;
  883.             SpeedButton3.Enabled:=false;
  885.             SpeedButton6.Enabled:=false;
  886.             SpeedButton14.Enabled:=false;
  888.             SpeedButton15.Enabled:=false;
  889.             SpeedButton7.Enabled:=false;
  891.             SpeedButton8.Enabled:=false;
  892.             SpeedButton9.Enabled:=false;
  893.             SpeedButton10.Enabled:=false;
  894.             Panel5.Caption:=' 状态：停止';
  895.             Panel1.EraseBackground:=true;
  896.             Panel1.Invalidate;
  897.         end;
  898.         psPlay:
  899.         begin
  900.             SpeedButton1.Enabled:=false;
  901.             SpeedButton2.Enabled:=true;
  902.             SpeedButton3.Enabled:=true;
  904.             SpeedButton6.Enabled:=true;
  905.             SpeedButton14.Enabled:=true;
  907.             SpeedButton15.Enabled:=true;
  908.             SpeedButton7.Enabled:=true;
  910.             SpeedButton8.Enabled:=true;
  911.             SpeedButton9.Enabled:=true;
  912.             SpeedButton10.Enabled:=true;
  913.             Panel5.Caption:=' 状态：播放中';
  914.             Panel1.EraseBackground:=false;
  915.         end;
  916.         psPause:
  917.         begin
  918.             SpeedButton1.Enabled:=true;
  919.             SpeedButton2.Enabled:=false;
  920.             SpeedButton3.Enabled:=true;
  922.             SpeedButton6.Enabled:=true;
  923.             SpeedButton14.Enabled:=true;
  925.             SpeedButton15.Enabled:=true;
  926.             SpeedButton7.Enabled:=true;
  928.             SpeedButton8.Enabled:=false;
  929.             SpeedButton9.Enabled:=false;
  930.             SpeedButton10.Enabled:=false;
  931.             Panel5.Caption:=' 状态：暂停';
  932.             Panel1.EraseBackground:=true;
  933.         end;
  934.         psOne:
  935.         begin
  936.             SpeedButton1.Enabled:=true;
  937.             SpeedButton2.Enabled:=false;
  938.             SpeedButton3.Enabled:=true;
  940.             SpeedButton6.Enabled:=false;
  941.             SpeedButton14.Enabled:=false;
  943.             SpeedButton15.Enabled:=true;
  944.             SpeedButton7.Enabled:=true;
  946.             SpeedButton8.Enabled:=false;
  947.             SpeedButton9.Enabled:=false;
  948.             SpeedButton10.Enabled:=false;
  949.             Panel5.Caption:=' 状态：单步播放';
  950.             Panel1.EraseBackground:=true;
  951.         end;
  952.         psLoad:
  953.         begin
  954.             SpeedButton1.Enabled:=true;
  955.             SpeedButton2.Enabled:=false;
  956.             SpeedButton3.Enabled:=true;
  958.             SpeedButton6.Enabled:=false;
  959.             SpeedButton14.Enabled:=false;
  961.             SpeedButton15.Enabled:=false;
  962.             SpeedButton7.Enabled:=false;
  964.             SpeedButton8.Enabled:=false;
  965.             SpeedButton9.Enabled:=false;
  966.             SpeedButton10.Enabled:=false;
  967.             Panel5.Caption:=' 状态：文件已打开';
  968.             Panel1.EraseBackground:=true;
  969.         end;
  970.     end;
  971. end;
  973. procedure TMainForm.SpeedButton6Click(Sender: TObject);
  974. begin
  975.     if Not (PlayState in [psPlay,psPause,psOne]) then
  976.         Exit;
  978.     UpdateFullScreen(false);
  979. //    dllRestoreFromFullScreen;
  980.     SpeedButton6.Visible:=false;
  981.     SpeedButton14.Visible:=true;
  982. end;
  984. procedure TMainForm.SpeedButton14Click(Sender: TObject);
  985. begin
  986. //    dllFullscreen;
  987.     if Not (PlayState in [psPlay,psPause,psOne]) then
  988.         Exit;
  990.     UpdateFullScreen(true);
  991.     SpeedButton6.Visible:=true;
  992.     SpeedButton14.Visible:=false;
  993. end;
  995. procedure TMainForm.SpeedButton15Click(Sender: TObject);
  996. begin
  997.     if SavePictureDialog1.Execute then
  998.     begin
  999.         dllCaptureToBmp(PChar(SavePictureDialog1.FileName));
  1000.     end;
  1001. end;
  1003. procedure TMainForm.dxBarButton6Click(Sender: TObject);
  1004. begin
  1005.     OpenDialog(ftLock,ptPlay);
  1006. end;
  1008. procedure TMainForm.dxBarButton14Click(Sender: TObject);
  1009. begin
  1010.     OpenDialog(ftUnLock,ptPlay);
  1011. end;
  1013. procedure TMainForm.dxBarButton15Click(Sender: TObject);
  1014. begin
  1015.     SpeedButton1.Click;
  1016. end;
  1018. procedure TMainForm.dxBarButton16Click(Sender: TObject);
  1019. begin
  1020.     SpeedButton2.Click;
  1021. end;
  1023. procedure TMainForm.dxBarButton17Click(Sender: TObject);
  1024. begin
  1025.     SpeedButton3.Click;
  1026. end;
  1028. procedure TMainForm.dxBarButton18Click(Sender: TObject);
  1029. begin
  1030.     SpeedButton12.Click;
  1032. end;
  1034. procedure TMainForm.dxBarButton19Click(Sender: TObject);
  1035. begin
  1036.     SpeedButton13.Click;
  1037. end;
  1039. procedure TMainForm.dxBarButton24Click(Sender: TObject);
  1040. begin
  1041.     SpeedButton8.Click;
  1042. end;
  1044. procedure TMainForm.dxBarButton25Click(Sender: TObject);
  1045. begin
  1046.     SpeedButton9.Click;
  1047. end;
  1049. procedure TMainForm.dxBarButton26Click(Sender: TObject);
  1050. begin
  1051.     SpeedButton10.Click;
  1052. end;
  1054. procedure TMainForm.dxBarButton32Click(Sender: TObject);
  1055. begin
  1056.     SpeedButton7.Click;
  1057. end;
  1059. procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word;
  1060.   Shift: TShiftState);
  1061. begin
  1062.     if (Key=VK_ESCAPE) then
  1063.     begin
  1064.         if SpeedButton6.Visible then
  1065.             SpeedButton6.Click
  1066.         else
  1067.             PostMessage(Handle,WM_HIDEAPP,0,0);
  1068.     end
  1069.     else if (ssAlt in Shift) and (Key=VK_RETURN) then
  1070.     begin
  1071.         if SpeedButton6.Visible then
  1072.             SpeedButton6.Click
  1073.         else
  1074.             SpeedButton14.Click;
  1075.     end
  1076. end;
  1078. procedure TMainForm.UpdateFullScreen(b: Boolean);
  1079. Var
  1080.     a:Integer;
  1081. begin
  1082.     bLockUpateWindow:=true;
  1083.     SpeedButton2.Click;
  1084.     if b then
  1085.     begin
  1086.         //LockWindowUpdate(Handle);
  1087.         SpeedButton4.Visible:=false;
  1088.         dxBarManager1.Bars[0].Visible:=false;
  1089.         Panel1.Align:=alNone;
  1090.         Panel2.Align:=alNone;
  1091.         Panel2.Visible:=false;
  1092.         ListView1.Visible:=false;
  1094.         OldRec:=Rect(Self.Left,Self.Top,Self.Width,Self.Height);
  1095.         a:=GetWindowLong(Handle, GWL_STYLE);
  1096.         a:=a and not WS_CAPTION;
  1097.         SetWindowLong(Handle,GWL_STYLE,a);
  1098.         SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOPMOST);
  1099.         SetBounds(-4,-4,Screen.Width+8,Screen.Height+8);
  1100.         Self.Panel1.SetBounds(0,0,Screen.Width,Screen.Height);
  1101.         Self.Panel2.SetBounds(0,ClientHeight-Panel2.Height,ClientWidth,Panel2.Height);
  1103.         ShowCursor(false);
  1105. //        dllFullscreen;
  1106.         //LockWindowUpdate(0);
  1107.     end
  1108.     else
  1109.     begin
  1110.         SpeedButton4.Visible:=true;
  1111.         SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) and not WS_EX_TOPMOST);
  1112.         SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE) or WS_CAPTION or WS_BORDER);
  1113.         Self.SetBounds(OldRec.Left,OldRec.Top,OldRec.Right,OldRec.Bottom);
  1114.         Panel1.SetBounds(Self.ClientRect.Left,Self.ClientRect.Top,
  1115.             Self.ClientRect.Right-Self.ClientRect.Left,Self.ClientRect.Bottom-Self.ClientRect.Top);
  1116.         Panel1.Align:=alClient;
  1117.         Panel2.Align:=alBottom;
  1118.         dxBarManager1.Bars[0].Visible:=true;
  1119.         Self.Panel2.Visible:=true;
  1120.         ListView1.Visible:=dxBarButton47.Down;
  1121.         ShowCursor(true);
  1122. //        dllRestoreFromFullScreen;
  1123.     end;
  1124.     bLockUpateWindow:=false;
  1125.     PostMessage(Handle,WM_FULLSCREEN,0,0);
  1126. end;
  1128. procedure TMainForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  1129.   Y: Integer);
  1130. begin
  1131.     if SpeedButton6.Visible then
  1132.     begin
  1134.         if (X<>OldPt.X) or (Y<>OldPt.Y) then
  1135.         begin
  1136.             OldPt:=Point(X,Y);
  1137.             MouseTimeout:=GetTickCount;
  1138.             if Not Timer2.Enabled then
  1139.             begin
  1140.                 ShowCursor(true);
  1141.                 Timer2.Enabled:=true;
  1142.             end;
  1143.         end;
  1145.         if Y>=Self.Height-Panel2.Height then
  1146.         begin
  1147.             if Panel2.Visible then
  1148.                 Exit;
  1150.             Panel2.Visible:=true;
  1151.         end
  1152.         else
  1153.         begin
  1154.             if Not Panel2.Visible then
  1155.                 Exit;
  1157.             Panel2.Visible:=false;
  1158.         end;
  1159.     end;
  1160. end;
  1162. procedure TMainForm.WMFULLSCREEN(var Msg: TMessage);
  1163. begin
  1164.     Panel1.OnResize(Panel1);
  1165.     SpeedButton1.Click;
  1166. end;
  1168. procedure TMainForm.dxBarButton44Click(Sender: TObject);
  1169. begin
  1170.     if OpenDialog1.Execute then
  1171.     begin
  1172.         dllAddUnLockGraph(PChar(OpenDialog1.FileName));
  1173.     end;
  1174. end;
  1176. procedure TMainForm.dxBarButton7Click(Sender: TObject);
  1177. begin
  1178.     Form1.ShowModal;
  1179. end;
  1181. function TMainForm.OpenFile(Item:TListItem): Boolean;
  1182. Var
  1183.     Info:PPlayFileInfo;
  1184.     FileStream:TFileStream;
  1185.     Str,Key:String;
  1186.     i:Integer;
  1187.     pStr:Array[0..1024] of Char;
  1188.     Var1,Var2:Integer;
  1189.     StrList:TStringList;
  1190.     Bu:TdxBarButton;
  1191.     b:Boolean;
  1192.     ItemLink:TdxBarItemLink;
  1193. begin
  1194.     Result:=false;
  1195.     Info:=Item.Data;
  1196.     if Not Info.bExists then
  1197.         Exit;
  1198.     if Info.bLock then
  1199.     begin
  1200.         if DllOpenLockFile(PChar(Info.FileName),PChar(PForm.Password))=0 then
  1201.             Exit;
  1203.         PlayState:=psLoad;
  1204.         SpeedButton1.Click;
  1205.         UpdateButtonState;
  1206.     end
  1207.     else
  1208.     begin
  1209.         if DllOpenUnLockFile(PChar(Info.FileName))=0 then
  1210.             Exit;
  1211.         PlayState:=psLoad;
  1212.         SpeedButton1.Click;
  1213.         UpdateButtonState;
  1214.     end;
  1215.     CurrentItem:=Item;
  1216.     ListView1.Invalidate;
  1217.     DoRatio;
  1218.     DllConfig('GETFILTERNAMES',Var1,Var2);
  1219.     dxBarButton7.DestroyComponents;
  1221.     StrList:=TStringList.Create;
  1222.     Try
  1223.         b:=true;
  1224.         StrList.Text:=StrPas(Ptr(Var1));
  1225.         For i:=0 to StrList.Count-1 do
  1226.         begin
  1227.             if StrList.Strings[i]='' then
  1228.                 Continue;
  1230.             Bu:=TdxBarButton.Create(dxBarButton7);
  1231.             Bu.Caption:=StrList.Strings[i];
  1232.             Bu.OnClick:=FilterOptionClick;
  1233.             ItemLink:=dxBarSubItem12.ItemLinks.Add;
  1234.             ItemLink.Item:=Bu;
  1235.             if b then
  1236.             begin
  1237.                 b:=false;
  1238.                 ItemLink.BeginGroup:=true;
  1239.             end;
  1240.         end;
  1241.     Finally
  1242.         StrList.Free;
  1243.     end;
  1244.     Result:=true;
  1245. end;
  1247. procedure TMainForm.dxBarButton5Click(Sender: TObject);
  1248. begin
  1249.     OpenDialog(ftUnKnown,ptPlay);
  1250. end;
  1252. procedure TMainForm.ApplicationEvents1Exception(Sender: TObject;
  1253.   E: Exception);
  1254. Var
  1255.     Str:String;
  1256. begin
  1257.     Str:=E.Message;
  1258. end;
  1260. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  1261. begin
  1262.     StopPlay(true);
  1263. end;
  1265. procedure TMainForm.OnReadyEnd(Sender: TObject; PlayInfo: PPlayFileInfo; Item:TListItem);
  1266. Var
  1267.     vItem:TListItem;
  1268.     Info:PPlayFileInfo;
  1269. begin
  1270.     if PlayInfo.bExists then
  1271.     begin
  1272.         vItem:=Item;
  1273.         While (Not OpenFile(vItem)) and (vItem.Index<ListView1.Items.Count-1) do
  1274.         begin
  1275.             vItem:=ListView1.Items[vItem.Index+1];
  1276.         end;
  1277.         Info:=vItem.Data;
  1278.         Self.MaxHours:=Info.MediaInfo.PlayHours;
  1279.         Self.MaxMinutes:=Info.MediaInfo.PlayMinites;
  1280.         Self.MaxSeconds:=Info.MediaInfo.PlaySeconds;
  1281.         if Info.Pos>0 then
  1282.         begin
  1283.             LMDTrackBar2.Position:=Info.Pos;
  1284.             dllSetPosition(LMDTrackBar2.Position);
  1285.         end;
  1286.     end;
  1287. end;
  1289. procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView;
  1290.   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  1291. Var
  1292.     Info:PPlayFileInfo;
  1293.     OldColor:TColor;
  1294. begin
  1295.     Info:=Item.Data;
  1296.     Sender.Canvas.Font.Color:=clLime;
  1297.     if Not Info.bExists then
  1298.     begin
  1299.         Sender.Canvas.Brush.Color:=clRed
  1300.     end
  1301.     else
  1302.         Sender.Canvas.Brush.Color:=clBlack;
  1304.     if Item=CurrentItem then
  1305.     begin
  1306.         Sender.Canvas.Brush.Color:=clYellow;
  1307.         Sender.Canvas.Font.Color:=clBlack;
  1308.     end;
  1309. end;
  1311. procedure TMainForm.OpenDialog(FileType:TFileType; PlayType:TPlayType);
  1312. Var
  1313.     i:Integer;
  1314. begin
  1315.     if Opendialog1.Execute then
  1316.     begin
  1317. {
  1318.         DllOpenUnLockFile(PChar(OpenDialog1.FileName));
  1319.         SpeedButton1.Click;
  1320.         Exit;
  1321. }
  1322.         For i:=0 to OpenDialog1.Files.Count-1 do
  1323.         begin
  1324.             if (i=0) and (PlayType=ptPlay) then
  1325.             begin
  1326.                 Self.PlayListManager.Add(OpenDialog1.Files.Strings[i],FileType,ptPlay);
  1327.             end
  1328.             else
  1329.                 Self.PlayListManager.Add(OpenDialog1.Files.Strings[i],FileType,ptAdd);
  1330.         end;
  1331.     end;
  1332. end;
  1334. procedure TMainForm.N10Click(Sender: TObject);
  1335. begin
  1336.     OpenDialog(ftUnLock,ptAdd);
  1338. end;
  1340. procedure TMainForm.N11Click(Sender: TObject);
  1341. Var
  1342.     CurDelete:Boolean;
  1343.     i:Integer;
  1344.     Item:TListItem;
  1345.     List:TList;
  1346. begin
  1347.     Item:=ListView1.Selected;
  1348.     if Item=nil then
  1349.         Exit;
  1350.     List:=TList.Create;
  1351.     Try
  1352.         Repeat
  1353.             List.Add(Item);
  1354.             Item:=ListView1.GetNextItem(Item, sdAll, [isSelected]);
  1355.         Until Item=nil;
  1357.         CurDelete:=false;
  1358.         For i:=0 to List.Count-1 do
  1359.         begin
  1360.             if List.Items[i]=CurrentItem then
  1361.             begin
  1362.                 CurDelete:=true;
  1363.                 if SpeedButton3.Enabled then
  1364.                     SpeedButton3.Click;
  1365.                 CurrentItem:=ListView1.GetNextItem(CurrentItem, sdAll, []);
  1366.             end;
  1367.             Self.PlayListManager.Delete(TListItem(List.Items[i]));
  1368.         end;
  1369.         if CurDelete then
  1370.         begin
  1371.             if CurrentItem<>nil then
  1372.                 OpenFile(CurrentItem);
  1373.         end;
  1374.     Finally
  1375.         List.Free;
  1376.     end;
  1377. end;
  1379. procedure TMainForm.N3Click(Sender: TObject);
  1380. begin
  1381.     if OpenDialog2.Execute then
  1382.     begin
  1383.         Self.PlayListManager.Open(OpenDialog2.FileName,false);
  1384.     end;
  1385. end;
  1387. procedure TMainForm.N4Click(Sender: TObject);
  1388. begin
  1389.     if OpenDialog2.Execute then
  1390.     begin
  1391.         Self.PlayListManager.Open(OpenDialog2.FileName,true);
  1392.     end;
  1394. end;
  1396. procedure TMainForm.N5Click(Sender: TObject);
  1397. begin
  1398.     if Self.PlayListManager.FileName<>'' then
  1399.     begin
  1400.         Self.PlayListManager.Save(Self.PlayListManager.FileName,CurrentItem);
  1401.     end
  1402.     else
  1403.         if SaveDialog1.Execute then
  1404.             Self.PlayListManager.Save(SaveDialog1.FileName,CurrentItem);
  1405. end;
  1407. procedure TMainForm.N6Click(Sender: TObject);
  1408. begin
  1409.     if SaveDialog2.Execute then
  1410.     begin
  1411.         if UpperCase(ExtractFileExt(SaveDialog2.FileName))='.WPL' then
  1412.             Self.PlayListManager.Save(SaveDialog2.FileName,CurrentItem)
  1413.         else
  1414.             Self.PlayListManager.SaveAs(SaveDialog2.FileName);
  1415.     end;
  1416. end;
  1418. procedure TMainForm.LMDTrackBar1MouseUp(Sender: TObject;
  1419.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1420. begin
  1421.     Self.LMDTrackBar1.Invalidate;
  1422. end;
  1424. procedure TMainForm.ListView1DblClick(Sender: TObject);
  1425. begin
  1426.     if ListView1.Selected<>nil then
  1427.     begin
  1428.         Self.OpenFile(ListView1.Selected);
  1429.     end;
  1430. end;
  1432. procedure TMainForm.dxBarButton53Click(Sender: TObject);
  1433. Var
  1434.     b:Boolean;
  1435.     Item:TMenuItem;
  1436. begin
  1437.     if Sender is TMenuItem then
  1438.     begin
  1439.         Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1440.         if Item<>nil then
  1441.         begin
  1442.             Item.Checked:=Not Item.Checked;
  1443.             b:=Item.Checked;
  1444.         end
  1445.         else
  1446.             b:=dxBarButton53.Down;
  1447.     end
  1448.     else
  1449.         b:=dxBarButton53.Down;
  1450.     WriteIni('Config','RoundPlay',BoolToStr(b));
  1451.     if Sender is TdxBarButton then
  1452.     begin
  1453.         Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1454.         if Item<>nil then
  1455.         begin
  1456.             Item.Checked:=b;
  1457.         end;
  1458.     end
  1459.     else
  1460.         dxBarButton53.Down:=b;
  1462. end;
  1464. procedure TMainForm.SpeedButton13Click(Sender: TObject);
  1465. begin
  1466.     PostMessage(Handle,WM_PLAYNEXT,0,0);
  1467. end;
  1469. procedure TMainForm.ListView1DragOver(Sender, Source: TObject; X,
  1470.   Y: Integer; State: TDragState; var Accept: Boolean);
  1471. begin
  1472.     if Source=ListView1 then accept :=true;
  1473. end;
  1475. procedure TMainForm.ListView1DragDrop(Sender, Source: TObject; X,
  1476.   Y: Integer);
  1477. var
  1478.     DragItem, TargetItem:TListItem;
  1479.     TargetIndex: integer;
  1480. begin
  1481.     DragItem := ListView1.Selected;
  1482.     TargetIndex := ListView1.DropTarget.Index;
  1483.     if TargetIndex>DragItem.Index then
  1484.         TargetItem:=ListView1.Items.Insert(TargetIndex+1)
  1485.     else
  1486.         TargetItem:=ListView1.Items.Insert(TargetIndex);
  1487.     TargetItem.Assign(DragItem);
  1488.     DragItem.Delete;
  1489. end;
  1491. procedure TMainForm.dxBarButton22Click(Sender: TObject);
  1492. begin
  1493.     SpeedButton4.Enabled:=Not dxBarButton56.Down;
  1494.     DoRatio;
  1495. end;
  1497. procedure TMainForm.dxBarButton21Click(Sender: TObject);
  1498. begin
  1499.     SpeedButton14.Click;
  1500. end;
  1502. procedure TMainForm.dxBarButton13Click(Sender: TObject);
  1503. begin
  1504.     PForm.ShowModal;
  1505. end;
  1507. procedure TMainForm.dxBarButton30Click(Sender: TObject);
  1508. begin
  1509.     N10.Click;
  1510. end;
  1512. procedure TMainForm.dxBarButton31Click(Sender: TObject);
  1513. begin
  1514.     N11.Click;
  1515. end;
  1517. procedure TMainForm.dxBarButton27Click(Sender: TObject);
  1518. begin
  1519.     N3.Click;
  1520. end;
  1522. procedure TMainForm.dxBarButton46Click(Sender: TObject);
  1523. begin
  1524.     N4.Click;
  1525. end;
  1527. procedure TMainForm.dxBarButton29Click(Sender: TObject);
  1528. begin
  1529.     N5.Click;
  1530. end;
  1532. procedure TMainForm.dxBarButton28Click(Sender: TObject);
  1533. begin
  1534.     N6.Click;
  1535. end;
  1537. procedure TMainForm.dxBarButton33Click(Sender: TObject);
  1538. begin
  1539.     AForm.ShowModal;
  1540. end;
  1542. procedure TMainForm.ApplicationEvents1Activate(Sender: TObject);
  1543. begin
  1544.     if (PlayState=psPause) and AutoPause then
  1545.     begin
  1546.         SpeedButton1.Click;
  1547.         AutoPause:=false;
  1548.     end;
  1549. end;
  1551. procedure TMainForm.ApplicationEvents1Deactivate(Sender: TObject);
  1552. begin
  1553.     if (PlayState=psPlay) and (Not AutoPause) then
  1554.     begin
  1555.         AutoPause:=true;
  1556.         SpeedButton2.Click;
  1557.         if N15.Checked then
  1558.             CoolTrayIcon1.HideMainForm
  1559.         else if N14.Checked then
  1560.         begin
  1561.         end
  1562.         else
  1563.             Application.Terminate;
  1564.     end;
  1565. end;
  1567. procedure TMainForm.dxBarButton11Click(Sender: TObject);
  1568. begin
  1569.     if OpenDialog3.Execute then
  1570.     begin
  1571.         PlayEndFileName:=OpenDialog3.FileName;
  1572.     end;
  1573. end;
  1575. procedure TMainForm.DoRatio;
  1576. begin
  1577.     if dxBarButton22.Down then
  1578.         dllDisplayRatio(1)
  1579.     else
  1580.         dllDisplayRatio(0);
  1581.     WriteIni('Config','Ratio',BoolToStr(dxBarButton22.Down));
  1582. end;
  1583. procedure TMainForm.dxBarButton47Click(Sender: TObject);
  1584. begin
  1585.     ListView1.Visible:=dxBarButton47.Down;
  1586.     dxBarButton56.OnClick(dxBarButton56);
  1587.     if (Not dxBarButton56.Down) and (SpeedButton4.Down) then
  1588.     begin
  1589.         SpeedButton4.OnClick(SpeedButton4);
  1590.     end;
  1591.     WriteIni('Playing','PlayListVisible',BoolToStr(dxBarButton47.Down));
  1592. end;
  1594. procedure TMainForm.Panel1Paint(Sender: TObject);
  1595. Var
  1596.     dc:HDC;
  1597. begin
  1598.     if Not (PlayState in [psPause,psOne]) then
  1599.         Exit;
  1601.     DC:=GetDC(Panel1.Handle);
  1602.     Try
  1603.         dllRepaint(Panel1.Handle,DC);
  1604.     Finally
  1605.         ReleaseDC(Panel1.Handle,DC);
  1606.     end;
  1607. end;
  1609. procedure TMainForm.SpeedButton12Click(Sender: TObject);
  1610. begin
  1611.     PostMessage(Handle,WM_PLAYPRIOR,0,0);
  1612. end;
  1614. procedure TMainForm.CoolTrayIcon1Click(Sender: TObject);
  1615. begin
  1616.     if Not MainForm.Showing then
  1617.         CoolTrayIcon1.ShowMainForm;
  1618. end;
  1620. procedure TMainForm.N12Click(Sender: TObject);
  1621. begin
  1622.     Application.Terminate;
  1623. end;
  1625. procedure TMainForm.N8Click(Sender: TObject);
  1626. begin
  1627.     if Not MainForm.Showing then
  1628.         CoolTrayIcon1.ShowMainForm;
  1629. end;
  1631. procedure TMainForm.dxBarButton55Click(Sender: TObject);
  1632. Var
  1633.     W,h:Integer;
  1634.     Rec:TRect;
  1635. begin
  1636.     if SpeedButton6.Visible then
  1637.         Exit;
  1639.     OldPosRect:=Rect(Left,Top,Width,Height);
  1640.     if dllGetVideoRect(@Rec) then
  1641.     begin
  1642.         W:=Rec.Right-Panel1.ClientWidth;
  1643.         H:=Rec.Bottom-Panel1.ClientHeight;
  1644.         Width:=Width+W;
  1645.         Height:=Height+H;
  1646.     end;
  1647.     Left:=(Screen.Width-Width) div 2;
  1648.     Top:=(Screen.Height-Height) div 2;
  1649. end;
  1651. procedure TMainForm.dxBarButton56Click(Sender: TObject);
  1652. begin
  1653.     SpeedButton4.Enabled:=Not dxBarButton56.Down;
  1654.     if dxBarButton56.Down then
  1655.     begin
  1656.         DoRatio;
  1657.         dxBarButton55.Click;
  1658.     end;
  1659.     WriteIni('Config','AutoSize',BoolToStr(dxBarButton56.Down));
  1660. end;
  1662. procedure TMainForm.MenuItemClick(Sender: TObject);
  1663. begin
  1664.     ImageList1.GetIcon(TMenuItem(Sender).ImageIndex,CoolTrayIcon1.Icon);
  1665.     CoolTrayIcon1.Refresh;
  1666.     WriteIni('Config','IconIndex',IntToStr(TMenuItem(Sender).ImageIndex));
  1667. end;
  1669. procedure TMainForm.dxBarButton57Click(Sender: TObject);
  1670. Var
  1671.     Pos:LongInt;
  1672.     FileName:String;
  1673.     FileType:TFileType;
  1674. begin
  1675.     Pos:=StrToInt(ReadIni('Config','PlayPos','-1'));
  1676.     FileName:=ReadIni('Config','PlayPosFileName','');
  1677.     FileType:=TFileType(StrToInt(ReadIni('Config','FileType','0')));
  1678.     if (FileName='') or (Not FileExists(FileName)) or (Pos=-1) then
  1679.     begin
  1680.         MessageBox(Handle,'未发现可以恢复的媒体信息','提示',MB_ICONINFORMATION);
  1681.         Exit;
  1682.     end;
  1684.     bContinuePlay:=true;
  1685.     PlayListManager.Add(FileName,FileType,ptPlay,Pos);
  1688. end;
  1690. procedure TMainForm.StopPlay(IsSave: Boolean);
  1691. Var
  1692.     Pos:LongInt;
  1693.     Info:PPlayFileInfo;
  1694. begin
  1695.     if IsSave and (PlayState in [psPlay,psPause,psOne]) then
  1696.     begin
  1697.         Pos:=dllGetPostion;
  1698.         Info:=CurrentItem.Data;
  1699.         WriteIni('Config','PlayPos',IntToStr(Pos));
  1700.         WriteIni('Config','PlayPosFileName',Info.FileName);
  1701.         WriteIni('Config','FileType',IntToStr(Integer(Info.FileType)));
  1702.     end;
  1703.     DllStop;
  1704.     PlayState:=psStop;
  1705.     Timer1.Enabled:=false;
  1706.     UpdateButtonState;
  1707.     LMDTrackBar2.Position:=0;
  1708.     Panel1.Invalidate;
  1709. end;
  1711. procedure TMainForm.DropURLTarget1Drop(Sender: TObject;
  1712.   ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
  1713. begin
  1714.     PlayListManager.Add(TDropURLTarget(Sender).URL,ftUnknown,ptAdd);
  1715. end;
  1717. procedure TMainForm.DropFileTarget1Drop(Sender: TObject;
  1718.   ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
  1719. var
  1720.     i: integer;
  1721. begin
  1722.     with TDropFileTarget(Sender) do
  1723.     begin
  1724.         for i := 0 to files.count-1 do
  1725.         begin
  1726.             if (i=0) and (ListView1.Items.Count=0) then
  1727.                 PlayListManager.Add(files[i],ftUnknown,ptPlay)
  1728.             else
  1729.                 PlayListManager.Add(files[i],ftUnknown,ptAdd);
  1730.         end;
  1731.     end;
  1732. end;
  1734. procedure TMainForm.FormResize(Sender: TObject);
  1735. Var
  1736.     Rec:TRect;
  1737. begin
  1738.     Rec:=Rect(Left,Top,Width,Height);
  1739.     WriteIni('Config','PosX',IntToStr(Rec.Left));
  1740.     WriteIni('Config','PosY',IntToStr(Rec.Top));
  1741.     WriteIni('Config','PosWidth',IntToStr(Rec.Right));
  1742.     WriteIni('Config','PosHeight',IntToStr(Rec.Bottom));
  1743. end;
  1745. procedure TMainForm.SpeedButton16Click(Sender: TObject);
  1746. begin
  1747.     AuForm.ShowModal;
  1748. end;
  1750. procedure TMainForm.dxBarButton58Click(Sender: TObject);
  1751. Var
  1752.     Val1,Val2:LongInt;
  1753. begin
  1754.     DllConfig('SHOWDECODEPROPERTY',Val1,Val2);
  1755. end;
  1757. procedure TMainForm.FilterOptionClick(Sender: TObject);
  1758. Var
  1759.     Val1,Val2:LongInt;
  1760. begin
  1761.     Val1:=Integer(PChar(TdxBarButton(Sender).Caption));
  1762.     DllConfig('SHOWFILTERPROPERTY',Val1,Val2);
  1764. end;
  1766. procedure TMainForm.dxBarButton60Click(Sender: TObject);
  1767. begin
  1768.     CEForm.ShowModal;
  1769. end;
  1771. procedure TMainForm.LMDTrackBar1MouseWheel(Sender: TObject;
  1772.   Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  1773.   var Handled: Boolean);
  1774. begin
  1775.     LMDTrackBar1.Position:=LMDTrackBar1.Position+WheelDelta;
  1776. end;
  1778. procedure TMainForm.FormDeactivate(Sender: TObject);
  1779. begin
  1780.     ApplicationEvents1Deactivate(nil);
  1781. end;
  1783. class function TMainForm.ReadReg(Key: String; DefaultValue: Variant): Variant;
  1784. Var
  1785.     Reg:TRegistry;
  1786. begin
  1787.     Result:=NULL;
  1788.     Reg:=TRegistry.Create;
  1789.     Try
  1790.         Reg.RootKey:=HKEY_CURRENT_USER;
  1791.         if Reg.OpenKey('/WHSUPPERPLAYER/RUN',false) then
  1792.         begin
  1793.             Result:=Reg.ReadString(Key);
  1794.             if VarIsNull(Result) or VarIsEmpty(Result) then
  1795.                 Result:=DefaultValue;
  1796.         end
  1797.         else
  1798.             Result:=DefaultValue;
  1799.     Finally
  1800.         Reg.Free;
  1801.     end;
  1803. end;
  1805. class procedure TMainForm.WriteReg(Key: String; Value: Variant);
  1806. Var
  1807.     Reg:TRegistry;
  1808. begin
  1809.     Reg:=TRegistry.Create;
  1810.     Try
  1811.         Reg.RootKey:=HKEY_CURRENT_USER;
  1812.         if Reg.OpenKey('/WHSUPPERPLAYER/RUN',true) then
  1813.         begin
  1814.             Reg.WriteString(Key,Value);
  1815.         end
  1816.     Finally
  1817.         Reg.Free;
  1818.     end;
  1819. end;
  1821. procedure TMainForm.dxBarButton62Click(Sender: TObject);
  1822. begin
  1823.     Close;
  1824. end;
  1826. procedure TMainForm.InitPlayMenu(Items: TdxBarSubItem; MenuItem:TMenuItem);
  1827. Var
  1828.     i:Integer;
  1829.     Item:TMenuItem;
  1830.     Link:TdxBarItemLink;
  1831. begin
  1832.     for i:=0 to Items.ItemLinks.Count-1 do
  1833.     begin
  1834.         Link:=Items.ItemLinks.Items[i];
  1836.         if Link.BeginGroup then
  1837.         begin
  1838.             Item:=TMenuItem.Create(MenuItem);
  1839.             MenuItem.Add(Item);
  1840.             Item.Caption:='-';
  1841.         end;
  1843.         if Link.Item.ClassType=TdxBarSubItem then
  1844.         begin
  1845.             Item:=TMenuItem.Create(MenuItem);
  1846.             MenuItem.Add(Item);
  1847.             Item.Caption:=Link.Caption;
  1848.             Item.OnClick:=TdxBarSubItem(Link.Item).OnClick;
  1849.             InitPlayMenu(TdxBarSubItem(Link.Item),Item);
  1850.         end
  1851.         else
  1852.         begin
  1853.             Item:=TMenuItem.Create(MenuItem);
  1854.             MenuItem.Add(Item);
  1855.             Item.Caption:=Link.Caption;
  1856.             Item.OnClick:=TdxBarButton(Link.Item).OnClick;
  1857.         end;
  1858.     end;
  1859. end;
  1861. procedure TMainForm.PopupMenu3Popup(Sender: TObject);
  1862. Var
  1863.     Item:TMenuItem;
  1864. begin
  1865.     Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1866.     if Item<>nil then
  1867.     begin
  1868.         Item.Checked:=dxBarButton53.Down;
  1869.     end;
  1870. end;
  1872. procedure TMainForm.Panel1DblClick(Sender: TObject);
  1873. Var
  1874.     nLayer:Integer;
  1875.     Pt:TPoint;
  1876. begin
  1877.     if PlayState in [psPreview] then
  1878.     begin
  1879.         GetCursorPos(Pt);
  1880.         Pt:=Panel1.ScreenToClient(Pt);
  1881.         nLayer:=GetLayerNo(Pt.X,Pt.Y);
  1882.         PlayListManager.Add(PreviewFileName[nLayer],ftUnknown,ptPlay,LMDTrackBar2.Position);
  1883.         PausePreview:=true;
  1884.         DllPreviewPause();
  1885.         Exit;
  1886.     end;
  1888.     if Not (PlayState in [psPlay,psPause,psOne,psPreview]) then
  1889.         Exit;
  1891.     if SpeedButton14.Visible then
  1892.         SpeedButton14.Click
  1893.     else
  1894.         SpeedButton6.Click;
  1895. end;
  1897. procedure TMainForm.Timer2Timer(Sender: TObject);
  1898. begin
  1899.     if Not (SpeedButton6.Visible) then
  1900.         Exit;
  1902.     if Panel2.Visible then
  1903.         Exit;
  1905.     if GetTickCount-MouseTimeout>2000 then
  1906.     begin
  1907.         Timer2.Enabled:=false;
  1908.         ShowCursor(false);
  1909.     end;
  1910. end;
  1912. procedure TMainForm.dxBarButton63Click(Sender: TObject);
  1913. Var
  1914.     i,L,T:Integer;
  1915.     Rec:TRect;
  1916.     procedure GetRect;
  1917.     Var
  1918.         W,H:Integer;
  1919.     begin
  1920.         W:=Panel1.ClientWidth div 2;
  1921.         H:=Panel1.ClientHeight div 2;
  1922.         T:=(i div 2)*H;
  1923.         L:=(i mod 2)*W;
  1924.         Rec:=Rect(L,T,L+W,T+H);
  1925.     end;
  1926. begin
  1927.     if Not (PlayState in [psPreview,psNone]) then
  1928.         SpeedButton3.Click;
  1929.         
  1930.     PausePreview:=false;
  1931.     dllBeginPreview(Panel1.Handle,4);
  1932.     if OpenDialog1.Execute then
  1933.     begin
  1934.         for i:=0 to OpenDialog1.Files.Count-1 do
  1935.         begin
  1936.             dllSetPreviewMedia(PChar(OpenDialog1.Files.Strings[i]),i);
  1937.             GetRect;
  1938.             dllSetPreviewMediaRect(i,Rec);
  1939.             PreviewFileName[i]:=OpenDialog1.Files.Strings[i];
  1940.         end;
  1941.     end;
  1942.     dllPreviewPlay;
  1943.     PlayState:=psPreview;
  1944.     Timer1.Enabled:=true;
  1945. end;
  1947. function TMainForm.GetLayerNo(X,Y:Integer):Integer;
  1948. Var
  1949.     nLayer:Integer;
  1950. begin
  1951.     nLayer:=0;
  1952.     if PtInRect(Rect(0,0,ClientWidth div 2,ClientHeight div 2),Point(X,Y)) then
  1953.     begin
  1954.         nLayer:=0;
  1955.     end
  1956.     else if PtInRect(Rect(ClientWidth div 2,0,ClientWidth,ClientHeight div 2),Point(X,Y)) then
  1957.     begin
  1958.         nLayer:=1;
  1959.     end
  1960.     else if PtInRect(Rect(0,ClientHeight div 2,ClientWidth div 2,ClientHeight),Point(X,Y)) then
  1961.     begin
  1962.         nLayer:=2;
  1963.     end
  1964.     else if PtInRect(Rect(0,ClientHeight div 2,ClientWidth,ClientHeight),Point(X,Y)) then
  1965.     begin
  1966.         nLayer:=3;
  1967.     end;
  1968.     Result:=nLayer;
  1969. end;
  1971. procedure TMainForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  1972.   Shift: TShiftState; X, Y: Integer);
  1973. begin
  1974.     PreviewClick:=true;
  1975. end;
  1977. procedure TMainForm.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  1978.   Shift: TShiftState; X, Y: Integer);
  1979. Var
  1980.     nLayer:Integer;
  1981. begin
  1982.     if (PreviewClick) and (PlayState=psPreview) then
  1983.     begin
  1984.         nLayer:=GetLayerNo(X,Y);
  1985.         PreviewClick:=false;
  1986.         dllPreviewSetAudio(nLayer,0-(3000-LMDTrackBar1.Position));
  1987.     end;
  1988. end;
  1990. procedure TMainForm.dxBarButton64Click(Sender: TObject);
  1991. begin
  1992.     if PlayState<>psPreview then
  1993.     begin
  1994.         Exit;
  1995.     end;
  1996.     Timer1.Enabled:=false;
  1997.     Playstate:=psNone;
  1998.     DllEndPreview();
  2000.     PausePreview:=false;
  2001.     Panel1.Invalidate;
  2002. end;
  2004. procedure TMainForm.dxBarButton65Click(Sender: TObject);
  2005. begin
  2006.     if PausePreview then
  2007.     begin
  2008.         SpeedButton3.Click;
  2009.         PlayState:=psPreview;
  2010.         DllPreviewPlay();
  2011.         Timer1.Enabled:=true;
  2012.     end
  2013. end;
  2015. end.