delphi写的播放器怎么实现把文件直接拖动到播放器上就开始播放?

Question

   delphi7 写的播放器怎么实现把文件直接拖动到播放器上就开始播放?谢谢~~

Answer 1

你的程序中，判断命令行参数 ，即运行时，判断ParamStr(1),是否有，有就打开它，ParamStr(1)应该就是那个文件

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure dragdropfile(var msg:tmessage);message wm_dropfiles;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.dragdropfile(var msg: tmessage);
var
  char1:array[0..128] Of char;
  char2:pchar;
  i,sum:integer;
begin
  sum:=dragqueryfile(msg.wparam,$FFFFFFFF,nil,0);
  Text:= inttostr(sum);
  char2:=@char1;
  for i:=0 to sum-1 do
  begin
    DragQueryFile(msg.wparam,i,char2,128);
    memo1.lines.add(char2);             // char2 就是文件路径,有这个就可以控制播放器播放了
  end;
  dragfinish(msg.wparam);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle,true);
end;end.

Answer 3

实现拖放文件至exe图标就能打开文件：
http://topic.csdn.net/u/20091201/09/62a27e06-38e7-47cf-92a5-32f5054692f8.html