Перетащить файл в программу

Перетащить файл в программу

Используется VCL
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure CreateParams(var Params:TCreateParams);override;
procedure WMDropFiles(var message:TWMDropFiles);message WM_DROPFILES;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMDropFiles(var message:TWMDropFiles);
var tmp:array[0..255] of Char;
begin
inherited;
DragQueryFile(message.drop,0,tmp,256);
Memo1.Lines.Add(tmp);
DragFinish(message.Drop);
end;

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

procedure TForm1.CreateParams(var Params:TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle:=Params.ExStyle or WS_EX_ACCEPTFILES;
end;

end.

Эта запись была добавлена в Среда, 21 мая, 2008 - 9:01 В разделы Операционная система, Файловая система. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.