delphi中怎么改输出文件目录? [问题点数:40分,结帖人celerylxq]

Bbs1
本版专家分:0
结帖率 100%
Bbs4
本版专家分:1118
Bbs5
本版专家分:2094
Bbs5
本版专家分:3834
Bbs3
本版专家分:691
Bbs5
本版专家分:3249
Bbs1
本版专家分:0
Delphi打开目录文件夹的几中类型
TFileOpenDialog、ShellExecute、SelectDirectory、GetOpenFilename、GetSaveAsFilename
delphi 创建目录
引用单元 System.IOUtils 目录操作 if not TDirectory.Exists('c:\test1\tt') then TDirectory.CreateDirectory('c:\test1\tt'); 文件操作 TFile.Exists('c:\test1\tt\t.txt')
三种方式递归获取文件目录
递归获取<em>文件目录</em> /** * opendir 打开一个目录句柄 * isdir 判断是否为一个目录 * readdir 依次读取文件资源句柄 * @param $dir * @param array $files 对变量值引用,直接改变同一块内存单元 */ function getDir1($dir,&amp;amp;$files=[]) { if(is_dir($dir)) ...
Eclipse中更改源文件的输出路径
当使用Eclipse创建项目之后,默认编译后的class文件存放在项目根路径下的build文件夹下,而源码则放在src文件夹下。通常如果我们使用eclipse的服务调式机制没有问题,但是如果我们手动启动Tomcat服务,并且以虚拟目录的方式访问时,那么由于Tomcat只会去WEB-INF下的classes目录找有没有文件,导致抛出ClassesNotFound的异常,所以我们在项目里需要将源文件输
如何改变delphi 中按钮的样式
在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性,有时你可能做了一个五颜六色的程序界面,而按钮颜色可能很不相称。 在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法,它遵循了Delphi的组件定义规则,完成后该按钮与普通按钮(Button)相比,多了一个Color属性,你可以永远地使用它,在设计阶段随意地改变颜色,就象是Delphi本身提供的组件一样(本文代码在Delphi 4.0下完成)。
Delphi更改.exe文件图标
网络上有很多更改的问答,也很简单: Project——Options…——Application,点击Load Icon… 可以修改icon 很多朋友会发现,咦,我按照这种方法改了之后,并没有看到效果,重点就在于电脑有一个缓存机制,此时只需要将工程文件夹换一个存储地方,就会发现图标就改了。 ...
Delphi 得到程序配置路径
class function TConfig.GXIniFolder: string;                                    const   GXEPath = '\GXExplorer';   ShellFolderKey = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
delphi 文件搜索,遍历所有子目录
function ListFiles(path: string): TStringList; var   SearchRec: TSearchRec;   found: integer; begin   result := TStringList.Create;   found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec)
Delphi_PComm串口编程.docx版
Delphi PComm 串口编程 需下载Pcomm.dll+PComm.pas 并复制到工程<em>文件目录</em>下
Chrome浏览器控件Delphi版
Chrome浏览器控件嵌入Delphi开发,开发属于自己的个性浏览器。
delphi项目配置输出路径
<em>delphi</em>项目配置<em>输出</em>路径 <em>delphi</em>项目配置<em>输出</em>路径 <em>delphi</em>项目配置<em>输出</em>路径
可以在XE下使用的DosCommand,捕获控制台输出(XE-XE5)
DosCommand 很多做过服务端控制的人都用过。 遗憾的是它只能在D2006以下环境中使用 我把它改好了,现在,你可以在XE-XE5的环境中使用它
遍历文件夹
遍历<em>文件目录</em> 可以<em>输出</em>需要查询的文件夹的目录信息
Windows 通过CMD指令导出的文件夹/文件的目录树
例如:有文件夹如下图所示:想要导出文件及文件夹的目录树,可以通过以下操作:电脑左下角  开始---&amp;gt;输入cmd回车比如我要导出 我的电脑 d盘 下的 test文件夹cmd默认路径为C盘,通过输入d:  回车进入其他盘输入 cd test 回车输入 tree /f &amp;gt;treefile.txt 回车在 test文件夹下面就生成了 treefile.txt文件txt内容如下:卷 软件 的文件...
文件目录自动输出程序
将此程序放在文件夹下,双击后直接形成<em>文件目录</em>~~又快又好用~~~
文件目录多样式输出
因需要的不同,<em>文件目录</em><em>输出</em>的格式有多种需要,本软件提供4类8种形式,供大家免费享用。 是用AUTOIT做的。
delphi中的unit名字怎么改???
比如:rn我将unit1.pas中的 rn unit Unit1;rn改为:rn unit Main;rn将project1.dpr中的rn Unit1 in 'Unit1.pas' Form1;rn改为:rn Main in 'Main.pas'Form1;rn就出错了:rn[Fatal Error] Project1.dpr(5): File not found: 'Main.dcu'rn到底还有哪要改呀!<em>怎么改</em>???
cmd 输出文件目录
dir /s /b >1.txt
Toolbar获取自带TitleTextView和动态设置高度
使用Toolbar,有时我们需要在代码中对TitelTextView和Toolbar高度进行设置,但Toolbar未留对应接口,所以只能自己想办法。 一、获取TitleTextView 这里我们使用反射机制获取。 /** * 获取TitleTextView * @return */ protected TextVie...
图像的反色原理和实现
1、  基本原理对于彩色图像的R、G、B各彩色分量取反的技术就是图像的反色处理,这在处理二值化图像的连通区域选取的时候非常重要。如物体连通域用黑色表示,而二值化后的物体连通域图像可那是白色的,而背景是黑色的,这时应手动选取图像的反色处理或有程序根据背景和物体连通域两种颜色的数量所占比例而自动选择是否选择选取图像的反色处理。2、  实现procedure TForm1.Button2Cl
Delphi 执行控制台(console)程序获取返回结果
function GetRunConsoleResult(FileName:String;Visibility:Integer;var mOutputs:string):Integer; var sa:TSecurityAttributes; hReadPipe,hWritePipe:THandle; ret:BOOL; strBuff:array[0..255] of char;
XP启动画面制作工具
改变单调一尘不变的开机画面。想<em>怎么改</em>就<em>怎么改</em>
PScs6修改打开界面
psCS6修改打开界面,自己想<em>怎么改</em>就<em>怎么改</em>哦~超赞的~亲测成功!
delphi 文件目录管理
大侠rn 首先祝大家新年大发,万事如意!rn 我想实现这样的功能,存放备份<em>文件目录</em>,想写这样一个过程,过程功能 rn 根据备份文件的时间排序,保留最新备份的三个文件,其余删除,rn请指点,谢谢
delphi 局域网共享文件夹上传文件
unit u_lcopy; interface uses   windows,Dialogs,Classes,SysUtils,IniFiles,UnitAES; type   TlocFileCopy = class   private     Fconnected: Boolean;   public     gserver: stri
DELPHI 创建文件目录
DELPHI 如何创建<em>文件目录</em>
Delphi读取快捷方式中的图标和路径信息.rar
Delphi读取快捷方式中的图标和路径信息,将包含在快捷方式中的图标和路径信息以及执行<em>文件目录</em>、热键等读取出来,适用于Windwos中所有的快捷方式。
截取String输出目录文件内容
截取String<em>输出</em>目录文件内容 输入格式: * C:\Users\sunRainAmazing\Desktop\sun\rain\amazing C:\Users\sunRainAmazing\Desktop\sun\rain C:\Users\sunRainAmazing\Desktop\sun C:\Users\sunRainAmazing\Desktop C:\Users\sunRai
Java 中 更改文件路径
public static void moveDataFile2Reject() throws Exception {        try {             //String dataFilePath = PropertyUtil.getString(PropertyUtil.INPUT_FILE_PATH_KEY);            //String rejectFilePat
找到一个Delphi xe帮助文档剥离的方法
1. F1打开帮助文档,如: 2. 看地址栏,复制文件名称,此处是:Program_Control.html 3. everything搜索Program_Control.html,果然找到了 4. 接下来就是想办法批量找到所有的文件了,尝试中。。。。。。
音乐怎么改
电脑开机音乐<em>怎么改</em>
组件菜单的颜色,它改变的是元素窗口的背景色。
(2018-08-12-周日 16:16:15)仅改变当前窗口的颜色。 颜色改变组件的颜色
delphi如何调用sql存储过程,并获取结果
<em>delphi</em>如何调用sql存储过程,并获取结果 adostoredproc1.Close; adostoredproc1.ProcedureName:='sp_thchl'; adostoredproc1.Parameters.Clear; adostoredproc1.Parameters.CreateParameter('out',ftInteger,pdoutput,1,1); adostoredproc1.ExecProc; edit1.Text :=adostoredproc1.Parameters[0].Value;
PQ分区大师.
手动分区,想怎么分就怎么分,想<em>怎么改</em>就<em>怎么改</em>
QQ空间代码百宝箱
可以修改QQ面板所有的东西,皮肤、图标、字体想<em>怎么改</em>就<em>怎么改</em>!
windows生成目录结构输出到txt文档
生成D盘下目录结构 D:>tree d:\ >目录.txt 生成D盘下面BaiduNetdiskDownload目录的目录结构 d:>tree D:\BaiduNetdiskDownload > 目录.txt
delphi 在word模板中贴数据
如果需要word模板,并且在<em>delphi</em>中将数据插入到word中的操作步骤:下面操作涉及的变量:var i,j:integer; FileName:string; vl_str,vl_sql:string; ksh,kslb:string ; bookmarkCount,vl_answer:integer; bookmarkName:string;...
windows下MySQL更改数据库文件目录
MySQL安装并配置完毕,默认的数据库存放目录为C:\ProgramData\MySQL\MySQL Server 5.1\datamy.ini也在这个目录下面操作:把默认路径的那个data文件夹中的文件全部复制到你要修改了目标目录下 然后在在my.ini文件中修改成你的目标目录 然后在重启,就ok了例如:我的目的路径为:G:\semeticdata\Data    注意: 在my.ini中修改 ...
VB/DELPHI 不使用管道和重定向方式获取SHELL输出内容
网上都是推荐使用管道或者重定向方式。 但是这2种方式都有问题: 1.管道复杂且不稳定,比如关闭输入才能获取<em>输出</em>,容易搞死SHELL运行的程序; 2.重定向等于接管了所有<em>输出</em>,不利于哪些不需要隐藏方式运行需要显示运行结果的命令(比如启动TOMCAT等)。 我这种是第三种思路,通过发送sysmenu命令,全选、复制的方式获取。稳定。
Delphi操作Word段落、字体示例程序源代码..rar
Delphi操作Word段落、字体示例程序源代码..rar
Query参数parameter的操作
Query参数parameter的操作一、静态设置1.  设置参数           2.  设置sql      注意:=:与cxybm中间是不能有空格的,否则报错(这个错误搞得我好晕)二、动态设置procedure TForm1.Button1Click(Sender: TObject);var  czybm : TParameter;
根据文件路径分别获取文件名和文件目录
[code=&quot;java&quot;] String path = &quot;C:\\xxx\\a.txt&quot;; //获取文件名之前的目录 String directoryStr = path.substring(0, path.lastIndexOf(File.separator)); System.out.println(&quot;File.separator = &quot;+File.se...
用友通登录
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComObj, WordXP,StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Bu...
Delphi命令行运行程序
Delphi命令行运行程序
Delphi实现文件压缩解压
Delphi实现文件的压缩与解压,包含Demo与控件,非常有用,分享给大家。
Win10下调整delphi7打开文件对话框的路径为当前项目的路径.
如题
Delphi报表控件
Delphi报表控件,用于Delphi报表<em>输出</em>.
视频转换为帧图输出
利用c++将视频流转化为帧图<em>输出</em>,可选择帧数提取区间,<em>输出</em>的图像会直接存储到程序<em>文件目录</em>下。
创建http服务器,输出目录子文件名
  使用http模块创建简易路由服务器: const http = require(&quot;http&quot;); const url = require('url'); const fs = require('fs'); let server = http.createServer((req, res) =&amp;gt; { console.log('收到client请求'); ...
BulkRen改名工具中文版
最强大的改名工具,可以批量对文件,文件夹进行改名,速度快,功能强大,想<em>怎么改</em>就<em>怎么改</em>支持正规表达式.
delphi生成随机数
<em>delphi</em>产生随机数2009-07-27 18:58//用<em>delphi</em>产生不重复的随机数 ****************************************************************************************** var aa : array[1..36] of string[2]; //aa数组为需要随机排列的数组,{先把1..36按顺序给aa数组赋值} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 36 do begin aa[i]:=inttostr(i); bb[i]:=inttostr(i); end; end; {随机进行排列} procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; swapa:string[2]; begin randomize; //随机数初始化*一定要有,不然下次运行时候产生的随机数仍然和这次相同* for i:=1 to 36 do begin j:=1+random(36); swapa:=aa[i]; aa[i]:=aa[j]; aa[j]:=swapa; end; //由此得到不重复的随机排列数字 ***************************************************************************************** 如何产生34-456之间的随机数 Randomize; 34+Random(456-34+1); ×××××××××××××××××××//下面是扫雷游戏的一个编法 procedure TForm1.Button1Click(Sender:TObject); begin Randomize; Memo1.Lines.Add(IntToStr(Random(20))); end; ×××××××××××× ***************************************************************************************** 随机数相关的几个函数: 1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。 所以该值必须每次调用均应是不同值。 2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。 3、Random() ;//由“种子”初始化的随机数出发,开始产生随机数序列 但是Delphi中的Random()产生的是伪随机数,也就是说,程序的两次运行,Random()产生的随机数是一样的。 先运行一下Randomize,再Random就是真正的随机数了 即: Randomize //初始化随机数发生器 Random() ********************************************************************************************* <em>delphi</em> 如何产生不重复随机数 pascal里的随机数 随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是:首先初始化一个随机种子,其初始值可以是任意的整数;在每次获取随机数时,以随机种子为基础进行某种特殊的运算,获得一个随机数并返回之,然后再对随机种子进行某种运算,改变随机种子的值。这样,就可以生成许多比较随机的数,但同一个初始值的随机种子将会生成完全相同的随机数列。 Pascal的System单元提供了两个与随机数有关的子程序:Randomize和Random。 Randomize过程用于初始化随机种子,其初始值取决于当前的系统时钟。 Random函数用于获取随机数 它有两种调用形式: Random,返回一个0到1之间(不包括1)的随机实数; Random(N),返回0至N之间(不包括N)的随机整数,N为Word类型整数。 另外,System单元中随机种子变量的标识符为RandSeed,你也可以手动修改它。随机数在信息学奥林匹克中可用于随机化搜索、穷举等算法,以优化其性能,也可用于在快速排序中选择关键数,以使其快速排序算法的最坏情况没有固定的相应数列。如果你希望使用了随机数的程序对同一个输入数据能有恒定的<em>输出</em>结果,可以设置RandSeed为一个定值。 ************************************************************************************************* 一个变态小算法 ******************************* 比较耗费机时,如果产生的数目少,就不要用这个算法了。 计算的是在一个范围内(如1-1000),随机抽取n个不相等的随机数。我的思想就是先定义一个用来存放的数组(这当然是必须的啦,废话),然后定义了一个二维数组(感觉很浪费空间),这个二维数组是用来存放已经生成随机数的范围,当然不是随意存放了,要按照自然顺序,但这还不必要定义二维的。二维主要是存放一个范围,即某一列的第一行存放的是范围的小值,而第二行存放的是范围的大值。这样新生成的随机数肯定是在范围之外的,因为范围是已生成随机数的范围啊。这样,每次取随机数时,先随机抽取在某两个范围数组值之间,再在这两个范围数组值之间取随机数。基本上就是这样了。 public class random { int count=500; //个数 int min=1; //最小值 int max=1000; //最大值 int[] r=new int[count]; //随机数存储数组 int[][] k=new int[2][count+2]; //存储范围数组,用于判断范围值 //一维数组用来存放范围的小值,二维用来存放大值 int l=0; //存储空间大小 public random() //初始化范围 {k[0][0]=min-1; k[1][0]=min-1; k[0][2]=max+1; k[1][2]=max+1; l=3; } public int ran(){ //来一个可以制造随机整数的东西 return (int)(Math.random()*1000000000); } public void p(int x,int c) //用来比较存储数组 { for(int i=0;ii;j--){ //后移数组为插入值留个位置 k[0][j]=k[0][j-1]; k[1][j]=k[1][j-1]; } k[0][i]=x; //插入值 k[1][i]=x; l++; if (k[0][i]-k[1][i-1]==1) //如果插入值与前一个范围值相差1,则与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break; }} } } public void move(int m,int n) //与前一个范围值合并的函数 { for(int j=n;j2) z=ran()%(l-2); //判断有多少个空隙,就是有多少个范围,然后随机选取一个 else z=0; r[i]=ran2(k[0][z+1],k[1][z]); //在选取的范围中制造随机数 p(r[i],i); } } public int ran2(int x,int y){ //在固定范围内制造随机数 int m=x-y; m=ran()%(m-1); return m+y+1; } /*public static void main(String[] args) { random rr=new random(); rr.r(); for(int i=0;i<rr.count;i++) }*/ }
DateTimeToStr 日期格式问题
DateTimeToStr得到的结果与电脑区域语言选项有关,日期的格式有关 不同电脑设置得的的结果不一样
delphi查看导出dll函数名 源代码
<em>delphi</em>遍历导出dll函数名的源代码……………………………………………………………………………………
java_递归遍历文件目录结构,打印所有的目录名和文件名
/** * */ package 作业0922; import java.io.File; public class 文件 { public static void main(String[] args) { getFileListame("C:\\Users\\shuai\\Desktop\\作业"); } public static void getFileListam
delphi中调试信息输出
有些时候,我们需要<em>输出</em>调试信息,但又不在界面上,也不希望弹出窗口中断执行,这时,只要用OutputDebugString就可以了,然后在View|Debug Window|Event Log查看结果即可。例子:var S : string;for I:= 1 to 10000 dobegin  ....  OutputDebugString(PChar(S));end;...
Java读取文件目录和文件,并且按照文件层次输出文件名和目录名。
只是临时写的代码,没有使用递归,对于多级的建议修改成递归方式。 本代码可以读取三层目录。 <em>输出</em>样例为: String path = &quot;C:/Users/admin/Desktop/近期/Python&quot;; File dir = new File(path); File[] files = dir.listFiles(); //百度文库 if (
PHP目录和文件
一、查看文件和目录 1、basename() 查看文件名称 2、dirname() 显示目录名称 3、realpath() 显示文件真实目录 //查看文件和目录 //魔术常量__FILE__,返回文件的完整路径和文件名 echo __FILE__; //<em>输出</em> G:\xampp\htdocs\phpdemo\demo_php16.php echo &amp;quot;&amp;amp;lt;br/...
Delphi 关于DLL中使用TThread类或其子类的使用注意事项
使用Loadlibrary()、FreeLibrary(),调用DLL; 若DLL中使用了TThread类或其子类,那么TThread类或其子类不能在DLL中单元文件的finalization或TheExitProc中调用释放,即不能在FreeLibrary时,释放,否则会使FreeLibrary卡死
项目管理文件目录项目管理文件目录项目管理文件目录
项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>项目管理<em>文件目录</em>
delphi10.2的度量单位转换单元StdConvs.pas
标准转换类型:物理、流体、热、和时间转换单元 本单元中的度量单位和前缀遵循不同的SI/NIST标准 (http://physics.nist.gov/cuu/Units/index.html 和 http://www.bipm.fr/enus/3_SI)。变量定义: { ****************************************************************...
delphi修改exe图标
<em>delphi</em> xe10修改exe图标
怎么改DELPHI元件的图标???
DELPHI的元件面板上的抑件的显示图标<em>怎么改</em>?rn我自己做了一个控件,安装到了DELPHI的元件面板上,可显示的是DELPHI默认的图标,我想用我自己的,该<em>怎么改</em>???
Delphi Form1控制Form2 和文本显示
 1. Form1 控制Form2 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ...
递归输出目录的文件名
import java.io.File; public class Wuyu9 {  private static String separator = File.separator;    private static String path = &quot;F:&quot; + separator + &quot;A&quot;;  public static void Q(File m) {   if(m.exists()) { ...
delphi XE10 seattle 中双斜杠不能作为注释符号?
[我是<em>delphi</em>的忠实使用者,虽然不是是IT人员,但从<em>delphi</em> 7到现在最新版的RAD <em>delphi</em> XE10 seattle,每个版本我都下载下来体验过,但最新单位的一些工作很复杂,我很想用<em>delphi</em>编写小程序来处理,可是我发现我一直使用的注释符号:斜杠(//)在<em>delphi</em> XE10 seattle中不能用了,一用就出错,这是怎么了,是<em>delphi</em> XE10 seattle的漏洞吗?还是
00011--使用AllocConsole在Win32程序中调用控制台调试输出
请看:https://www.cnblogs.com/MuSmile/p/5245744.html
C#漂亮皮肤控件源码--C#代码写的
C#漂亮皮肤控件源码--C#代码写的,界面想<em>怎么改</em>就<em>怎么改</em>,只需设置属性即可!
通用PHP分页组件
还在为分页发愁么,功能与样式分离,想<em>怎么改</em>就<em>怎么改</em>,传几个参数,所有表均可绑定。
火线魔盒免费下载
只要你下载了他,击杀音乐,图标任你免费改,背景你<em>怎么改</em>就<em>怎么改</em>赶快下载吧
delphi怎么改Button的底色。
由于我设计得不够完善,在给Form1放上图片的时候,由于Button的底色是白色,和我图片的颜色不符,怎么把Button的底色改成图片的
显示任意一个目录的文件到Treeview中
//显示任意一个目录的文件到TReeview中 unit uTreeViewDemo; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls, FileCtrl; const  SELDIRHELP = 1000; type  TForm1 = class(TForm)   TreeView1: TTreeView;   Button1: TButton;   procedure Button1Click(Sender: TObject);  private   { Private declarations }  public   procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;              IncludeFiles: Boolean);   { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;                 IncludeFiles: Boolean); var  SearchRec: TSearchRec;  ItemTemp: TTreeNode; begin  TreeView1.Items.BeginUpdate;  if Directory[Length(Directory)] <> '\' then   Directory := Directory + '\';  if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then  begin   repeat    if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then    begin     if (SearchRec.Attr and faDirectory > 0) then     Item := Tree.Items.AddChild(Item, SearchRec.Name);     ItemTemp := Item.Parent;     GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);     Item := ItemTemp;    end    else    if IncludeFiles then    if SearchRec.Name[1] <> '.' then     Tree.Items.AddChild(Item, SearchRec.Name);   until FindNext(SearchRec) <> 0;   FindClose(SearchRec);   TreeView1.Items.EndUpdate;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  strOpenDir: string; begin  if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then  try   GetDirectories(TreeView1, strOpenDir, nil, True);  except   ShowMessage('错误信息');  end; end; end.
delphi 真正透明panel ,使用简单
<em>delphi</em>7正常使用,可以放在任何容器内,依旧透明
DELPHI xe 动态效果多时的控件闪烁
一、问题:界面中有时会发生控件闪烁问题。 二、解决方法:把闪烁控件的父控件的DoubleBuffered属性修改为TRUE
树形目录文件名输出(原版).exe
树形目录文件名<em>输出</em> :这个工具可以快速的生成<em>文件目录</em>的信息,是一款不错 的小工具哟~~~
delphi 关于进行pdf文件生成的控件
<em>delphi</em> 开发pdf文件阅读,生成的第三方控件
FarSession
链接错误,出现一大堆的重复定义,不知道<em>怎么改</em>。
获取系统临时目录
System.getProperty(&quot;java.io.tmpdir&quot;)
delphi try 抛出异常消息
try ------ except on E: Exception do begin raise E; end; end;
delphi xe10.2下的dbgrideh表格数据导出txt,xls文件
<em>delphi</em> xe10.2下的dbgrideh表格数据导出txt,xls文件
delphi控件实现圆角的方法
procedure RoundControl(Control: TWinControl;arc1:Integer;arc2:Integer); var   R: TRect;   Rgn: HRGN; begin   with Control do   begin     R := Control.ClientRect;     Rgn := CreateRoundRectRgn(
读取SD卡上的视频并显示在ListView
读取内存卡上的视频(3gp或MP4)并显示在listview上,点击播放
delphi 连接数据库 delphi信息输出部分代码及控件选择
<em>delphi</em> 连接数据库 <em>delphi</em>信息<em>输出</em>部分代码及控件选择
一个可以不断执行命令、能读取命令输出而且隐藏的Delphi Console类
unit uConsole; interface uses System.Classes; type IConsole = interface['{3151E6A8-FCDC-474A-8403-794BF25826BF}'] function GetOutputText: TStringList; function GetErrorText : TStringLi...
Delphi中double类型真正实现四舍五入(保留两位)
<em>delphi</em> 中的round采用的是“四舍、六入、五凑偶”, 要改成四舍五入,可用下面方法: function RoundFloat(f:double;i:integer):double; var   s:string;   ef:extended; begin   s:='#.'+ StringOfChar('0',i);   ef:=StrToFloat(FloatTo
根据输入的路径信息,搜索该路径中的文件目录变化信息。
<em>文件目录</em>变化:根据输入的路径信息,搜索该路径中的<em>文件目录</em>变化信息。
最小的http服务器
最小的http服务器,只需拷贝到<em>文件目录</em>中运行,别人输入你的IP 就可访问<em>文件目录</em>
messageBox 中显示变量及实现换行
前言总结下今天使用messageBox过程中解决的一些问题,共勉。 messageBox格式使用请参考: <em>delphi</em>中Application.MessageBox函数用法详解1、显示变量直接上干货(代码):vars:string; .... s:='存档失败'; Application.MessageBox(PChar(s),'错误',MB_ICONERROR);//窗口标识可以含多个,例如下
Delphi字符串 DLL传递字符串方式
由于是半路出家,写起代码来比较随性。每次在写dll传递字符串时需要费很大的劲。 在这里来一个Demo演示一下: dll代码:library dlltest1; uses SysUtils, Classes; {$R *.res} procedure fun1(p1: pchar; var p2: pchar); stdcall; var str: string; begin
改变PageControl指示点的颜色
PageControl指示点的颜色默认是白色,此时若背景也是白色,就完全看不到PageControl控件。那么需要更改指示点的颜色:
Delphi中的for循环本质详解
num := 0; count := 5; for i:=0 to count do begin     num := num + 1;     if count         count := count + 1; end;   如上例所示,for的循环条件是i从0到count,但是循环过程中count发生了变化,此时for语句会怎样处理呢?事实证明,for
Python文件、目录和输入输出操作
读取键盘的输入 Python提供了input()内置函数从标准输入读入一行文本,默认的标准输入是键盘。input可以接收一个Python表达式作为输入,并将运算结果返回,如下所示: biotest@biotest-VirtualBox:~/python3/03file$ cat input.py #!/usr/bin/python3 str=input...
Delphi中的循环结构
Delphi中的循环结构 For循环 for循环的格式: for i:= 0 to 10 do begin {在这里完成你的业务功能} end;for i:= 10 downto 0 do begin {在这里完成你的业务功能} end;说明: for循环中需要使用到循环变量,代码中使用i作为循环变量,for循环正式通过循环变
一个简单的错误,一直没有仔细考虑。
unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Pri
用户界面设计与开发精解DOC手打版下载
用户界面设计与开发精解DOC手打版,要的下吧,打的很辛苦 相关下载链接:[url=//download.csdn.net/download/gzyzljk/404072?utm_source=bbsseo]//download.csdn.net/download/gzyzljk/404072?utm_source=bbsseo[/url]
利用OpenCV实现人脸检测.pdf下载
利用OpenCV实现人脸检测.pdf 利用OpenCV实现人脸检测.pdf 相关下载链接:[url=//download.csdn.net/download/yuhua8688/2735503?utm_source=bbsseo]//download.csdn.net/download/yuhua8688/2735503?utm_source=bbsseo[/url]
WAYOS扩展WAN口工具下载
WAYOS扩展WAN口工具 相关下载链接:[url=//download.csdn.net/download/a12141214/4092712?utm_source=bbsseo]//download.csdn.net/download/a12141214/4092712?utm_source=bbsseo[/url]
我们是很有底线的