随笔分类 -  Delphi

在运行程序时传入参数（Delphi）
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure TForm1.FormShow(Sender: TObject);var i:Integer;begin //当前程序的完整路径（包括文件名） lbl1.Caption:=Pa... 阅读全文
posted @ 2008-11-26 13:01 Aricc 阅读(376) 评论(0) 推荐(0) 编辑
用Tidhttp下载文件
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure TForm1.btn1Click(Sender: TObject);var stm:TFileStream;begin stm:=TFileStream.Create('c:\t... 阅读全文
posted @ 2008-11-26 13:00 Aricc 阅读(979) 评论(0) 推荐(0) 编辑
简单的在线升级程序
摘要：如果你的升级过程比较简单（例如只需要下载更新一个主程序），那么本示例就比较适合你。 下载升级文件的程序这里就不再赘述，详细使用方法请参考http://www.cnblogs.com/Aricc/archive/2008/11/26/1341378.html 现在，我们只需要在主程序中加入一个很简单的Procedure就可以完成升级任务了。 假设下载回来的最新程序的完整路径是New，当前运行的程序... 阅读全文
posted @ 2008-11-26 12:59 Aricc 阅读(571) 评论(0) 推荐(0) 编辑
一个简单的加解密算法
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ... 阅读全文
posted @ 2008-11-26 12:59 Aricc 阅读(453) 评论(0) 推荐(0) 编辑
获取系统文件夹路径
摘要：系统文件夹在不同的计算机上是不同的（由于不同的操作系统，用户档案，用户设定）。以下代码可以读入当前设定:uses ShlObj, ActiveX;function GetSystemPath(Folder: Integer): string;varPIDL: PItemIDList;Path: LPSTR;AMalloc: IMalloc;beginPath := StrAlloc(MAX_PAT... 阅读全文
posted @ 2008-11-26 12:58 Aricc 阅读(493) 评论(0) 推荐(0) 编辑
字符串、PChar与字符数组(delphi)
摘要：设有以下三个变量：var s:string; p:pchar; a:array[1..20] of char;那么三者之间的转换如下：1、字符串到PChar p:=PChar(s);2、PChar到字符串 s:=p;3、PChar到字符数组 StrCopy(@a,p);4、字符数组到PChar PChar(@a);5、字符串与字符数组之间的转换就只有通过PChar来中... 阅读全文
posted @ 2008-11-26 12:57 Aricc 阅读(672) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示