拖放

最新推荐文章于 2019-03-12 11:31:38 发布

seagull327

最新推荐文章于 2019-03-12 11:31:38 发布

阅读量512

点赞数

文章标签： blend buffer integer action string

本文链接：https://blog.csdn.net/haiou327/article/details/4323166

版权

var
Form1: TForm1;
filename, s, dir: string;
attr, d, t: integer;
f: text;
cdir: array[0..256] of char;
implementation{$R *.dfm}

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);           //
var                                                                           //
WMD: TWMDropFiles;                                                          //
begin                                                                         //
if Msg.message = WM_DROPFILES then                                          //
    begin                                                                     //
          //         MessageBeep(0);                                          //
      WMD.Msg := Msg.message;                                                 //
      WMD.Drop := Msg.wParam;                                                 //
      WMD.Unused := Msg.lParam;                                               //
      WMD.Result := 0;                                                        //
      WMDropFiles(WMD);                                                       //
      Handled := TRUE;                                                        //
    end;                                                                      //
                                                                              //
end;                                                                          //

procedure TForm1.FormCreate(Sender: TObject);                    //           //
begin                                                            //           //
      DragAcceptFiles(form1.Handle, True);                       //           //
// DragAcceptFiles(Handle, True);                             //           //
// DragAcceptFiles(Application.Handle, True);                  //           //
Application.OnMessage := AppOnMessage;                         //           //
//AnimateWindow(Self.Handle, 500, AW_BLEND or AW_ACTIVATE);    //           //
end;                                                             //           //

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);                          //
var                                                                           //
N: Word;                                                                    //
buffer: array[0..180] of Char;                                              //
begin                                                                         //
                                                                              //
with Msg do                                                                 //
    begin                                                                     //
      for N := 0 to DragQueryFile(Drop, $FFFFFFFF, buffer, 1) - 1 do          //
        begin                                                                 //
          DragQueryFile(Drop, N, Buffer, 180);                                //
          edit1.text := StrPas(Buffer);                                       //
        end;                                                                  //
      DragFinish(Drop);                                                       //
    end;                                                                      //
end;                                                                          //

procedure TForm1.Button3Click(Sender: TObject);
begin
AnimateWindow(Self.Handle, 500, AW_BLEND or AW_HIDE);
close;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Self.Handle, 500, AW_BLEND or AW_HIDE);
end;