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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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 Not (PlayState in [psPlay,psPause,psOne,psPreview]) then
  1072.             Exit;
  1074.         if SpeedButton6.Visible then
  1075.             SpeedButton6.Click
  1076.         else
  1077.             SpeedButton14.Click;
  1078.     end
  1079. end;
  1081. procedure TMainForm.UpdateFullScreen(b: Boolean);
  1082. Var
  1083.     a:Integer;
  1084. begin
  1085.     bLockUpateWindow:=true;
  1086.     SpeedButton2.Click;
  1087.     if b then
  1088.     begin
  1089.         //LockWindowUpdate(Handle);
  1090.         SpeedButton4.Visible:=false;
  1091.         dxBarManager1.Bars[0].Visible:=false;
  1092.         Panel1.Align:=alNone;
  1093.         Panel2.Align:=alNone;
  1094.         Panel2.Visible:=false;
  1095.         ListView1.Visible:=false;
  1097.         OldRec:=Rect(Self.Left,Self.Top,Self.Width,Self.Height);
  1098.         a:=GetWindowLong(Handle, GWL_STYLE);
  1099.         a:=a and not WS_CAPTION;
  1100.         SetWindowLong(Handle,GWL_STYLE,a);
  1101.         SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOPMOST);
  1102.         SetBounds(-4,-4,Screen.Width+8,Screen.Height+8);
  1103.         Self.Panel1.SetBounds(0,0,Screen.Width,Screen.Height);
  1104.         Self.Panel2.SetBounds(0,ClientHeight-Panel2.Height,ClientWidth,Panel2.Height);
  1106.         ShowCursor(false);
  1108. //        dllFullscreen;
  1109.         //LockWindowUpdate(0);
  1110.     end
  1111.     else
  1112.     begin
  1113.         SpeedButton4.Visible:=true;
  1114.         SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) and not WS_EX_TOPMOST);
  1115.         SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE) or WS_CAPTION or WS_BORDER);
  1116.         Self.SetBounds(OldRec.Left,OldRec.Top,OldRec.Right,OldRec.Bottom);
  1117.         Panel1.SetBounds(Self.ClientRect.Left,Self.ClientRect.Top,
  1118.             Self.ClientRect.Right-Self.ClientRect.Left,Self.ClientRect.Bottom-Self.ClientRect.Top);
  1119.         Panel1.Align:=alClient;
  1120.         Panel2.Align:=alBottom;
  1121.         dxBarManager1.Bars[0].Visible:=true;
  1122.         Self.Panel2.Visible:=true;
  1123.         ListView1.Visible:=dxBarButton47.Down;
  1124.         ShowCursor(true);
  1125. //        dllRestoreFromFullScreen;
  1126.     end;
  1127.     bLockUpateWindow:=false;
  1128.     PostMessage(Handle,WM_FULLSCREEN,0,0);
  1129. end;
  1131. procedure TMainForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  1132.   Y: Integer);
  1133. begin
  1134.     if SpeedButton6.Visible then
  1135.     begin
  1137.         if (X<>OldPt.X) or (Y<>OldPt.Y) then
  1138.         begin
  1139.             OldPt:=Point(X,Y);
  1140.             MouseTimeout:=GetTickCount;
  1141.             if Not Timer2.Enabled then
  1142.             begin
  1143.                 ShowCursor(true);
  1144.                 Timer2.Enabled:=true;
  1145.             end;
  1146.         end;
  1148.         if Y>=Self.Height-Panel2.Height then
  1149.         begin
  1150.             if Panel2.Visible then
  1151.                 Exit;
  1153.             Panel2.Visible:=true;
  1154.         end
  1155.         else
  1156.         begin
  1157.             if Not Panel2.Visible then
  1158.                 Exit;
  1160.             Panel2.Visible:=false;
  1161.         end;
  1162.     end;
  1163. end;
  1165. procedure TMainForm.WMFULLSCREEN(var Msg: TMessage);
  1166. begin
  1167.     Panel1.OnResize(Panel1);
  1168.     SpeedButton1.Click;
  1169. end;
  1171. procedure TMainForm.dxBarButton44Click(Sender: TObject);
  1172. begin
  1173.     if OpenDialog1.Execute then
  1174.     begin
  1175.         dllAddUnLockGraph(PChar(OpenDialog1.FileName));
  1176.     end;
  1177. end;
  1179. procedure TMainForm.dxBarButton7Click(Sender: TObject);
  1180. begin
  1181.     Form1.ShowModal;
  1182. end;
  1184. function TMainForm.OpenFile(Item:TListItem): Boolean;
  1185. Var
  1186.     Info:PPlayFileInfo;
  1187.     FileStream:TFileStream;
  1188.     Str,Key:String;
  1189.     i:Integer;
  1190.     pStr:Array[0..1024] of Char;
  1191.     Var1,Var2:Integer;
  1192.     StrList:TStringList;
  1193.     Bu:TdxBarButton;
  1194.     b:Boolean;
  1195.     ItemLink:TdxBarItemLink;
  1196. begin
  1197.     Result:=false;
  1198.     Info:=Item.Data;
  1199.     if Not Info.bExists then
  1200.         Exit;
  1201.     if Info.bLock then
  1202.     begin
  1203.         if DllOpenLockFile(PChar(Info.FileName),PChar(PForm.Password))=0 then
  1204.             Exit;
  1206.         PlayState:=psLoad;
  1207.         SpeedButton1.Click;
  1208.         UpdateButtonState;
  1209.     end
  1210.     else
  1211.     begin
  1212.         if DllOpenUnLockFile(PChar(Info.FileName))=0 then
  1213.             Exit;
  1214.         PlayState:=psLoad;
  1215.         SpeedButton1.Click;
  1216.         UpdateButtonState;
  1217.     end;
  1218.     CurrentItem:=Item;
  1219.     ListView1.Invalidate;
  1220.     DoRatio;
  1221.     DllConfig('GETFILTERNAMES',Var1,Var2);
  1222.     dxBarButton7.DestroyComponents;
  1224.     StrList:=TStringList.Create;
  1225.     Try
  1226.         b:=true;
  1227.         StrList.Text:=StrPas(Ptr(Var1));
  1228.         For i:=0 to StrList.Count-1 do
  1229.         begin
  1230.             if StrList.Strings[i]='' then
  1231.                 Continue;
  1233.             Bu:=TdxBarButton.Create(dxBarButton7);
  1234.             Bu.Caption:=StrList.Strings[i];
  1235.             Bu.OnClick:=FilterOptionClick;
  1236.             ItemLink:=dxBarSubItem12.ItemLinks.Add;
  1237.             ItemLink.Item:=Bu;
  1238.             if b then
  1239.             begin
  1240.                 b:=false;
  1241.                 ItemLink.BeginGroup:=true;
  1242.             end;
  1243.         end;
  1244.     Finally
  1245.         StrList.Free;
  1246.     end;
  1247.     Result:=true;
  1248. end;
  1250. procedure TMainForm.dxBarButton5Click(Sender: TObject);
  1251. begin
  1252.     OpenDialog(ftUnKnown,ptPlay);
  1253. end;
  1255. procedure TMainForm.ApplicationEvents1Exception(Sender: TObject;
  1256.   E: Exception);
  1257. Var
  1258.     Str:String;
  1259. begin
  1260.     Str:=E.Message;
  1261. end;
  1263. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  1264. begin
  1265.     StopPlay(true);
  1266. end;
  1268. procedure TMainForm.OnReadyEnd(Sender: TObject; PlayInfo: PPlayFileInfo; Item:TListItem);
  1269. Var
  1270.     vItem:TListItem;
  1271.     Info:PPlayFileInfo;
  1272. begin
  1273.     if PlayInfo.bExists then
  1274.     begin
  1275.         vItem:=Item;
  1276.         While (Not OpenFile(vItem)) and (vItem.Index<ListView1.Items.Count-1) do
  1277.         begin
  1278.             vItem:=ListView1.Items[vItem.Index+1];
  1279.         end;
  1280.         Info:=vItem.Data;
  1281.         Self.MaxHours:=Info.MediaInfo.PlayHours;
  1282.         Self.MaxMinutes:=Info.MediaInfo.PlayMinites;
  1283.         Self.MaxSeconds:=Info.MediaInfo.PlaySeconds;
  1284.         if Info.Pos>0 then
  1285.         begin
  1286.             LMDTrackBar2.Position:=Info.Pos;
  1287.             dllSetPosition(LMDTrackBar2.Position);
  1288.         end;
  1289.     end;
  1290. end;
  1292. procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView;
  1293.   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  1294. Var
  1295.     Info:PPlayFileInfo;
  1296.     OldColor:TColor;
  1297. begin
  1298.     Info:=Item.Data;
  1299.     Sender.Canvas.Font.Color:=clLime;
  1300.     if Not Info.bExists then
  1301.     begin
  1302.         Sender.Canvas.Brush.Color:=clRed
  1303.     end
  1304.     else
  1305.         Sender.Canvas.Brush.Color:=clBlack;
  1307.     if Item=CurrentItem then
  1308.     begin
  1309.         Sender.Canvas.Brush.Color:=clYellow;
  1310.         Sender.Canvas.Font.Color:=clBlack;
  1311.     end;
  1312. end;
  1314. procedure TMainForm.OpenDialog(FileType:TFileType; PlayType:TPlayType);
  1315. Var
  1316.     i:Integer;
  1317. begin
  1318.     if Opendialog1.Execute then
  1319.     begin
  1320. {
  1321.         DllOpenUnLockFile(PChar(OpenDialog1.FileName));
  1322.         SpeedButton1.Click;
  1323.         Exit;
  1324. }
  1325.         For i:=0 to OpenDialog1.Files.Count-1 do
  1326.         begin
  1327.             if (i=0) and (PlayType=ptPlay) then
  1328.             begin
  1329.                 Self.PlayListManager.Add(OpenDialog1.Files.Strings[i],FileType,ptPlay);
  1330.             end
  1331.             else
  1332.                 Self.PlayListManager.Add(OpenDialog1.Files.Strings[i],FileType,ptAdd);
  1333.         end;
  1334.     end;
  1335. end;
  1337. procedure TMainForm.N10Click(Sender: TObject);
  1338. begin
  1339.     OpenDialog(ftUnLock,ptAdd);
  1341. end;
  1343. procedure TMainForm.N11Click(Sender: TObject);
  1344. Var
  1345.     CurDelete:Boolean;
  1346.     i:Integer;
  1347.     Item:TListItem;
  1348.     List:TList;
  1349. begin
  1350.     Item:=ListView1.Selected;
  1351.     if Item=nil then
  1352.         Exit;
  1353.     List:=TList.Create;
  1354.     Try
  1355.         Repeat
  1356.             List.Add(Item);
  1357.             Item:=ListView1.GetNextItem(Item, sdAll, [isSelected]);
  1358.         Until Item=nil;
  1360.         CurDelete:=false;
  1361.         For i:=0 to List.Count-1 do
  1362.         begin
  1363.             if List.Items[i]=CurrentItem then
  1364.             begin
  1365.                 CurDelete:=true;
  1366.                 if SpeedButton3.Enabled then
  1367.                     SpeedButton3.Click;
  1368.                 CurrentItem:=ListView1.GetNextItem(CurrentItem, sdAll, []);
  1369.             end;
  1370.             Self.PlayListManager.Delete(TListItem(List.Items[i]));
  1371.         end;
  1372.         if CurDelete then
  1373.         begin
  1374.             if CurrentItem<>nil then
  1375.                 OpenFile(CurrentItem);
  1376.         end;
  1377.     Finally
  1378.         List.Free;
  1379.     end;
  1380. end;
  1382. procedure TMainForm.N3Click(Sender: TObject);
  1383. begin
  1384.     if OpenDialog2.Execute then
  1385.     begin
  1386.         Self.PlayListManager.Open(OpenDialog2.FileName,false);
  1387.     end;
  1388. end;
  1390. procedure TMainForm.N4Click(Sender: TObject);
  1391. begin
  1392.     if OpenDialog2.Execute then
  1393.     begin
  1394.         Self.PlayListManager.Open(OpenDialog2.FileName,true);
  1395.     end;
  1397. end;
  1399. procedure TMainForm.N5Click(Sender: TObject);
  1400. begin
  1401.     if Self.PlayListManager.FileName<>'' then
  1402.     begin
  1403.         Self.PlayListManager.Save(Self.PlayListManager.FileName,CurrentItem);
  1404.     end
  1405.     else
  1406.         if SaveDialog1.Execute then
  1407.             Self.PlayListManager.Save(SaveDialog1.FileName,CurrentItem);
  1408. end;
  1410. procedure TMainForm.N6Click(Sender: TObject);
  1411. begin
  1412.     if SaveDialog2.Execute then
  1413.     begin
  1414.         if UpperCase(ExtractFileExt(SaveDialog2.FileName))='.WPL' then
  1415.             Self.PlayListManager.Save(SaveDialog2.FileName,CurrentItem)
  1416.         else
  1417.             Self.PlayListManager.SaveAs(SaveDialog2.FileName);
  1418.     end;
  1419. end;
  1421. procedure TMainForm.LMDTrackBar1MouseUp(Sender: TObject;
  1422.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1423. begin
  1424.     Self.LMDTrackBar1.Invalidate;
  1425. end;
  1427. procedure TMainForm.ListView1DblClick(Sender: TObject);
  1428. begin
  1429.     if ListView1.Selected<>nil then
  1430.     begin
  1431.         Self.OpenFile(ListView1.Selected);
  1432.     end;
  1433. end;
  1435. procedure TMainForm.dxBarButton53Click(Sender: TObject);
  1436. Var
  1437.     b:Boolean;
  1438.     Item:TMenuItem;
  1439. begin
  1440.     if Sender is TMenuItem then
  1441.     begin
  1442.         Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1443.         if Item<>nil then
  1444.         begin
  1445.             Item.Checked:=Not Item.Checked;
  1446.             b:=Item.Checked;
  1447.         end
  1448.         else
  1449.             b:=dxBarButton53.Down;
  1450.     end
  1451.     else
  1452.         b:=dxBarButton53.Down;
  1453.     WriteIni('Config','RoundPlay',BoolToStr(b));
  1454.     if Sender is TdxBarButton then
  1455.     begin
  1456.         Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1457.         if Item<>nil then
  1458.         begin
  1459.             Item.Checked:=b;
  1460.         end;
  1461.     end
  1462.     else
  1463.         dxBarButton53.Down:=b;
  1465. end;
  1467. procedure TMainForm.SpeedButton13Click(Sender: TObject);
  1468. begin
  1469.     PostMessage(Handle,WM_PLAYNEXT,0,0);
  1470. end;
  1472. procedure TMainForm.ListView1DragOver(Sender, Source: TObject; X,
  1473.   Y: Integer; State: TDragState; var Accept: Boolean);
  1474. begin
  1475.     if Source=ListView1 then accept :=true;
  1476. end;
  1478. procedure TMainForm.ListView1DragDrop(Sender, Source: TObject; X,
  1479.   Y: Integer);
  1480. var
  1481.     DragItem, TargetItem:TListItem;
  1482.     TargetIndex: integer;
  1483. begin
  1484.     DragItem := ListView1.Selected;
  1485.     TargetIndex := ListView1.DropTarget.Index;
  1486.     if TargetIndex>DragItem.Index then
  1487.         TargetItem:=ListView1.Items.Insert(TargetIndex+1)
  1488.     else
  1489.         TargetItem:=ListView1.Items.Insert(TargetIndex);
  1490.     TargetItem.Assign(DragItem);
  1491.     DragItem.Delete;
  1492. end;
  1494. procedure TMainForm.dxBarButton22Click(Sender: TObject);
  1495. begin
  1496.     SpeedButton4.Enabled:=Not dxBarButton56.Down;
  1497.     DoRatio;
  1498. end;
  1500. procedure TMainForm.dxBarButton21Click(Sender: TObject);
  1501. begin
  1502.     SpeedButton14.Click;
  1503. end;
  1505. procedure TMainForm.dxBarButton13Click(Sender: TObject);
  1506. begin
  1507.     PForm.ShowModal;
  1508. end;
  1510. procedure TMainForm.dxBarButton30Click(Sender: TObject);
  1511. begin
  1512.     N10.Click;
  1513. end;
  1515. procedure TMainForm.dxBarButton31Click(Sender: TObject);
  1516. begin
  1517.     N11.Click;
  1518. end;
  1520. procedure TMainForm.dxBarButton27Click(Sender: TObject);
  1521. begin
  1522.     N3.Click;
  1523. end;
  1525. procedure TMainForm.dxBarButton46Click(Sender: TObject);
  1526. begin
  1527.     N4.Click;
  1528. end;
  1530. procedure TMainForm.dxBarButton29Click(Sender: TObject);
  1531. begin
  1532.     N5.Click;
  1533. end;
  1535. procedure TMainForm.dxBarButton28Click(Sender: TObject);
  1536. begin
  1537.     N6.Click;
  1538. end;
  1540. procedure TMainForm.dxBarButton33Click(Sender: TObject);
  1541. begin
  1542.     AForm.ShowModal;
  1543. end;
  1545. procedure TMainForm.ApplicationEvents1Activate(Sender: TObject);
  1546. begin
  1547.     if (PlayState=psPause) and AutoPause then
  1548.     begin
  1549.         SpeedButton1.Click;
  1550.         AutoPause:=false;
  1551.     end;
  1552. end;
  1554. procedure TMainForm.ApplicationEvents1Deactivate(Sender: TObject);
  1555. begin
  1556.     if (PlayState=psPlay) and (Not AutoPause) then
  1557.     begin
  1558.         AutoPause:=true;
  1559.         SpeedButton2.Click;
  1560.         if N15.Checked then
  1561.             CoolTrayIcon1.HideMainForm
  1562.         else if N14.Checked then
  1563.         begin
  1564.         end
  1565.         else
  1566.             Application.Terminate;
  1567.     end;
  1568. end;
  1570. procedure TMainForm.dxBarButton11Click(Sender: TObject);
  1571. begin
  1572.     if OpenDialog3.Execute then
  1573.     begin
  1574.         PlayEndFileName:=OpenDialog3.FileName;
  1575.     end;
  1576. end;
  1578. procedure TMainForm.DoRatio;
  1579. begin
  1580.     if dxBarButton22.Down then
  1581.         dllDisplayRatio(1)
  1582.     else
  1583.         dllDisplayRatio(0);
  1584.     WriteIni('Config','Ratio',BoolToStr(dxBarButton22.Down));
  1585. end;
  1586. procedure TMainForm.dxBarButton47Click(Sender: TObject);
  1587. begin
  1588.     ListView1.Visible:=dxBarButton47.Down;
  1589.     dxBarButton56.OnClick(dxBarButton56);
  1590.     if (Not dxBarButton56.Down) and (SpeedButton4.Down) then
  1591.     begin
  1592.         SpeedButton4.OnClick(SpeedButton4);
  1593.     end;
  1594.     WriteIni('Playing','PlayListVisible',BoolToStr(dxBarButton47.Down));
  1595. end;
  1597. procedure TMainForm.Panel1Paint(Sender: TObject);
  1598. Var
  1599.     dc:HDC;
  1600. begin
  1601.     if Not (PlayState in [psPause,psOne]) then
  1602.         Exit;
  1604.     DC:=GetDC(Panel1.Handle);
  1605.     Try
  1606.         dllRepaint(Panel1.Handle,DC);
  1607.     Finally
  1608.         ReleaseDC(Panel1.Handle,DC);
  1609.     end;
  1610. end;
  1612. procedure TMainForm.SpeedButton12Click(Sender: TObject);
  1613. begin
  1614.     PostMessage(Handle,WM_PLAYPRIOR,0,0);
  1615. end;
  1617. procedure TMainForm.CoolTrayIcon1Click(Sender: TObject);
  1618. begin
  1619.     if Not MainForm.Showing then
  1620.         CoolTrayIcon1.ShowMainForm;
  1621. end;
  1623. procedure TMainForm.N12Click(Sender: TObject);
  1624. begin
  1625.     Application.Terminate;
  1626. end;
  1628. procedure TMainForm.N8Click(Sender: TObject);
  1629. begin
  1630.     if Not MainForm.Showing then
  1631.         CoolTrayIcon1.ShowMainForm;
  1632. end;
  1634. procedure TMainForm.dxBarButton55Click(Sender: TObject);
  1635. Var
  1636.     W,h:Integer;
  1637.     Rec:TRect;
  1638. begin
  1639.     if SpeedButton6.Visible then
  1640.         Exit;
  1642.     OldPosRect:=Rect(Left,Top,Width,Height);
  1643.     if dllGetVideoRect(@Rec) then
  1644.     begin
  1645.         W:=Rec.Right-Panel1.ClientWidth;
  1646.         H:=Rec.Bottom-Panel1.ClientHeight;
  1647.         Width:=Width+W;
  1648.         Height:=Height+H;
  1649.     end;
  1650.     Left:=(Screen.Width-Width) div 2;
  1651.     Top:=(Screen.Height-Height) div 2;
  1652. end;
  1654. procedure TMainForm.dxBarButton56Click(Sender: TObject);
  1655. begin
  1656.     SpeedButton4.Enabled:=Not dxBarButton56.Down;
  1657.     if dxBarButton56.Down then
  1658.     begin
  1659.         DoRatio;
  1660.         dxBarButton55.Click;
  1661.     end;
  1662.     WriteIni('Config','AutoSize',BoolToStr(dxBarButton56.Down));
  1663. end;
  1665. procedure TMainForm.MenuItemClick(Sender: TObject);
  1666. begin
  1667.     ImageList1.GetIcon(TMenuItem(Sender).ImageIndex,CoolTrayIcon1.Icon);
  1668.     CoolTrayIcon1.Refresh;
  1669.     WriteIni('Config','IconIndex',IntToStr(TMenuItem(Sender).ImageIndex));
  1670. end;
  1672. procedure TMainForm.dxBarButton57Click(Sender: TObject);
  1673. Var
  1674.     Pos:LongInt;
  1675.     FileName:String;
  1676.     FileType:TFileType;
  1677. begin
  1678.     Pos:=StrToInt(ReadIni('Config','PlayPos','-1'));
  1679.     FileName:=ReadIni('Config','PlayPosFileName','');
  1680.     FileType:=TFileType(StrToInt(ReadIni('Config','FileType','0')));
  1681.     if (FileName='') or (Not FileExists(FileName)) or (Pos=-1) then
  1682.     begin
  1683.         MessageBox(Handle,'未发现可以恢复的媒体信息','提示',MB_ICONINFORMATION);
  1684.         Exit;
  1685.     end;
  1687.     bContinuePlay:=true;
  1688.     PlayListManager.Add(FileName,FileType,ptPlay,Pos);
  1691. end;
  1693. procedure TMainForm.StopPlay(IsSave: Boolean);
  1694. Var
  1695.     Pos:LongInt;
  1696.     Info:PPlayFileInfo;
  1697. begin
  1698.     if IsSave and (PlayState in [psPlay,psPause,psOne]) then
  1699.     begin
  1700.         Pos:=dllGetPostion;
  1701.         Info:=CurrentItem.Data;
  1702.         WriteIni('Config','PlayPos',IntToStr(Pos));
  1703.         WriteIni('Config','PlayPosFileName',Info.FileName);
  1704.         WriteIni('Config','FileType',IntToStr(Integer(Info.FileType)));
  1705.     end;
  1706.     DllStop;
  1707.     PlayState:=psStop;
  1708.     Timer1.Enabled:=false;
  1709.     UpdateButtonState;
  1710.     LMDTrackBar2.Position:=0;
  1711.     Panel1.Invalidate;
  1712. end;
  1714. procedure TMainForm.DropURLTarget1Drop(Sender: TObject;
  1715.   ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
  1716. begin
  1717.     PlayListManager.Add(TDropURLTarget(Sender).URL,ftUnknown,ptAdd);
  1718. end;
  1720. procedure TMainForm.DropFileTarget1Drop(Sender: TObject;
  1721.   ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
  1722. var
  1723.     i: integer;
  1724. begin
  1725.     with TDropFileTarget(Sender) do
  1726.     begin
  1727.         for i := 0 to files.count-1 do
  1728.         begin
  1729.             if (i=0) and (ListView1.Items.Count=0) then
  1730.                 PlayListManager.Add(files[i],ftUnknown,ptPlay)
  1731.             else
  1732.                 PlayListManager.Add(files[i],ftUnknown,ptAdd);
  1733.         end;
  1734.     end;
  1735. end;
  1737. procedure TMainForm.FormResize(Sender: TObject);
  1738. Var
  1739.     Rec:TRect;
  1740. begin
  1741.     Rec:=Rect(Left,Top,Width,Height);
  1742.     WriteIni('Config','PosX',IntToStr(Rec.Left));
  1743.     WriteIni('Config','PosY',IntToStr(Rec.Top));
  1744.     WriteIni('Config','PosWidth',IntToStr(Rec.Right));
  1745.     WriteIni('Config','PosHeight',IntToStr(Rec.Bottom));
  1746. end;
  1748. procedure TMainForm.SpeedButton16Click(Sender: TObject);
  1749. begin
  1750.     AuForm.ShowModal;
  1751. end;
  1753. procedure TMainForm.dxBarButton58Click(Sender: TObject);
  1754. Var
  1755.     Val1,Val2:LongInt;
  1756. begin
  1757.     DllConfig('SHOWDECODEPROPERTY',Val1,Val2);
  1758. end;
  1760. procedure TMainForm.FilterOptionClick(Sender: TObject);
  1761. Var
  1762.     Val1,Val2:LongInt;
  1763. begin
  1764.     Val1:=Integer(PChar(TdxBarButton(Sender).Caption));
  1765.     DllConfig('SHOWFILTERPROPERTY',Val1,Val2);
  1767. end;
  1769. procedure TMainForm.dxBarButton60Click(Sender: TObject);
  1770. begin
  1771.     CEForm.ShowModal;
  1772. end;
  1774. procedure TMainForm.LMDTrackBar1MouseWheel(Sender: TObject;
  1775.   Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  1776.   var Handled: Boolean);
  1777. begin
  1778.     LMDTrackBar1.Position:=LMDTrackBar1.Position+WheelDelta;
  1779. end;
  1781. procedure TMainForm.FormDeactivate(Sender: TObject);
  1782. begin
  1783.     ApplicationEvents1Deactivate(nil);
  1784. end;
  1786. class function TMainForm.ReadReg(Key: String; DefaultValue: Variant): Variant;
  1787. Var
  1788.     Reg:TRegistry;
  1789. begin
  1790.     Result:=NULL;
  1791.     Reg:=TRegistry.Create;
  1792.     Try
  1793.         Reg.RootKey:=HKEY_CURRENT_USER;
  1794.         if Reg.OpenKey('/WHSUPPERPLAYER/RUN',false) then
  1795.         begin
  1796.             Result:=Reg.ReadString(Key);
  1797.             if VarIsNull(Result) or VarIsEmpty(Result) then
  1798.                 Result:=DefaultValue;
  1799.         end
  1800.         else
  1801.             Result:=DefaultValue;
  1802.     Finally
  1803.         Reg.Free;
  1804.     end;
  1806. end;
  1808. class procedure TMainForm.WriteReg(Key: String; Value: Variant);
  1809. Var
  1810.     Reg:TRegistry;
  1811. begin
  1812.     Reg:=TRegistry.Create;
  1813.     Try
  1814.         Reg.RootKey:=HKEY_CURRENT_USER;
  1815.         if Reg.OpenKey('/WHSUPPERPLAYER/RUN',true) then
  1816.         begin
  1817.             Reg.WriteString(Key,Value);
  1818.         end
  1819.     Finally
  1820.         Reg.Free;
  1821.     end;
  1822. end;
  1824. procedure TMainForm.dxBarButton62Click(Sender: TObject);
  1825. begin
  1826.     Close;
  1827. end;
  1829. procedure TMainForm.InitPlayMenu(Items: TdxBarSubItem; MenuItem:TMenuItem);
  1830. Var
  1831.     i:Integer;
  1832.     Item:TMenuItem;
  1833.     Link:TdxBarItemLink;
  1834. begin
  1835.     for i:=0 to Items.ItemLinks.Count-1 do
  1836.     begin
  1837.         Link:=Items.ItemLinks.Items[i];
  1839.         if Link.BeginGroup then
  1840.         begin
  1841.             Item:=TMenuItem.Create(MenuItem);
  1842.             MenuItem.Add(Item);
  1843.             Item.Caption:='-';
  1844.         end;
  1846.         if Link.Item.ClassType=TdxBarSubItem then
  1847.         begin
  1848.             Item:=TMenuItem.Create(MenuItem);
  1849.             MenuItem.Add(Item);
  1850.             Item.Caption:=Link.Caption;
  1851.             Item.OnClick:=TdxBarSubItem(Link.Item).OnClick;
  1852.             InitPlayMenu(TdxBarSubItem(Link.Item),Item);
  1853.         end
  1854.         else
  1855.         begin
  1856.             Item:=TMenuItem.Create(MenuItem);
  1857.             MenuItem.Add(Item);
  1858.             Item.Caption:=Link.Caption;
  1859.             Item.OnClick:=TdxBarButton(Link.Item).OnClick;
  1860.         end;
  1861.     end;
  1862. end;
  1864. procedure TMainForm.PopupMenu3Popup(Sender: TObject);
  1865. Var
  1866.     Item:TMenuItem;
  1867. begin
  1868.     Item:=TMenuItem(PopupMenu3.Items.Find('循环播放'));
  1869.     if Item<>nil then
  1870.     begin
  1871.         Item.Checked:=dxBarButton53.Down;
  1872.     end;
  1873. end;
  1875. procedure TMainForm.Panel1DblClick(Sender: TObject);
  1876. Var
  1877.     nLayer:Integer;
  1878.     Pt:TPoint;
  1879. begin
  1880.     if PlayState in [psPreview] then
  1881.     begin
  1882.         GetCursorPos(Pt);
  1883.         Pt:=Panel1.ScreenToClient(Pt);
  1884.         nLayer:=GetLayerNo(Pt.X,Pt.Y);
  1885.         PlayListManager.Add(PreviewFileName[nLayer],ftUnknown,ptPlay,LMDTrackBar2.Position);
  1886.         PausePreview:=true;
  1887.         DllPreviewPause();
  1888.         Exit;
  1889.     end;
  1891.     if Not (PlayState in [psPlay,psPause,psOne,psPreview]) then
  1892.         Exit;
  1894.     if SpeedButton14.Visible then
  1895.         SpeedButton14.Click
  1896.     else
  1897.         SpeedButton6.Click;
  1898. end;
  1900. procedure TMainForm.Timer2Timer(Sender: TObject);
  1901. begin
  1902.     if Not (SpeedButton6.Visible) then
  1903.         Exit;
  1905.     if Panel2.Visible then
  1906.         Exit;
  1908.     if GetTickCount-MouseTimeout>2000 then
  1909.     begin
  1910.         Timer2.Enabled:=false;
  1911.         ShowCursor(false);
  1912.     end;
  1913. end;
  1915. procedure TMainForm.dxBarButton63Click(Sender: TObject);
  1916. Var
  1917.     i,L,T:Integer;
  1918.     Rec:TRect;
  1919.     procedure GetRect;
  1920.     Var
  1921.         W,H:Integer;
  1922.     begin
  1923.         W:=Panel1.ClientWidth div 2;
  1924.         H:=Panel1.ClientHeight div 2;
  1925.         T:=(i div 2)*H;
  1926.         L:=(i mod 2)*W;
  1927.         Rec:=Rect(L,T,L+W,T+H);
  1928.     end;
  1929. begin
  1930.     if Not (PlayState in [psPreview,psNone]) then
  1931.         SpeedButton3.Click;
  1932.         
  1933.     PausePreview:=false;
  1934.     dllBeginPreview(Panel1.Handle,4);
  1935.     if OpenDialog1.Execute then
  1936.     begin
  1937.         for i:=0 to OpenDialog1.Files.Count-1 do
  1938.         begin
  1939.             dllSetPreviewMedia(PChar(OpenDialog1.Files.Strings[i]),i);
  1940.             GetRect;
  1941.             dllSetPreviewMediaRect(i,Rec);
  1942.             PreviewFileName[i]:=OpenDialog1.Files.Strings[i];
  1943.         end;
  1944.     end;
  1945.     dllPreviewPlay;
  1946.     PlayState:=psPreview;
  1947.     Timer1.Enabled:=true;
  1948. end;
  1950. function TMainForm.GetLayerNo(X,Y:Integer):Integer;
  1951. Var
  1952.     nLayer:Integer;
  1953. begin
  1954.     nLayer:=0;
  1955.     if PtInRect(Rect(0,0,ClientWidth div 2,ClientHeight div 2),Point(X,Y)) then
  1956.     begin
  1957.         nLayer:=0;
  1958.     end
  1959.     else if PtInRect(Rect(ClientWidth div 2,0,ClientWidth,ClientHeight div 2),Point(X,Y)) then
  1960.     begin
  1961.         nLayer:=1;
  1962.     end
  1963.     else if PtInRect(Rect(0,ClientHeight div 2,ClientWidth div 2,ClientHeight),Point(X,Y)) then
  1964.     begin
  1965.         nLayer:=2;
  1966.     end
  1967.     else if PtInRect(Rect(0,ClientHeight div 2,ClientWidth,ClientHeight),Point(X,Y)) then
  1968.     begin
  1969.         nLayer:=3;
  1970.     end;
  1971.     Result:=nLayer;
  1972. end;
  1974. procedure TMainForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  1975.   Shift: TShiftState; X, Y: Integer);
  1976. begin
  1977.     PreviewClick:=true;
  1978. end;
  1980. procedure TMainForm.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  1981.   Shift: TShiftState; X, Y: Integer);
  1982. Var
  1983.     nLayer:Integer;
  1984. begin
  1985.     if (PreviewClick) and (PlayState=psPreview) then
  1986.     begin
  1987.         nLayer:=GetLayerNo(X,Y);
  1988.         PreviewClick:=false;
  1989.         dllPreviewSetAudio(nLayer,0-(3000-LMDTrackBar1.Position));
  1990.     end;
  1991. end;
  1993. procedure TMainForm.dxBarButton64Click(Sender: TObject);
  1994. begin
  1995.     if PlayState<>psPreview then
  1996.     begin
  1997.         Exit;
  1998.     end;
  1999.     Timer1.Enabled:=false;
  2000.     Playstate:=psNone;
  2001.     DllEndPreview();
  2003.     PausePreview:=false;
  2004.     Panel1.Invalidate;
  2005. end;
  2007. procedure TMainForm.dxBarButton65Click(Sender: TObject);
  2008. begin
  2009.     if PausePreview then
  2010.     begin
  2011.         SpeedButton3.Click;
  2012.         PlayState:=psPreview;
  2013.         DllPreviewPlay();
  2014.         Timer1.Enabled:=true;
  2015.     end
  2016. end;
  2018. end.