导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

快捷方式/删除项/EXE自删除DIY

您正在看的Delphi教程是:快捷方式/删除项/EXE自删除DIY。

 每一个编程爱好者,都希望自己的作品能为大家接受和喜爱,但我们的作品大多是简单的一个EXE文件的拷贝,既不需安装也没有删除程序,让人觉得只是程序而不是产品,以下我以Delphi 为例和大家交流一下程序组快捷方式建立、添加删除程序组中的删除项和程序的自删除等功能。
1.以下先来介绍建立程序组快捷方式的方法:

  在uses 单元中加入 shlobj,activex,comobj,在窗口中添加一个button,并在其事件中添加以下代码:
...

VB中调用HTML帮助文件

VB中调用HTML帮助文件 闫东   HTML帮助文件是Windows基本帮助系统的一种新标准,在Win 98中我们到处都可以看到它的身影。作为一种时尚,我们的应用软件自然也不能落后,于是我着手将原来的帮助文件重新编译为HTML帮助文件。从Visual Studio 98中可以找到HTML Help WorkShop,使用方法不是太难。很快,一个帮助文件完成了(

把Bitmap文件转换为JPEG文件

把Bitmap文件转换为JPEG文件类 别:图形     以下代码把Bitmap文件转换,并存为JPEG文件:var    aJPEGImage : TJPEGImage;    aPicture : TPicture; 

把长文件名变为短文件名

procedure TForm1.Button1Click(Sender: TObject);var  Buffer : array [0..255] of char;begin  GetShortPathName(    'C:\Program Files\Borland\Common Files\Bde\Bde32.hlp', &nb

保存WBMP文件用于WAP应用

保存WBMP文件用于WAP应用  注意:TBitmap中包含的位图必须是黑白的。   Function BitmapToWBMP( Bmp : TBitmap; Filename : String ) : Boolean;  Var  F : File;  Buf : Array[ 0..256 ] Of Byte;  BufL

编程实现文件关联

编程实现文件关联


 文件关联的目的是要实现某种扩展名的文件由相应的应用程序来打开,对于编写的应用软件来说,由于一般都有设计者特定的扩展名的数据文件,软件编制者应在程序中实现自动关联而不能由用户手工去实现。下面给出实现文件关联的实用程序。 
 实现文件关联的核心是对注册表的操作, 所有的文件关联都在HKEY-CLASSES- ROOT 下面, 要实现文件关联必须在HKEY-CLASSES-ROOT 中增加两个键值,一是和文件扩展名对应的类型说明,二是对这种类型文件的操作所需要执行的应用程序。下面举例说明,本例实现将扩展名为.xyz的文件定义为“我自己的文件”类型,双击此种类型的文件时执行的打开功能使用记事簿程序。实现这一功能需要用到Delphi中的函数 RegCreateKey、RegSetValue。实现如下: 
...

编写Web方式上载文件的ASP组件

编写Web方式上载文件的ASP组件---- 基于Web方式上载文件,要遵从RFC1867标准。但IIS没有提供这方面的支持。虽然可以从Internet上下载这方面的ASP组件,但大多都是试用版,有使用时间的限制;并且,功能上也不能完全满足自己的要求。我们可以编写自己的ASP组件,使之适合自己的应用系统的需求。---- 我们假设有如下的一个上载文件的.html文件,它被命名为demo.htm:

编写功能完备的ASP文件上载组件

编写功能完备的ASP文件上载组件---- 黄明建的“编写Web方式上载文件的ASP组件”(以下简称原文)一文从RFC1867标准出发,分析了上传的二进制文件格式,编写出了具有文件上载功能的ASP组件,突破了多以Perl语言来实现WEB方式上载文件的方法。但原文忽略了以下几个关键问题:按照RFC1867标准,上载的文件可以更换新名。在原文的demo.htm中,文本框text1

从命令行获取长文件名

procedure TForm1.Button1Click(Sender: TObject);var  s : string;begin  s:= GetCommandLine;  Delete(s, 1, pos('exe"', s) + 4);  Memo1.Lines.Add(s);end;

从文件中提取图标

首先声明一个API:Function SHChangeIconDialog(hOwner:hwnd;szFilename:pchar;Reserved:longint; var lpIconIndex:Longint):Longint;stdcall;external 'shell32' index 62;function TForm1.GetIconFromExe(ExeName:string)

打开已注册文件

打开已注册文件 打开Windows已经注册的文件其实很简单,根据以下代码定义一个过程:procedure URLink(URL:PChar);beginShellExecute(0, nil, URL, nil, nil, SW_NORMAL);end;在要调用的地方使用URLink('Readme.txt');如果是链接主页的

得到文件的版本信息程序

得到文件的版本信息程序主题:得到文件的版本信息程序发信人: aaa234(我只只在乎你)整理人: teleme(2001-06-09 20:00:11) 站内信件procedure TForm1.GetVersionInfo; const   n_Info = 10;  

分页:[«]11[12][13][14][15][16][17][18][19][20][21][22][23][24][25][»]

日历

<< 2013-5 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved