让Delphi 程序 支持文件拖放

2019独角兽企业重金招聘Python工程师标准>>>

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
procedure TFormMain.WMDropFiles(var Msg: TWMDropFiles);
// 支持文件拖放
var
  CFileName: array[0..MAX_PATH] of Char;
begin
  try
    if 0 < DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) then
    begin
      SetMD5Value(CFileName);
      Msg.Result := 0;
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  // 编辑框内容居中对齐
  SetWindowLong(lbledt2.Handle, GWL_STYLE,
    GetWindowLong(lbledt2.Handle, GWL_STYLE) or ES_CENTER);
  DragAcceptFiles(Handle, True);
end;

转载于:https://my.oschina.net/u/582827/blog/369154