用Delphi编制可自动升级程序
在编制了一个应用程序后的维护阶段，我们会面临给应用程序升级的工作.无疑，手工升级的工作是十分繁琐的，你可能会需要到用户的机器上去更新文件.可是，如果能编一个自动升级程序，放在网络上，让用户下载，只需执行一下就完成升级工作，不是很方便吗？其实，用Delphi可以很方便地编制出这样一个的程序.
以下是我们的例子，设我们已经有一个应用程序This.exe，要对它升级，用来升级的程序为Upgrade.exe.
1．This的工程文件框架
program THIS;
uses
SysUtils,
Windows,
Forms,
...;
我们将它写入代码中，因为这在Delphi的工程文件中是没有自动生成的.“…”部分是你创建的窗体部分
Var
Fn : String;
TSI : TStartupInfo;
TPI : TProcessInformation;
{$R *.RES}
begin
“升级程序”使用FileAge来检查原来应用程序的建立时间，如果检测到的是旧版本，则提示升级:
IF FileAge(‘SomeServerSomeDirthis.exe‘) 〉 FileAge(ParamStr(0)) THEN
IF Application.MessageBox(‘这是一个更新版本的THIS.EXE.‘+＃13‘你要得到新版本的升级文件吗？‘, ‘Upgrade Time!‘,1) = 1 THEN
Begin
运行升级程序时，升级程序应与原主程序this.exe在同一目录下.如果当它启动时，这个版本主程序应该退出，但要保证它不会删除任何文件，因为此时Application.Initialize还没有被调用.代码如下:
Fn:= ExtractFilePath(ParamStr(0))+‘UpgradeThis.exe‘;
FillChar(TSI, SizeOf(TSI), 0);
TSI.CB := SizeOf(TSI);
IF CreateProcess (PChar(Fn), NIL, NIL, NIL, False,
DETACHED_PROCESS, NIL, NIL, TSI, TPI)
THEN Exit
但是，如果“升级程序”由于某些原因没有运行，我们此时应该告诉用户，他能通过其他方法得到一个更新的程序版本，这时我们依然退出主程序以便用户升级.如果必要的话，也可以继续装入并运行旧版本.
ELSE
Begin
messagebeep(0);
Application.MessageBox(‘不能完成文件拷贝.‘+‘ ‘ 请手工拷贝！.‘, ‘Copy Error!‘,1);
Exit;
End;
End;
Application.Initialize;
Application.Title := ‘This‘;
Application.HelpFile := ‘This.hlp‘;
{autocreate forms, etc.}
Application.Run;
end.
如果自动升级程序是一个控制台程序，那么一
相关文档：
在写c++的接口时可以将两个相互引用的类放在两个.h文件中，然后将这个接口翻译到delphi时，放在两个文件里就不可能了。只能放在同一个unit中。并且要将这两个类都放在同一个type下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap = class;这种格式而� ......
15本Delphi书籍(PDF格式)下载 (转)
文件名: Delphi组件参考大全.rar
下载地址: http://www.rayfile.com/files/678ca1e3-f73f-11de-9d02-0014221b798a/
文件名: Delphi信息系统开发实例精选.rar
下载地址: http://www.rayfile.com/files/fb328f02-f73e-11de-8a76-0014221b798a/
文件名 ......
技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
技术交流,DH讲解. 之前照着天书夜读,用Delphi来弄了下循环体,现在就来弄一下条件判断吧.
首先肯定是我们经常看见的IF语句咯. Var
I: Integer;
Begin
I:= 99;
If (I> 0)And (I< 0) Then
Writeln('I>0')
Else
If (I> 10)And (I< 100) Then
Writeln('I>10 and I100');
End.
反汇编出来会是 ......
Delphi正则表达式使用方法（TPerlRegEx）
正 文：
使用Delphi开发软件无疑是一种比较高效率的方式，完全对象的语言，严格控制的语法，可视化开发环境的性能，编译器的速度和已编译代码的效率，编程语言的功能及其复杂性，数据库结构的灵活性和可扩展性，框架对设计和使用模式的扩充无疑都是delph ......
