导航

心动吧DELPHI网络书

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

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

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

  提供多个控件下载:

文本转换为GIF文件

文本转换为GIF文件类 别:图形      在你的窗体中添加一个Timage和一个Button,Button用于调用过程,此过程把文本和gif文件的名字作为参数。 procedure TxtToGif (txt, FileName: String); var  

文件的合并与分解演示

文件的合并与分解演示主题:文件的合并与分解演示发信人: kingron(金龍)整理人: teleme(2001-03-05 18:03:47) 站内信件完整的例子在我的主页有下载: http://kingron.myetang.com/-->软件下载unit mgr;interfaceuses  Windows&

Delphi的注册表操作

  32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
 
  一、创建和释放TRegistry对象
 
  1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create;
 
  2.释放TRegistry对象。对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy。
...

Delphi的注册表操作

  32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
 
  一、创建和释放TRegistry对象
 
  1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create;
 
  2.释放TRegistry对象。对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy。
...

Delphi的注册表操作

  32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
 
  一、创建和释放TRegistry对象
 
  1.创建TRegistry对象。为了操作注册表,要创建一个TRegistry对象:ARegistry := TRegistry.Create;
 
  2.释放TRegistry对象。对注册表操作结束后,应释放TRegistry对象所占内存:ARegistry.Destroy。
...

用Delphi来编写蠕虫病毒浅析

前言:

  可能大家想到病毒,第一反应就是可能是用asm来编写,或者是vbsript,而高级语言如delphi就好象不能编写一样,其实事实并不是这个样子的,只要我们花一些时间,照样可以写出简短而高效的病毒程序来,一点也不输那些用汇编写出来的程序哦。

  一个病毒程序首先要短小,我们的目标是经过压缩后控制在30k以下。用过delphi的朋友都知道,如果在uses里面加入forms,classes.....等就会使目标文件非常的大,所以,在我们的程序里,我们要尽可能的不用这些库。我们只用windows,winsock,shellapi,sysutils(这个里面包含了一些常用的函数,比如对文件的操作,对字符串的操作,如果用自己的程序来代替,目标文件会更加的小)

...

文件管理

文件管理发信人: seader (海哥), 信区: Delphi标  题: 文件管理发信站: BBS 水木清华站 (Fri Oct  9 21:34:28 1998) WWW-POST一读出文件的长度var   

文件拷贝

{This way uses a File stream.}Procedure FileCopy( Const sourcefilename, targetfilename: String );Var  S, T: TFileStream;Begin  S := TFileStream.Create( sourcefilename, fmOpenRead );  tr

文件映射专题 (BM: laoduan)

文件映射专题 (BM: laoduan)编号类别标题编辑日期1文件内存映射文件的作用。 bgi2000.07.282文件创建内存映射文件 bgi2000.07.283文件将内存映射文件映射到进程度地址空间 bgi2000.07.284文件取消文件映射 laoduan2000.07.285文件关于文件映射的内核 bgi2000.0

显示avi文件的桢数

 procedure TForm1.Button1Click(Sender: TObject);begin  MediaPlayer1.TimeFormat := tfFrames;  ShowMessage('Number of frames = ' +     IntToStr(MediaPlayer1.Length)); 

显示缩略文件名

 function shortenfilename(s : string) : string;var drive,curdrive : string[2];    dir,curdir : string[80];    name : string[20];    ext : string[5];&n

向文本文件后追加一行

向文本文件后追加一行var filevar: textfile; buf:string; begin assignfile(filevar,'txt.log'); append(filevar); writeln(filevar,buf); closefile(filevar); end; 

分页:[«][16]17[18][19][20][21][22][23][24][25][26][27][28][29][30][»]

日历

<< 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