WHSupperPlayer.dpr
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
- program WHSupperPlayer;
- uses
- Windows,
- Forms,
- Variants,
- Main in 'Main.pas' {MainForm},
- WHPlaySDK in 'WHPlaySDK.pas',
- Config in 'Config.pas' {Form1},
- Password in '控件DrawPanelPassword.pas' {PForm},
- MD5Unit in '..MD5Unit.pas',
- PlayList in 'PlayList.pas',
- About in 'About.pas' {AForm},
- DoUnit in 'DoUnit.pas',
- AudioConfig in 'AudioConfig.pas' {AuForm},
- ConfigExt in 'ConfigExt.pas' {CEForm},
- RegFiles in 'RegFiles.pas';
- {$R icos.RES}
- //{$R *.res}
- function EnableHotKeyHook: BOOL; External 'KeyControls.dll';
- function DisableHotKeyHook: BOOL; External 'KeyControls.dll';
- Var
- v:Variant;
- begin
- if (ParamCount>0) then
- begin
- v:=TMainForm.ReadReg('ProcessHandle',null);
- if Not VarIsNull(v) then
- begin
- if WaitforSingleObject(v,1)=WAIT_TIMEOUT then
- begin
- v:=TMainForm.ReadReg('MsgHandle',null);
- if Not VarIsNull(v) then
- begin
- TMainForm.WriteReg('TmpFileName',ParamStr(1));
- if SendMessage(v,WM_OPENREMOTEFILE,0,0)=1 then
- Exit;
- end;
- end;
- end;
- end;
- EnableHotKeyHook;
- Application.Initialize;
-
- Application.CreateForm(TMainForm, MainForm);
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TPForm, PForm);
- Application.CreateForm(TAForm, AForm);
- Application.CreateForm(TAuForm, AuForm);
- Application.CreateForm(TCEForm, CEForm);
- Application.Run;
- DisableHotKeyHook;
- end.