程序开发

programme

很强的用DELPHI关闭进程代码

unit Tlhelp323;

interface

uses
Windows,SysUtils,Tlhelp32;

function KillTask(ExeFileName: string): Integer; //关闭进程
function EnableDebugPrivilege: Boolean; //提升权限
function FindProcessId(ExeFileName: string):THandle; //查找进程

implementation

自己用delphi7参考网上资料写的一个在线升级程序

为了给自己的程序实现自动升级的功能,这2天查了点资料,写了这个程序。就算是原创吧,当然也参考了网上的资料。呵呵。当然,还不完美,目前只是将就实现了基本的功能,下载大文件窗体假死的问题还是没有解决,还有,进度条的问题也处理不好,还有很多要完善的地方。希望需要的朋友自己去完善。

我开始也在网上找了相关的代码,但都不完整,不是缺这个就是少那个,很少有能拿来就用的。估计是作者只提供了部分的代码吧。以下是我的全部源代码,没有删除任何内容,保证大家复制之后,添加完相应的控件就可以运行。使用了Tlhelp323,这个文件的代码,在:http://blog.csdn.net/leoruby/archive/2010/11/01/5979545.aspx
以下是我的配置文件的格式,这个大家可以根据自己的需要再更改,本程序就是通过比较这2个文件,来进行更新的。

本地version.ine文件格式:

[update]
version=1.0

远程update.ini文件格式:

[update]
version=2.1

一些代码,涉及到excel的简单读取操作

unit Mainfrm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComOBJ;

Windows优化大师注册机源码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls, Buttons;

一个简单的DELPHI程序注册码设计

  当你辛辛苦苦用DELPHI做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢 做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单的注册码制造方法.思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册.
<注册例程>
在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Registry;//在此加上Registry以便调用注册表.
type
TForm1 = class(Tform)
Button1: Tbutton;
Edit1: Tedit;
Edit2: Tedit;
Label1: Tlabel;
Label2: Tlabel;

页面

Subscribe to RSS - 程序开发