Question

我正在寻找一个名为WinDos.PAS的文件，这在Delphi XE2中不可用。它应该是一个旧库（我猜Delphi 1或2），但还找不到任何东西......

Answer 1

Google搜索将this page作为首批点击之一。

Answer 2

WinDos.pas中的函数旨在调用软件中断并执行各种“DOS”时代的操作系统功能。你不需要它。

WinDos.h中的所有函数都应该替换为RTL中对函数的现代调用，包括访问日期和时间的函数。这个单元没有从XE2甚至是XE中删除，但是从2.0版开始就没有成为Delphi的一部分。

正如大卫在评论中所说，从使用条款中删除WinDos单元后，你有两个选择;要么实现自己的辅助函数，作为单行函数：

function GetArgCount:Integer;
begin
   result := ParamCount; 
end;

或者，更好的是，找到调用GetArgCount的地方并将其更改为仅调用现代函数ParamCount。我们称之为“现代化”您的16位时代代码。这是2011年。更新代码的时间。

Answer 3

我的一个朋友想在64位系统上运行这个程序，它发出一个无法执行它的失败....我认为这是一个32位程序，但我不是舒尔。有没有可能找到这个？

如果您的程序编译为使用WinDos.pas，那么它是一个16位程序。由于64位版本的Windows本身不支持16位程序，因此您必须找到另一种方法。