当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求,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列表视控件功能有限,并不让人感到满意。为了让列表视具有更多的功能,我们只......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE