如何为uses中的Pas文件指定路径？

麦子VISA 2004-11-17 09:53:44
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs，baseFunction;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.
——————————————————————
系统提示找不到baseFunction，baseFunction是自己写的一个pas。如何为第一个Uses中的baseFunction指定路径，
...全文
104 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
aiirii 2004-11-17
  • 打赏
  • 举报
 回复
要不然, 在project - Options -
Directoies/Conditionals 下面的 Search path 中加入baseFunction 所在路徑
aiirii 2004-11-17
  • 打赏
  • 举报
 回复
在 菜單: project - add to file
將baseFunction加入就可
在Delphi中定义自己图标的消息框〖源代码〗
应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。 ---- 此函数在WINDOWS单元里面，文件位于Delphi安装路径Source\Rtl\Win里面，需要指出的是，Delphi的原代码中它的返回值类型是BOOL型，而实质上它的返回值应为Integer。修改方法：在WINDOWS单元中找到此函数后，把BOOL改为Integer，共有三处要修改，然后在Delphi安装路径Lib中找到WINDOWS.DCU文件，把它改名或者删除，并把修改后的WINDOWS.PAS源码复制到Lib路径中。 ---- 该函数只有一个参数，类型是TMsgBoxParams，它的结构及说明如下： tagMSGBOXPARAMSA = packed record cbSize: UINT; {数据结构的长度} hwndOwner: HWND; {所有者窗口句柄} hInstance: HINST; {应用程序实例句柄} lpszText: PAnsiChar; {在消息框客户区内显示的文本} lpszCaption: PAnsiChar; {标题栏文本} dwStyle: DWORD; {确定消息框内按钮和图符 的数量及种类的MB_标志} lpszIcon: PAnsiChar; {从资源文件中取出的一个 图符资源的名字} dwContextHelpId: DWORD; {指定帮助文本的ID号} lpfnMsgBoxCallback: TPRMsgBoxCallback; {当用户按下HELP按钮时调用的一个回 调函数} dwLanguageId: DWORD; {显示在按钮内文本的语言定义} end; ---- 由于直接使用此函数比较复杂，我们可以自定义一个函数来封装此函数，对它进行简化,在用法上尽量做到与Delphi的消息框相一致，自定义函数代码如下： function MessageEx (lText,lCaption:PChar; lStyle:DWord;lIcon:PChar):Integer; var Msg:TMsgBoxParams; begin Msg.cbSize:=Sizeof(Msg); Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg.lpfnMsgBoxCallback:=nil; Msg.dwLanguageId:=LANG_NEUTRAL; Result:=MessageBoxIndirect(Msg); end; ---- 要想在消息框中显示自己的图标，先准备一个装有图标的资源文件，加在程序中，如{$R c:\mydir\myres.res}，在lStyle参数里除了所需的MB_标志外还要加上MB_USERICON标志，并在最后一个参数里写上资源文件中图标的名字，如果不想使用自定义的图标，可将最后一个参数设为nil。函数的其它用法和返回值的处理与Delphi提供的消息框一样。 ---- 强烈建议把自定义函数放在一个单元文件里，并把此文件放在Delphi的搜索路径如Lib下，以后只需要把此单元加在uses语句里，就可以直接使用自定义函数，非常方便。
DELPHI MessageBox自定义消息框图标〖源代码〗
应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。 ---- 此函数在WINDOWS单元里面，文件位于Delphi安装路径Source\Rtl\Win里面，需要指出的是，Delphi的原代码中它的返回值类型是BOOL型，而实质上它的返回值应为Integer。修改方法：在WINDOWS单元中找到此函数后，把BOOL改为Integer，共有三处要修改，然后在Delphi安装路径Lib中找到WINDOWS.DCU文件，把它改名或者删除，并把修改后的WINDOWS.PAS源码复制到Lib路径中。 ---- 该函数只有一个参数，类型是TMsgBoxParams，它的结构及说明如下： tagMSGBOXPARAMSA = packed record cbSize: UINT; {数据结构的长度} hwndOwner: HWND; {所有者窗口句柄} hInstance: HINST; {应用程序实例句柄} lpszText: PAnsiChar; {在消息框客户区内显示的文本} lpszCaption: PAnsiChar; {标题栏文本} dwStyle: DWORD; {确定消息框内按钮和图符 的数量及种类的MB_标志} lpszIcon: PAnsiChar; {从资源文件中取出的一个 图符资源的名字} dwContextHelpId: DWORD; {指定帮助文本的ID号} lpfnMsgBoxCallback: TPRMsgBoxCallback; {当用户按下HELP按钮时调用的一个回 调函数} dwLanguageId: DWORD; {显示在按钮内文本的语言定义} end; ---- 由于直接使用此函数比较复杂，我们可以自定义一个函数来封装此函数，对它进行简化,在用法上尽量做到与Delphi的消息框相一致，自定义函数代码如下： function MessageEx (lText,lCaption:PChar; lStyle:DWord;lIcon:PChar):Integer; var Msg:TMsgBoxParams; begin Msg.cbSize:=Sizeof(Msg); Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg.lpfnMsgBoxCallback:=nil; Msg.dwLanguageId:=LANG_NEUTRAL; Result:=MessageBoxIndirect(Msg); end; ---- 要想在消息框中显示自己的图标，先准备一个装有图标的资源文件，加在程序中，如{$R c:\mydir\myres.res}，在lStyle参数里除了所需的MB_标志外还要加上MB_USERICON标志，并在最后一个参数里写上资源文件中图标的名字，如果不想使用自定义的图标，可将最后一个参数设为nil。函数的其它用法和返回值的处理与Delphi提供的消息框一样。 ---- 强烈建议把自定义函数放在一个单元文件里，并把此文件放在Delphi的搜索路径如Lib下，以后只需要把此单元加在uses语句里，就可以直接使用自定义函数，非常方便。
【Spark专场】Deep Dive: How Spark Uses Memory
当今，企业”上云”节奏正在加速，特别是在以人工智能技术为代表的新一波技术浪潮推动下，企业一方面通过云技术增强了自身的数据存储连接、计算以及智能应用能力；另一方面，利用基于云计算之上的大数据、人工智能等新技术，企业又可以以较小的成本、更高效地挖掘出提升企业业务的数据与方法，实现云、数、智的自然融合和协力发展。
delphi中单独编译pas生成dcu文件
delphi中单独编译pas生成dcu文件 在网上下载了一个带源码的组件，结果碰到提示说缺少xxx.dcu。一看它的目录下确实没有，那能不能生成一个呢？ 当然可以！ 方法是使用delphi的安装目录\bin文件夹下的的dcc32.exe。 例如： dcc32 myUnit.pas 正常情况下运行上面的命令就会编译myUnit.pas生成 myUnit.dcu文件。 （默认生成的.d...
DELPHI得到文件路径的方法

DELPHI得到文件路径的方法
方法一：只能到文件夹
uses FileCtrl;{记得要先引用这个}
var
  Dir: string;
begin
  SelectDirectory('选择你要 XXOO 的目录', '', Dir);
  ShowMessage('你选择了这个目录来 XXOO '+ Dir);
end;

方法二：
用opendialog,和savedialo
数据库相关

2,497

社区成员

88,445

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章