WHSupperPlayer.dpr
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
源码类别:

DirextX编程

开发平台:

Delphi

  1. program WHSupperPlayer;
  2. uses
  3.   Windows,
  4.   Forms,
  5.   Variants,
  6.   Main in 'Main.pas' {MainForm},
  7.   WHPlaySDK in 'WHPlaySDK.pas',
  8.   Config in 'Config.pas' {Form1},
  9.   Password in '控件DrawPanelPassword.pas' {PForm},
  10.   MD5Unit in '..MD5Unit.pas',
  11.   PlayList in 'PlayList.pas',
  12.   About in 'About.pas' {AForm},
  13.   DoUnit in 'DoUnit.pas',
  14.   AudioConfig in 'AudioConfig.pas' {AuForm},
  15.   ConfigExt in 'ConfigExt.pas' {CEForm},
  16.   RegFiles in 'RegFiles.pas';
  17. {$R icos.RES}
  18. //{$R *.res}
  19. function EnableHotKeyHook: BOOL; External 'KeyControls.dll';
  20. function DisableHotKeyHook: BOOL; External 'KeyControls.dll';
  21. Var
  22.   v:Variant;
  23. begin
  24.   if (ParamCount>0) then
  25.   begin
  26.     v:=TMainForm.ReadReg('ProcessHandle',null);
  27.     if Not VarIsNull(v) then
  28.     begin
  29.       if WaitforSingleObject(v,1)=WAIT_TIMEOUT then
  30.       begin
  31.         v:=TMainForm.ReadReg('MsgHandle',null);
  32.         if Not VarIsNull(v) then
  33.         begin
  34.           TMainForm.WriteReg('TmpFileName',ParamStr(1));
  35.           if SendMessage(v,WM_OPENREMOTEFILE,0,0)=1 then
  36.             Exit;
  37.         end;
  38.       end;
  39.     end;
  40.   end;
  41.   EnableHotKeyHook;
  42.   Application.Initialize;
  43.   
  44.   Application.CreateForm(TMainForm, MainForm);
  45.   Application.CreateForm(TForm1, Form1);
  46.   Application.CreateForm(TPForm, PForm);
  47.   Application.CreateForm(TAForm, AForm);
  48.   Application.CreateForm(TAuForm, AuForm);
  49.   Application.CreateForm(TCEForm, CEForm);
  50.   Application.Run;
  51.   DisableHotKeyHook;
  52. end.