我想为我的 Delphi 应用程序自定义在 Windows 资源管理器中和桌面快捷方式中显示的图标。 在 Delphi 7 IDE 中,我已经在“项目选项”对话框的“应用程序”选项卡中加载了所需的图标。它显示为我要使用的图形。 我认为这已足够,但我还将我的图标设置为 TMainForm 的...
我正在尝试修改Delphi 7 Dialogs.pas以访问更新的Windows 7打开/保存对话框(请参见使用Delphi创建Windows Vista Ready应用程序)。我可以使用建议的修改显示对话框;但是,例如OnFolderChange和OnCanClose等事件不再起作用。 这似...
使用Delphi 7,我该如何获取表示Exception的堆栈跟踪的字符串?try SomethingDodgy(); except on E:Exception do begin // print stack trace Log.Write(/* ??? */); ...
在asm块上下文中似乎有一个未记录的常量eof。这是使用Delphi 7进行测试的。program TestEof; {$APPTYPE CONSOLE} var example : Integer; begin asm mov example, eof end; wr...
我正在使用Delphi 7,想要找到我的../All Users/Documents目录的路径。 我发现了以下代码uses shlobj, ... function GetMyDocuments: string; var r: Bool; path: array[0..Max_Pa...
我正在使用 Delphi 7,并尝试创建向导界面。我不知道是否有更简单的方法来创建向导,所以我考虑为向导的每个步骤制作单独的窗体。当用户点击“下一步”时,当前活动的窗体将关闭,并打开下一个窗体。 这里是两个连续窗体的屏幕截图: 我已经编写了一个过程,它接受两个窗体作为参数:将被关闭的窗体和...
我有一些图像文件存储在一个文件中(一种归档文件)。该文件看起来像这样: 好的,它被分成两个部分 - 标头和数据段。标头(绿色)包含各种信息,例如相册名称、位置、日期/时间、描述、相册中的照片数量等等。数据段(蓝色和橙色)具有简单的结构,其中包含 N x JPEG照片。我可以将“imag...
我在我的项目中使用了这段代码: var P: TPoint; MyControl.Perform(WM_LBUTTONDOWN, 0, Longint(PointToSmallPoint(P))); 编译器给了我一个警告: [Warning]: Unsafe typecast o...
I have these 2 classes: type TMyBaseClass = class protected FAllowDoSomething: Boolean; // initialized to False procedure DoSomething;...