关于如何直接读取路径,各位帮帮忙
目标是 把一个txt拖动到exe上，exe自动把txt的路径输入。
谢谢。
[解决办法]
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.
[解决办法]
不就是用API，给出的代码已经很清晰，还要再怎么说明？试运行一下
