引言: 笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求,Delphi本身提供了一些目录操作函数,但只是针对空目录而言,对目录下带有子目录的情况,更是无能为力。
摘要: 通常写得好的windows程序显示一个启动提示或封面,也叫做闪现窗口。
由于工程本身创建了程序的主窗口,一般情况下主窗口最先出现, 那么闪现
窗口如何出现在主窗口之前。
如果我们将主窗口的可视(visible)属性设置为假,于工程启动时,是否能
将主窗口暂时隐藏起来,以使闪现屏幕最先出现呢?答案是不能。 因为应用程序
自动在适当时候,使form可视。(注:当一个form用做子窗口或对话框,......
摘要:问题的提出
在一个客户/服务器模式的网络环境中,数据库(informix)服务器建立在sco unix 5.05上,同时,有若干台运行windows 95/98的工作站。需要解决的问题是:如何在客户端执行一段程序,然后由服务器来完成数据库中数据的处理并进行转发,即由客户端来控制远端服务器的命令执行。它的实际意义在于服务器可能位于几公里甚至几百公里以外的地方。
解决的方法和思路
由于sco u......
在Delphi中实现对目录拷贝、删除和搬移的操作笔者在工作中遇到了需要对目录进行拷贝.删除与搬移的需求,delphi本身提供了一些目录操作函数,但只是针对空目录而言,对目录下带有子目录的情况,更是无能为力.利用win32 api函数与结构,以及递归的程序设计思想,笔者实现了对任意目录进行拷贝.删除与搬移的功能(分别相当于dos中的xcopy.deltree与move命令).以下分别给出了实现代码:
【程序编程相关:
在TWebbrowser 中模拟点击一个】 【推荐阅读:
OTA:Tools API回顾[D2]
】
---- 1.拷贝目录 【扩展信息:
DELPHI中数据文件路径的管理
】
---- 为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件与子目录都拷贝完.
---- 1.1拷贝目录的递归辅助函数:docopydir
function docopydir(sdirname:string;
stodirname:string):boolean;
var
hfindfile:cardinal;
t,tfile:string;
scurdir:string[255];
findfiledata:win32_find_data;
begin
//先保存当前目录
scurdir:=getcurrentdir;
chdir(sdirname);
hfindfile:=findfirstfile(*.*,findfiledata);
if hfindfile< >invalid_handle_value then
begin
if not directoryexists(stodirname) then
forcedirectories(stodirname);
repeat
tfile:=findfiledata.cfilename;
if (tfile=.) or (tfile=..) then ...
下一页 摘要:在使用delphi开发应用程序时常常要使用到tlistview列表视控件,但是仅仅使用tlistview的原有属性、方法和事件是不够的,常常需要在程序开发过程中对列表视的功能进行扩展,比如对列表视添加任意列组合排序、listitem拖动、customdraw自绘制、加入背景图等功能,由此可见delphi自带的tlistview列表视控件功能有限,并不让人感到满意。为了让列表视具有更多的功能,我们只......