DirextX编程

开发平台：

Delphi

WHSupperPlayer.~dpr：源码内容

							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.

						