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

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

谢谢~~

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

Delphi(Pascal) code

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.