社区
Delphi
帖子详情
如何在系统的工程文件中,加入函数?要具体的格式
ctrlqrj
2003-09-12 12:32:08
如题:
想在程序的启动时,通过函数获取硬盘的序列号,来判断是否启动程序。
...全文
91
10
打赏
收藏
如何在系统的工程文件中,加入函数?要具体的格式
如题: 想在程序的启动时,通过函数获取硬盘的序列号,来判断是否启动程序。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dawnming
2003-09-13
打赏
举报
回复
帮你up一下
我原本不是一头猪
Little2000
2003-09-13
打赏
举报
回复
File--New--Unit
然后在里面写入自己的程序,例如:
unit CommonFunction;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ComCtrls, ExtCtrls;
Type
TSearchFields = Array of String;
var
SearchFields: TSearchFields;
Procedure CreateSearchForm;//声明自己的函数
uses SetSearch;
Procedure CreateSearchForm;//写函数的具体内容
begin
Application.CreateForm(TFrmSetSearch,FrmSetSearch);
FrmSetSearch.ShowModal;
end;
end;
该单元和一般的单元文件一样,只是没有窗体文件而已,主要要在工程单元中引用该单元,然后就可以调用该单元的任何函数了。
hiflower
2003-09-12
打赏
举报
回复
begin
Application.Initialize;
if 检查通过 then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
Application.Terminate;
end.
dickeybird888
2003-09-12
打赏
举报
回复
unit Utility;
interface
uses Classes,Sysutils,TrPanel,forms,Windows,DBTables,Registry,Db;
function MonthBegin(Date:TDateTime):TDateTime; //月开始日期
function MonthEnd(Date:TDateTime):TDateTime; //月结束日期
//以下定义全局变量
var
Tool:TTool;
BasicInfoTableName:String;
const
AppName='管理系统';
AppVersion ='版本1.0';
implementation
///////////////////////////////////////////////////////////////////////////
// 功能:获得某日期所在月份的第一天 //
// 入口参数:TDateTime 某日期 //
// 返回值: 某日期所在月份的第一天 //
///////////////////////////////////////////////////////////////////////////
function MonthBegin(Date:TDateTime):TDateTime;
var
T:String;
var
Year, Month, Day{, Hour, Min, Sec, MSec}: Word;
begin
DecodeDate(Date, Year, Month, Day);
T:=IntToStr(Year)+'-'+IntToStr(Month)+'-';
Result:=StrToDate(T+'1')
end;
///////////////////////////////////////////////////////////////////////////
// 功能:获得某日期所在月份的最后一天 //
// 入口参数:TDateTime 某日期 //
// 返回值: 某日期所在月份的最后一天 //
///////////////////////////////////////////////////////////////////////////
function MonthEnd(Date:TDateTime):TDateTime;
var
Year, Month, Day{, Hour, Min, Sec, MSec}: Word;
T:String;
begin
Result:=0;
DecodeDate(Date, Year, Month, Day);
T:=IntToStr(Year)+'-'+IntToStr(Month)+'-';
case Month of
1,3,5,7,8,10,12:Result:=StrToDate(T+'31');
4,6,9,11 :Result:=StrToDate(T+'30');
2 :if (Year mod 4 =0) and ( Year mod 100 <> 0 )
or (Year mod 400 =0 )
then
Result:=StrToDate(T+'29')
else
Result:=StrToDate(T+'28');
end;
end;
end.
Drate
2003-09-12
打赏
举报
回复
{$R *.res}
function ConnectStrNull:Boolean;
var
SYSINI: TINIFile;
tmpstr:String;
begin
Result:= True;
SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DB.INI');
try
tmpstr:= SYSINI.ReadString('Database', 'DBName', '');
if tmpstr ='' then
exit;
tmpstr:= SYSINI.ReadString('Database', 'UserName', '');
if tmpstr ='' then
exit;
Result:= False;
finally
SYSINI.Free;
end;
end;
begin
Application.Initialize;
Application.Title := '客户端物流管理系统';
if ConnectStrNull then
begin
{...}
MCLITAO
2003-09-12
打赏
举报
回复
别忘了引用单元文件名,就是函数所在的单元。
Delphi_Li
2003-09-12
打赏
举报
回复
就象写一般的函数一样!!!
Function XXXX : Boolean
Begin
.....
End;
begin
Application.Initialize;
if XXXX then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
Application.Terminate;
end.
ctrlqrj
2003-09-12
打赏
举报
回复
对了,我要的就是单元库文件中的格式如何写,能贴个上来吗?
Little2000
2003-09-12
打赏
举报
回复
你可以将函数写到一个单元库文件中,然后就可以在工程中进行调用了
hongqi162
2003-09-12
打赏
举报
回复
up 楼上
PHP7
文件
目录
函数
库实战
King老师精心打造的PHP7
文件
目录
函数
库实战课程,通过讲解PHP7核心
函数
库
文件
、目录
函数
库相关API,了解其实际应用场景,并通过在线
文件
管理器对所学内容进行实战演练!山哥出品,必属精品!
手把手教程2: keil如何向MDK
中
加入
头
文件
和库
文件
华大MCU如何向MDK
中
加入
头
文件
和库
文件
大多数习惯于8位单片机开发的
工程
师,都会使用操作寄存器的方式来使用单片机。当初次接触华大单片机库开发的时候,会发现库里有好多的
文件
,不知道如何下手。本篇文章会先...
自定义C语言头
文件
书写
格式
在
工程
文件
中
创建一个
文件
,在该
文件
下存放C语言源代码 led.c 和它对应的头
文件
led.h 第二步: 在头
文件
led.h 内容开头必须写上: #ifndef __LED_H // 如果之前没有定义过 __LED_H #define __LED_H //那么就定义 __...
MATLAB(4)
函数
及
文件
介绍MATLAB
中
函数
的定义、分类,以及MATLAB
中
不同
文件
的作用,最后,介绍MATLAB
工程
的调试方法。
c语言.dsp
文件
的作用,运行C程序的步骤与方法详解——基于一个DSP
工程
文件
(附头
文件
、源
文件
等作用说明)...
运行C程序的步骤与方法(结合DSP
工程
)一个CPU定时器的
工程
里面的
文件
这么多,光TI提供的源
文件
就一大堆。还有成堆的头
文件
。以及cmd
文件
等等。这些
文件
各自的作用是什么?然后这些C程序又是如何联系起来,最终执行的...
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章