zch12311
zch12311

Application.ExeName

Application.ExeName获取当前执行程序的名字，如当前程序的名字为Yt.exe，若Yt.exe的绝对路径为F:\project\test\Yt.exe

ExtractFileDir(Application.ExeName)             F:\project\test  
ExtractFileDrive(Application.ExeName)          F:   //获取根目录Drive
ExtractFileExt(Application.ExeName)            .exe
ExtractFileName(Application.ExeName)           Yt.exe
ExtractFilePath (Application.ExeName)          F:\project\test\     //注意和Dir的区别，仅仅是差一个‘\’

你可能感兴趣的:(Application.ExeName)

  • DELPHI DEV 汉化 qq_18932003 delphicomponent
    //把以下文件复制到记事本中,并保存为DevChs.ini放在exe的目录下//有这个cxLocalizer控件//主窗体创建的时候if(fileexists(ExtractFilePath(Application.ExeName)+'DevChs.ini')=true)thenbegincxLocalizer1.FileName:=ExtractFilePath(Application.ExeN
  • delphi 还原窗口 weixin_30443747
    1.格局还原procedureTFrmStyleProp.btnNewClick(Sender:TObject);//声明variniFile:TIniFile;idx:integer;ctrl:TControl;begin//格局还原iniFile:=TIniFile.Create(ChangeFileExt(Application.ExeName,'-posi.ini'));tryforidx
  • delphi 播放mp3 aldsot0997
    mp1:TMediaPlayer;mp1.FileName:=ExtractFilePath(Application.Exename)+'凉凉.mp3';mp1.Open;mp1.Play;可参考http://www.cnblogs.com/pchmonster/archive/2012/07/12/2588846.html转载于:https://www.cnblogs.com/yangxumin
  • Application.ExeName zch12311
    Application.ExeName获取当前执行程序的名字，如当前程序的名字为Yt.exe，若Yt.exe的绝对路径为F:\project\test\Yt.exeExtractFileDir(Application.ExeName)F:\project\testExtractFileDrive(Application.ExeName)F://获取根目录DriveExtractFileExt(Ap
  • 获取程序执行的命令行参数 YanJinrong Delphi命令行参数
    在主窗体的OnCreate事件中，可以获取程序执行时的命令行参数：ParamCount：传入的参数个数ParamStr(0)：执行程序的文件名（全路径，等同Application.ExeName）ParamStr(n)：执行程序时传入的第n个参数，从下标1开始，到ParamCount结束例如：程序命令行："D:\Test\Project1.exe"-abc-123procedureTForm1.F
  • BJ cg2680139
    列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt');ListBox1.Items.Add(Edit1.Text);//添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'aaa.txt');删除项目L
  • Delphi向可执行文件EXE尾部写数据然后读取 aroc_lo DELPHI编程其它编程技术
    读取数据调用代码：procedureTForm1.FormCreate(Sender:TObject);vars:TExeStream;a:Char;k:Byte;begins:=TExeStream.Create(Application.ExeName,True);repeatk:=s.Read(a,1);ifk'.EXE'thenSaveD.FileName:=SaveD.FileName+'
  • 数据库相对路径写法，及使用 singular2611 delphi数据库delphi
    在使用数据库时，因为相对路径的原因，每次运行软件时数据库都是刚刚连接上，所以数据库中的表和控件中的table,或者query还未激活，这时需要动态打开这些表。如下conWake.Database:=ExtractFilePath(Application.ExeName)+'wake.db3';conWake.Connect;Self.tb_Users.Open;Self.tb_rooms.Op
  • 用delphi比较两张图片的相似度 weixin_34218579
    procedureTFrm_test.initList;varidx,i,k,x,y,l:integer;p,fn:string;bmp:TBitmap;BColor,NowColor:TColor;beginp:=ExtractFilePath(Application.ExeName);bmp:=TBitmap.Create;fori:=0to9dobeginfn:=p+'\CodeBmp\'+
  • firemonkey获取当前文件所在路径的方法 咏南 delphi
    在之前，我们知道有三种方法：ExtractFilePath(ParamStr(0))ExtractFilePath(Application.ExeName)GetCurrentDir+'\' 在firemonkey中，Windows模式下第一种、第三种还有效：ExtractFilePath(ParamStr(0))GetCurrentDir+'\' iOS模式下，是用：GetHomePath来获得
  • delphi 操作文件 鹅倌 DelphitextFile
    var F:Text; //TextFile和Text是一样的----------------------------------   filename:=ExtractFilePath(Application.ExeName)+'院感病历导入记录.txt';   ifFileExists(filename)then   begin     AssignFile(F,FileName);     
  • 获得程序完整路径 zory
    在SysUtils单元中有两个类似的函数，两个函数有以下的区别:ExtractFilePath传回值的最後一个字元是反斜杠“\”。ExtractFileDir(Application.Exename);        //返回值为C:\1ExtractFilePath(Application.Exename);       //返回值为C:\1\相同点：如果执行文件在根目录下(如：C:\1.exe
  • delphi 怎么获取工程版本号 向北方
    functionGetApplicationVersion:String;//Added取得程序版本号 var FileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO; begin Result:='0.0.0.0'; FileName:=Application.ExeName;
  • delphi dev 汉化 Delphi
    1 //把以下文件复制到记事本中,并保存为DevChs.ini放在exe的目录下 2 //有这个cxLocalizer控件 3 //主窗体创建的时候 4 if (fileexists(ExtractFilePath(Application.ExeName) + 'DevChs.ini') = true) 5 then 6 begin
  • Delphi:界面美化,用网页做界面 Delphi
    Delphi:界面美化,用网页做界面 用TWebBrowser控件 设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中 1 2 3 4 5 6 var str:string; begin str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test
  • DBGRIDEH格式保存/恢复 grid
    procedure TFrmColSelect.SaveGridLayOut;var  Ini: TIniFile;begin  if CheckBox1.Checked then    Grid.SaveGridLayoutIni(ExtractFilePath(Application.ExeName) + '/Grid.ini', &
  • delphi 的可执行文件（EXE）可以这样更新后重启 Delphi
    var StrExePath,strEXE:string; begin StrExePath:=ExtractFilePath(Application.ExeName); strEXE:='Project1.exe'; showmessage('down is over') ; close; if RenameFile(StrExePath+StrExe,'123.exe')
  • GetFileSize() 得到文件大小 File
      {得到文件的大小 KB} //调用 返回值:=GetFileSize(application.ExeName); function GetFileSize(const FileName: string): string; var   SR: TSearchRec; begin  
  • 保存/恢复cxGrid布局 grid
    //恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini'; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tv
  • 文件操作 文件操作
    1.获取文件的绝对路径.. ExtractFilePath(Application.ExeName)+文件名; 2.打开exe文件 ShellExecute(0,   nil,   文件的绝对路径+文件名,   nil,   nil,   SW_NORMAL); HINSTANCE   ShellExecute( &n
  • 获取程序所在目录 目录
    procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMess
  • 关联文件类型 文件
    uses System.Win.Registry,Winapi.ShlObj; procedure TForm1.Button3Click(Sender: TObject); begin RegisterFileType('ftw',Application.ExeName) ; end; procedure RegisterFileType(ExtName:String; A
  • Delphi- ini文件的读写操作 Delphi
    一、读INI文件示例 procedure TForm1.FormCreate(Sender: TObject); Var MyIni :Tinifile; glAppPath :string; begin glAppPath := ExtractFilePath(Application.ExeName);//获取当前运行程序的路径 MyIni := Tinifi
  • Delphi 复习代码 Delphi
    1、取得可文件路径  Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml'） 2、DisableControls EnableControls ClientDataS
  • EDIT Ini写Ini配置 ini
    EDIT Ini写Ini配置   uses IniFiles; {$R *.dfm}   function IniFileName:string; begin    Result:=ExtractFilePath(Application.ExeName)+ 'Settings.ini'; end
  • DELPHI学习笔记1 Delphi
    listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt'); ListBox1.Items.Add(Edit1.Text); //添加了一个项目 ListBox1.Items.SaveToFile(ExtractFilePath(Application.Ex
  • 文件路径相关的字符串操作 涂孟超
    uses HTTPApp,Masks; procedureTForm1.Button1Click(Sender:TObject); var ss,s:string; begin //先提取一个文件名的字符串 ss:=Application.ExeName; ShowMessage(ss);//C:\DocumentsandSettings\wy\MyDocuments\RADS
  • 获取程序所在目录 涂孟超
    procedureTForm1.Button1Click(Sender:TObject); begin ShowMessage(ExtractFilePath(ParamStr(0)));//获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName));//获取程序所在目录 ShowMessage(GetCurrentDir+'\')
  • 获取程序自身大小的函数 涂孟超
    functionGetExeSize:Int64; var SearchRec:TSearchRec; begin Result:=-1; ifFindFirst(Application.ExeName,faAnyFile,SearchRec)=0then Result:=SearchRec.Size; end;
  • WinAPI: GetModuleHandle - 获取一个模块(exe 或 dll)的句柄 涂孟超
    定义:GetModuleHandle( lpModuleName:PChar{模块名;只能是映射到当前进程的模块} ):HMODULE;{返回模块句柄;0表示失败} 举例://获取当前模块的句柄 var s:string; h:Cardinal; begin {先取得模块名} s:=Application.ExeName; s:=ExtractFileNam
  • 微信开发者验证接口开发 362217990 微信 开发者 token 验证
    微信开发者接口验证。 Token，自己随便定义，与微信填写一致就可以了。 根据微信接入指南描述 http://mp.weixin.qq.com/wiki/17/2d4265491f12608cd170a95559800f2d.html 第一步：填写服务器配置 第二步：验证服务器地址的有效性 第三步：依据接口文档实现业务逻辑 这里主要讲第二步验证服务器有效性。 建一个
  • 一个小编程题-类似约瑟夫环问题 BrokenDreams 编程
            今天群友出了一题：         一个数列,把第一个元素删除,然后把第二个元素放到数列的最后,依次操作下去,直到把数列中所有的数都删除,要求依次打印出这个过程中删除的数。      &
  • linux复习笔记之bash shell (5) 关于减号-的作用 eksliang linux关于减号“-”的含义linux关于减号“-”的用途linux关于“-”的含义linux关于减号的含义
        转载请出自出处： http://eksliang.iteye.com/blog/2105677        管道命令在bash的连续处理程序中是相当重要的，尤其在使用到前一个命令的studout（标准输出）作为这次的stdin（标准输入）时，就显得太重要了，某些命令需要用到文件名，例如上篇文档的的切割命令（split）、还有
  • Unix(3) 18289753290 unix ksh
    1)若该变量需要在其他子进程执行，则可用"$变量名称"或${变量}累加内容 什么是子进程？在我目前这个shell情况下，去打开一个新的shell，新的那个shell就是子进程。一般状态下，父进程的自定义变量是无法在子进程内使用的，但通过export将变量变成环境变量后就能够在子进程里面应用了。 2)条件判断： &&代表and  ||代表or&nbs
  • 关于ListView中性能优化中图片加载问题 酷的飞上天空 ListView
    ListView的性能优化网上很多信息，但是涉及到异步加载图片问题就会出现问题。 具体参看上篇文章http://314858770.iteye.com/admin/blogs/1217594   如果每次都重新inflate一个新的View出来肯定会造成性能损失严重，可能会出现listview滚动是很卡的情况，还会出现内存溢出。 现在想出一个方法就是每次都添加一个标识，然后设置图
  • 德国总理默多克：给国人的一堂“震撼教育”课 永夜-极光 教育
    http://bbs.voc.com.cn/topic-2443617-1-1.html德国总理默多克：给国人的一堂“震撼教育”课　 安吉拉—默克尔，一位经历过社会主义的东德人，她利用自己的博客，发表一番来华前的谈话，该说的话，都在上面说了，全世界想看想传播——去看看默克尔总理的博客吧！ 　　德国总理默克尔以她的低调、朴素、谦和、平易近人等品格给国人留下了深刻印象。她以实际行动为中国人上了一堂
  • 关于Java继承的一个小问题。。。 随便小屋 java
    今天看Java 编程思想的时候遇见一个问题，运行的结果和自己想想的完全不一样。先把代码贴出来！ //CanFight接口 interface Canfight { void fight(); } //ActionCharacter类 class ActionCharacter { public void fight() { System.out.pr
  • 23种基本的设计模式 aijuans 设计模式
    Abstract Factory：提供一个创建一系列相关或相互依赖对象的接口，而无需指定它们具体的类。 　　Adapter：将一个类的接口转换成客户希望的另外一个接口。A d a p t e r模式使得原本由于接口不兼容而不能一起工作的那些类可以一起工作。 　　Bridge：将抽象部分与它的实现部分分离，使它们都可以独立地变化。 　　Builder：将一个复杂对象的构建与它的表示分离，使得同
  • 《周鸿祎自述：我的互联网方法论》读书笔记 aoyouzi 读书笔记
    从用户的角度来看,能解决问题的产品才是好产品,能方便/快速地解决问题的产品,就是一流产品.   商业模式不是赚钱模式 一款产品免费获得海量用户后,它的边际成本趋于0,然后再通过广告或者增值服务的方式赚钱,实际上就是创造了新的价值链.   商业模式的基础是用户,木有用户,任何商业模式都是浮云.商业模式的核心是产品,本质是通过产品为用户创造价值. 商业模式还包括寻找需求
  • JavaScript动态改变样式访问技术 百合不是茶 JavaScriptstyle属性ClassName属性
      一:style属性 格式:  HTML元素.style.样式属性="值";   创建菜单:在html标签中创建 或者 在head标签中用数组创建   <html> <head> <title>style改变样式</title> </head> &l
  • jQuery的deferred对象详解 bijian1013 jquerydeferred对象
            jQuery的开发速度很快，几乎每半年一个大版本，每两个月一个小版本。         每个版本都会引入一些新功能，从jQuery 1.5.0版本开始引入的一个新功能----deferred对象。    &nb
  • 淘宝开放平台TOP Bill_chen C++c物流C#
    淘宝网开放平台首页：http://open.taobao.com/ 淘宝开放平台是淘宝TOP团队的产品，TOP即TaoBao Open Platform， 是淘宝合作伙伴开发、发布、交易其服务的平台。 支撑TOP的三条主线为：    1.开放数据和业务流程     * 以API数据形式开放商品、交易、物流等业务；  &
  • 【大型网站架构一】大型网站架构概述 bit1129 网站架构
    大型互联网特点 面对海量用户、海量数据 大型互联网架构的关键指标 高并发 高性能 高可用 高可扩展性 线性伸缩性 安全性 大型互联网技术要点   前端优化 CDN缓存 反向代理 KV缓存 消息系统 分布式存储 NoSQL数据库 搜索 监控 安全 想到的问题： 1.对于订单系统这种事务型系统，如
  • eclipse插件hibernate tools安装 白糖_ Hibernate
    eclipse helios(3.6)版 1.启动eclipse 2.选择 Help > Install New Software...> 3.添加如下地址： http://download.jboss.org/jbosstools/updates/stable/helios/ 4.选择性安装：hibernate tools在All Jboss tool
  • Jquery easyui Form表单提交注意事项 bozch jquery easyui
    jquery easyui对表单的提交进行了封装，提交的方式采用的是ajax的方式，在开发的时候应该注意的事项如下：         1、在定义form标签的时候，要将method属性设置成post或者get，特别是进行大字段的文本信息提交的时候，要将method设置成post方式提交，否则页面会抛出跨域访问等异常。所以这个要
  • Trie tree(字典树)的Java实现及其应用-统计以某字符串为前缀的单词的数量 bylijinnan java实现
    import java.util.LinkedList; public class CaseInsensitiveTrie { /** 字典树的Java实现。实现了插入、查询以及深度优先遍历。 Trie tree's java implementation.(Insert,Search,DFS) Problem Description Igna
  • html css 鼠标形状样式汇总 chenbowen00 htmlcss
    css鼠标手型cursor中hand与pointer  Example：CSS鼠标手型效果 <a href="#" style="cursor:hand">CSS鼠标手型效果</a><br/>  Example：CSS鼠标手型效果 <a href="#" style=&qu
  • [IT与投资]IT投资的几个原则 comsci it
          无论是想在电商,软件,硬件还是互联网领域投资,都需要大量资金,虽然各个国家政府在媒体上都给予大家承诺,既要让市场的流动性宽松,又要保持经济的高速增长....但是,事实上,整个市场和社会对于真正的资金投入是非常渴望的,也就是说,表面上看起来,市场很活跃,但是投入的资金并不是很充足的......    
  • oracle with语句详解 daizj oraclewithwith as
    oracle with语句详解 转 在oracle中，select 查询语句，可以使用with,就是一个子查询，oracle 会把子查询的结果放到临时表中，可以反复使用 例子:注意，这是sql语句，不是pl/sql语句， 可以直接放到jdbc执行的 ----------------------------------------------------------------
  • hbase的简单操作 deng520159 数据库hbase
    近期公司用hbase来存储日志,然后再来分析 ,把hbase开发经常要用的命令找了出来. 用ssh登陆安装hbase那台linux后 用hbase shell进行hbase命令控制台! 表的管理 1）查看有哪些表 hbase(main)> list 2）创建表   # 语法：create <table>, {NAME => <family&g
  • C语言scanf继续学习、算术运算符学习和逻辑运算符 dcj3sjt126com c
    /* 2013年3月11日20:37:32 地点：北京潘家园 功能：完成用户格式化输入多个值 目的：学习scanf函数的使用 */ # include <stdio.h> int main(void) { int i, j, k; printf("please input three number:\n"); //提示用
  • 2015越来越好 dcj3sjt126com 歌曲
    越来越好 房子大了电话小了 感觉越来越好 假期多了收入高了 工作越来越好 商品精了价格活了 心情越来越好 天更蓝了水更清了 环境越来越好 活得有奔头人会步步高 想做到你要努力去做到 幸福的笑容天天挂眉梢 越来越好 婆媳和了家庭暖了 生活越来越好 孩子高了懂事多了 学习越来越好 朋友多了心相通了 大家越来越好 道路宽了心气顺了 日子越来越好 活的有精神人就不显
  • java.sql.SQLException: Value '0000-00-00' can not be represented as java.sql.Tim feiteyizu mysql
    数据表中有记录的time字段（属性为timestamp）其值为：“0000-00-00 00:00:00” 程序使用select 语句从中取数据时出现以下异常： java.sql.SQLException:Value '0000-00-00' can not be represented as java.sql.Date   java.sql.SQLException: Valu
  • Ehcache（07）——Ehcache对并发的支持 234390216 并发ehcache锁ReadLockWriteLock
    Ehcache对并发的支持          在高并发的情况下，使用Ehcache缓存时，由于并发的读与写，我们读的数据有可能是错误的，我们写的数据也有可能意外的被覆盖。所幸的是Ehcache为我们提供了针对于缓存元素Key的Read（读）、Write（写）锁。当一个线程获取了某一Key的Read锁之后，其它线程获取针对于同
  • mysql中blob,text字段的合成索引 jackyrong mysql
      在mysql中，原来有一个叫合成索引的，可以提高blob,text字段的效率性能， 但只能用在精确查询，核心是增加一个列，然后可以用md5进行散列，用散列值查找 则速度快 比如： create table abc(id varchar(10),context blog,hash_value varchar(40)); insert into abc(1,rep
  • 逻辑运算与移位运算 latty 位运算逻辑运算
    源码：正数的补码与原码相同例+7 源码：00000111 补码 ：00000111 （用8位二进制表示一个数） 负数的补码： 符号位为1，其余位为该数绝对值的原码按位取反；然后整个数加1。   -7 源码： 10000111 ，其绝对值为00000111  取反加一：11111001 为-7补码 已知一个数的补码，求原码的操作分两种情况：
  • 利用XSD 验证XML文件 newerdragon javaxmlxsd
    XSD文件 （XML Schema 语言也称作 XML Schema 定义（XML Schema Definition，XSD）。 具体使用方法和定义请参看： http://www.w3school.com.cn/schema/index.asp java自jdk1.5以上新增了SchemaFactory类 可以实现对XSD验证的支持，使用起来也很方便。 以下代码可用在J
  • 搭建 CentOS 6 服务器(12) - Samba rensanning centos
    （1）安装 # yum -y install samba Installed: samba.i686 0:3.6.9-169.el6_5 # pdbedit -a rensn new password:123456 retype new password:123456 …… （2）Home文件夹 # mkdir /etc
  • Learn Nodejs 01 toknowme nodejs
    （1）下载nodejs https://nodejs.org/download/ 选择相应的版本进行下载     （2）安装nodejs 安装的方式比较多，请baidu下 我这边下载的是“node-v0.12.7-linux-x64.tar.gz”这个版本 （1）上传服务器 （2）解压 tar -zxvf  node-v0.12.
  • jquery控制自动刷新的代码举例 xp9802 jquery
    1、html内容部分  复制代码代码示例: <div id='log_reload'> <select name="id_s" size="1"> <option value='2'>-2s-</option> <option value='3'>-3s-</option
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他