| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265514
建立时间:2005年6月6日 |
| |
|
 [delpih编程]WINRAR强悍压缩功能
软件技术
吕向阳 发表于 2009/6/20 19:36:12 |
winrar 的强悍今天略微见识了一下，我用肥猫安装软件制作注会软件
安装程序，共65M,考虑自身上传与他人下载都有困难，想减肥。
用肥猫制作好安装包后，再压缩大小为61M，这种方案不予考虑了。
于是直接用WINRAR压缩后大小为31M,然后将其制成自解压文件，大小仍
为31M。因为很多EXE文件在下载时，在传送时有诸多限制，因此决定对
自解压文件再次压缩成RAR，这样下载起来方便，且进压缩包后直接点
安装文件，人人都会用。没想到的是压缩后此时非常意外地文件大小变
成了21m,令人喜出忘外。
==========
下为引述
winrar是一个著名的文件压缩软件，它功能强大、操作方便，较winzip
有过之而无不及。与winzip相比，winrar有一个比较方便的地方就是它
不用压缩成zip或rar文件就可以直接创建自解压文件（即exe格式文
件）。下面我就以最常用的winamp为例，简单地介绍一下其“安装程
序”的制作方法。 打开所需要安装的文件夹，按ctrl+a全选该文件
夹中的所有文件，单击右键选择“winrar”下的“添加到档案文
件...”，随后打开一个参数设置框，在“常规”选项卡中勾选复选框
“创建自释放格式档案文件”，填入你想要生成的可执行文件的文件
名，压缩方式选择“最好”；
切换至“高级”选项卡，点击中间的“自释放选项”按钮，在弹出
的“高级自释放选项”框中的“释放路径”栏填入“你需要运行的程
序”，“释放后运行”栏中输入“程序名字”；
再切换至“高级”选项卡，点击“添加快捷方式”按钮，则弹出
“添加快捷方式”对话框，在创建位置中选择“桌面”，源文件名中输
入“程序名”、快捷方式描述输入“程序名称”、快捷方式名输入“你
需要的名字”，然后单击“确定”按钮；
若还要为开始菜单添加更多的快捷方式，则继续单击“添加快捷方
式”按钮，所有的快捷方式添加完后，快捷方式文本编辑框中将列出刚
才添加的快捷方式的参数，我们也可以直接在这个文本编辑框中编辑或
修改添加快捷方式的参数内容。所有参数都设置好以后，一直点击“确
定”按钮即可生成p的“安装程序”。
winrar自解压文件的帮助
path=;释放路径
delete= ;需要删除的文件，只能删除path下面的文件
delete=
delete=
delete=也可以用路径，其绝对路径是path+后面的
overwrite=1;默认覆盖所有文件（2为跳过所有文件）
|
|
|
[delpih编程]保存webbrowser中的HTML内容，不出现另存对话框
软件技术
吕向阳 发表于 2009/6/19 21:59:31 |
利用IPersist接口可以实现保存HTML到文件，在VB和Delphi下的实现
是这样的： VB: Dim oPF As IPersistFile Set oPF =
WebBrowser1.Document oPF.Save "TheFileNameHere.htm", False
Delphi: uses MSHT
利用IPersist接口可以实现保存HTML到文件，在VB和Delphi下的实现
是这样的：
VB:
Dim oPF As IPersistFile
Set oPF = WebBrowser1.Document
oPF.Save "TheFileNameHere.htm", False
Delphi: uses MSHTML,OleCtrls, SHDocVw, StdCtrls,ActiveX;
function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings):
Boolean; var ps: IPersistStreamInit; s: string; ss:
TStringStream; sa: IStream; begin ps := WB.document as
IPersistStreamInit; s := ''; ss := TStringStream.Create
(s); try sa:= TStreamAdapter.Create(ss, soReference) as
IStream; Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring); finally
ss.Free; end; end;
|
|
|
[delpih编程]delphi 中用NMFTP实现下载
软件技术
吕向阳 发表于 2009/6/19 21:27:32 |
代码如下
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Psock, NMHttp, ExtCtrls,
jpeg;
type
TfrmDownload = class(TForm)
NMHTTP1: TNMHTTP;
btnGet: TButton;
Label1: TLabel;
edtURL: TEdit;
StatusBar1: TStatusBar;
Label2: TLabel;
tempFileName: TLabel;
Label4: TLabel;
finalFileName: TLabel;
ProgressBar1: TProgressBar;
btnExit: TButton;
procedure btnGetClick(Sender: TObject);
procedure NMHTTP1Success(Cmd: CmdType);
procedure FormCreate(Sender: TObject);
procedure NMHTTP1Failure(Cmd: CmdType);
procedure NMHTTP1PacketRecvd(Sender: TObject);
procedure btnExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDownload: TfrmDownload;
implementation
{$R *.DFM}
procedure TfrmDownload.btnGetClick(Sender: TObject);
begin
NMHTTP1.Get(edtURL.text);
// 下载URL指定的文件
end;
procedure TfrmDownload.NMHTTP1Success(Cmd: CmdType);
var
filName:string;
buf:string;
pnewfile,poldfile:pchar;
i:inte |
|
|
[delpih编程]注册会计师考试练习题库软件最近更新90.06.13
软件技术
吕向阳 发表于 2009/6/14 17:05:10 |
下载：http://www.whzysoft.cn/zkks.rar
介绍：http://www.whzysoft.cn
2009.06.13最近更新
新加入新考生版考题，总量超过22000题，大小近四十M
加入学员学习进度保存，升级题库后可随时导入原进度与个人心得资料
2009.06.05
1.加入每门功课的笔记本功能，供学员自己记载做笔心得及搜集的资料
2.加入计时功能（平时不关注时间，考试时，时间是不够用的哦）
3.直接计算功能，在做每题笔记框时可直接进行计算回车得到结果
4.加入对题目修改功能，对重点语句标示，可一目了然，反复记忆
5.加入答案清空重做功能
6.修正评分错误
7.加入2009年若干最新题库，加入风险管理题库（陆续加入中）
2009.04.20
1，加入了翻页键切换题目，ctrl+回车键随时调出答案
2，加上作者联系qq
3, 进入系统时显示注册提示窗口。
4，去掉了一个很大的链接库，减少了文件大小。
2009.02.25
升级至v1.1
1.修正了原来数据库
2.加入了历年考题及模拟试题
3.修正了题库维护中边界出错的BUG
2009.03.02
1.修正题库中有图片显示不正常的错误
2.加入了打印到WORD文档的功能 ，可选只打印大题，只打印题目不
打印答案
|
|
|
[delpih编程]dbgrideh的过滤stfilter设置与程序
软件技术
吕向阳 发表于 2009/6/14 11:15:32 |
1.设dbgrideh表格的sffilter的全部子项为 true
2.双击dbgrideh增加column，分别设置其field属性，
关键是下面的：
对每个要进行过滤的column ,设置其相应的datafiled ,keyfield
3.在dbgrideh的ApplyFilter事件中加入以下代码，代码按你的库去改
写
procedure Tformgl.DBGrid2ApplyFilter(Sender: TObject);
begin
with (Sender as TDBGridEh) do
begin
DataSource.DataSet.Filtered := False;
DBGrid2.Columns[2].STFilter.KeyField := 'km';
DataSource.DataSet.Filter := 'true';
if Columns[2].STFilter.ExpressionStr <> '' then
DataSource.DataSet.Filter := DataSource.DataSet.Filter +
' and (' +
Columns[2].STFilter.DataField +
'=' + #39 +
Columns[2].STFilter.ExpressionStr+ #39+')';
DBGrid2.Columns[3].STFilter.KeyField := 'zjid';
if Columns[3].STFilter.ExpressionStr <> '' then
DataSource.DataSet.Filter := DataSource.DataSet.Filter +
' and (' +
Columns[3].STFilter.DataField + '=' + #39 +
Columns[3].STFilter.ExpressionStr + #39+')';
DataSource.DataSet.Filter := stringreplace
(DataSource.DataSet.Filter, 'true and ', '',
[]);
DataSource.DataSet.Filtered := True;
end;
end;
|
|
|
[delpih编程]Delphi中的Access技巧小结【转贴】
软件技术
吕向阳 发表于 2009/6/13 21:20:29 |
Delphi中的Access技巧小结
DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库).以下代码
在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无
ACCESS环境下运行成功.
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
//在之前uses ComObj,ActiveX
//声明连接字符串
Const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=%s;'
+'Jet OLEDB:Database Password=%s;';
//
==============================================================
===============
// Procedure: GetTempPathFileName
// Author : ysai
// Date : 2006-01-27
// Arguments: (None)
// Result : string
//
==============================================================
===============
function GetTempPathFileName():string;
//取得临时文件名
var
SPath,Sfile&:array [0..254] of char;
begin
GetTempPath(254,SPath);
GetTempFileName(SPath,'~SM',0,SFile);
result:=SFile;
DeleteFile(PChar(result));
end;
//
==============================================================
===============
// Procedure: CreateAccessFile
// Author : ysai
// Date : 2006-01-27
// Arguments: FileName:String;PassWord:st |
|
|