win7上的WMDropFiles问题

发布于 2024-12-03 02:41:10 字数 1055 浏览 1 评论 0原文

我已经实现了以下过程，当我在运行 Windows Vista 的计算机（计算机 #1）上编译它时，它可以正常工作。如果我将创建的 .exe 文件共享到另一台运行 win7 的计算机（计算机 #2），它也可以正常运行。问题是，当我让计算机 #2 编译它时，它不会简单地识别应用程序上掉落的任何内容。这段代码中根本没有任何响应。它的构建和编译没有错误或警告。我已经在网上搜索了一段时间，但没有找到任何可以解释为什么会发生这种情况的信息，也没有找到其他遇到此问题的人。

两台计算机都使用 Delphi 2010，并安装了相同的组件。

这是允许用户将文件拖放到应用程序上的方法吗？如果没有的话，现在该怎么办呢？
你知道为什么它在计算机 #1 上编译但在计算机 #2 上编译时不起作用吗？（当在#1 计算机上编译时，该程序在两台计算机上都能正常运行）

任何帮助或评论都将受到高度赞赏。

procedure TfMainForm.WMDROPFILES(var msg: TWMDropFiles);
const
  MaxLength = 255;

var
  nFiles : integer;
  i : integer;
  fileName : array [0..MaxLength] of char;
  fileNames : TStringArray;

begin
  // Get number of files dropped
  nFiles := DragQueryFile(msg.Drop,  $FFFFFFFF, fileName, MaxLength);

  // Get filenames
  SetLength(fileNames, nFiles);
  for i := 0 to nFiles - 1 do begin
    DragQueryFile(msg.Drop, i, fileName, MaxLength);
    fileNames[i] := fileName;
  end;

    // Add files
  projectHandler.addFiles(fileNames);

  //release memory
  DragFinish(msg.Drop);
end;

原文

I've implemented the following procedure and it works properly when I compile it on my computer running windows vista, computer #1. If I share the created .exe file to another computer running win7, computer #2, it runs fine aswell. The problem is when I let the computer #2 compile it, it wont simply recognize that anything's dropped on the application. There's no response at all in this code. It's built and compiled without errors or warnings.
I've been searching the net for a while without finding anything that explains why this happens or someone else with this problem.

Both computers use Delphi 2010 with the same components installed.

Is this the way to go to allow the user to drop files onto the application? If not, how should it be done nowdays?
Any ideas why it works when it's compiled on computer #1 but not computer #2? (The program works properly on both computers when compiled on computer #1)

Any help or comment is highly appreciated.

procedure TfMainForm.WMDROPFILES(var msg: TWMDropFiles);
const
  MaxLength = 255;

var
  nFiles : integer;
  i : integer;
  fileName : array [0..MaxLength] of char;
  fileNames : TStringArray;

begin
  // Get number of files dropped
  nFiles := DragQueryFile(msg.Drop,  $FFFFFFFF, fileName, MaxLength);

  // Get filenames
  SetLength(fileNames, nFiles);
  for i := 0 to nFiles - 1 do begin
    DragQueryFile(msg.Drop, i, fileName, MaxLength);
    fileNames[i] := fileName;
  end;

    // Add files
  projectHandler.addFiles(fileNames);

  //release memory
  DragFinish(msg.Drop);
end;

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

寻梦旅人 2024-12-10 02:41:10

我将大胆猜测一下，如果您在 2 号计算机上的 IDE 中运行。我敢打赌，如果您在计算机 #2 上进行编译，但从资源管理器而不是 IDE 启动可执行文件，它就会起作用。最后一块拼图是，我敢打赌您正在以管理员身份在 2 号计算机上运行 IDE。

在 Vista 和 Windows 7 上，您无法将消息发送到完整性级别较高的进程。如果您的进程以管理员身份运行，那么它将具有比资源管理器更高的完整性级别，因此不会接受删除的文件。

如果我的猜测是正确的，我建议您停止以管理员身份运行 Delphi，它不需要这个。

至于WM_DROPFILES是否是一种合理的方法，我认为使用它没有问题。

回复收藏 0 原文

定格我的天空 2024-12-10 02:41:10

在 http://www.web-developer.de/ content/download/7387/137496/file/Listings.zip 您可以找到使用 Delphi XE 编写的示例（也可以使用 D2010 编译）。子文件夹“2_WmDropFiles”包含一个项目“WmDropFiles.dpr”，该项目展示了运行提升的应用程序如何从未提升运行的应用程序接收文件。评论等都是德语，所以如有疑问请使用谷歌翻译。

希望这有帮助，
奥拉夫

回复收藏 0 原文

~没有更多了~