DragAndDrop

Du kan finde comp. her der kan
http://www.melander.dk/

/Martin

For at droppe en fil fra Windows Explore til din Delphi Applikation:

...

    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure DropFiles(var DropFileMsg: TwmDropFiles); message wm_dropfiles;
  end;

implementation

uses setup;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
//registers form1 to accept files
  dragacceptfiles(handle,true);
end;

procedure Tform1.DropFiles(var DropFileMsg: TwmDropFiles);
var
  i, dropcount : integer;
  filename : array[0..500] of char;
begin
  dropcount := dragqueryfile(dropfilemsg.drop,$ffffffff,nil,0);
  for i := 0 to dropcount-1 do
  begin
    dragqueryfile(dropfilemsg.drop,i,filename,500);
    listbox1.items.add(string(filename));
  end;
dragfinish(dropfilemsg.drop);
end;

end.

...

Hush at tilføje ShellApi under \"uses\" (øverst i din *.pas fil)...og læg mærke til at proceduren \"DropFiles\" bliver dekleret under \"Public\"

ZeroHero

NB: Desuden skal kommandoen i din FormCreate procedure (dragacceptfiles
) altid stå sidst i proceduren...