关于如何直接读取路径,各位帮帮忙

paulfist

目标是 把一个txt拖动到exe上，exe自动把txt的路径输入。

谢谢。

xyaleck

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMDRopFile(var Message :TWMDropFiles); Message WM_DROPFILES;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  ShellApi;
{$R *.dfm}

{ TForm1 }

procedure TForm1.WMDRopFile(var Message: TWMDropFiles);
var
  NumFiles: integer;
  buffer: array[0..255] of char;
  i: integer;
begin
  NumFiles := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0);
  for i := 0 to NumFiles - 1 do
  begin
    DragQueryFile(Message.Drop, i, buffer, sizeof(buffer));
    //Buff 就是文件名
    Self.Canvas.TextOut(0, i * 20, Buffer);
  end;

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle,true);
end;

end.

paulfist

能否具体说明一下

shadowcolor

不就是用API，给出的代码已经很清晰，还要再怎么说明？试运行一下

paulfist

可以说明一下怎用吗？