说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB获取程序工作路径的方法

HTML文档下载 WORD文档下载 PDF文档下载
VB获取程序工作路径的方法
(作者:段炼)

Visual Basic(VB)
  VB中通过App关键字来实现的对程序全局对象的访问,App对象的Path属性直接指出了应用程序的工作路径。

  例如,下面的代码实现在程序运行中PictureBox控件动态加载位于工作目录的image子目录下的图像文件picture1.gif :

FilePosition = App.Path & "\image\picture1.gif"

Picture1.Picture = LoadPicture(FilePosition)



Visual C++ (VC)
  MFC似乎并没有直接提供取得应用程序工作路径的方法,但在VC中可以简单使用C语言中的getcwd函数(在中说明)来取工作路径。

  例如:

char buffer[_MAX_PATH];

if(_getcwd(buffer,_MAX_PATH)==NULL)

cout<< "_getcwd error"<<"\n";

else

cout<
  输出为工作路径:

     E:\PathInfo\Debug



Delphi
  在Delphi中,调用函数ParamStr(0)可以取得可执行文件的完整路径信息(工作路径加可执行文件名),再调用ExtractFileDir或ExtractFilePath函数即可提取出应用程序工作目录或路径。例如:

   label1.caption:=ExtractFileDir(ParamStr(0));

   label2.caption:=ExtractFilePath(ParamStr(0));

  其显示结果分别为:

   E:\PathInfo

   E:\PathInfo\



C++Builder(BCB)
  C++Builder完全兼容ANSI C、C++,因而同VC一样,我们也可以调用C语言中的getcwd函数来取工作路径。此外,BCB语言还提供了如ParamStr()、ExtractFilePath等与Delphi一致的函数,我们只需将Delphi中的"."改为BCB中的"->"即可同样使用。例如,在Label1中显示工作路径:

  Label1->Caption=ExtractFilePath(ParamStr(0));

  需注意的只是BCB区别大小写而Delphi不区别大小写。



Java (JDK、VJ++、JBuilder等)
  在跨平台语言Java中,有关Application的全局信息放置在一个Properties(Hashtable类的一个子类)对象中,键"user.dir"所对应的值即工作路径。通过System.getProperty("user.dir")即可取得Application工作路径字符串。

  例如:

  public class Class1

  {

  public static void main (String[] args)

  {

  System.out.println(System.getProperty("user.dir") );

  }

  }

  控制台输出:

   E:\PathInfo
WEB数据库的开发-Delphi资料 Win32 行程通讯的观念与技术-Delphi资料 编程发送E-mail-Delphi资料 调用那个函数得到本机的IP-Delphi资料 动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何在程序中动态取得Win98的网络邻居中的工作组及计算机名-Delphi资料 动态设置DNS地址-Delphi资料 读取IE收藏夹内网址的信息-Delphi资料 改网络计算机名-Delphi资料 关于WEB应用程序的打印组件开发初探-Delphi资料 基于TELNET协议的DELPHI程序与LINUX主机通信的实现 监视POP3信箱-Delphi资料 开发WEBMAIL程序-Delphi资料 开发响应用户输入的数据库web Server-Delphi资料 利用Delphi编程发送E-mail 利用Delphi编写Socket通信程序 利用Delphi开发网络数据库应用 在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专-Delphi资料 链接的视觉效果-Delphi资料 如何从域名名得到IP?-Delphi资料 如何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何获取CapsLock 、 Insert 等键的状态?-Delphi资料 如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名?-Delphi资料 提高客户机/服务器应用系统性能的一些方法-Delphi资料 网络和通讯编程-Delphi资料 WebBrowser流程讲解及如何判断下载网页成功-Delphi资料 用Delphi 3.0实现运行于浏览器内的客户 用Delphi编写ASP的ActiveX 用Delphi编写CGI程序(五) 用Delphi编写CGI程序返回图象 谁有英文版的FLASH和DREAMWEAVER!! 那里有C#的电子书下载呀 新手提问,关于SQL数据库的连接代码 在unix下的ftp问题 一个简单的问题 jbuilder中的Tools->Configure Servers的对话框中没有JBoss 3.X,如何是好? SqlServer数据库的备份问题 在线求助ReportBulider如何做这样的报表? 怎样得到用户表名? 大家好帮忙啊 ——————在线等待!! 直接访问操作符"." 和间接访问操作符"->" 有什么区别 数据库优化的问题 一个文本框,有一个验证控件(判断是否为数字),还有一个textchanged事件,这是一个矛盾的东西,让我头疼~~ interface中的uses语句和implemetation中的uses语句有何不同? XP个人单机服务器配置后访问需要帐号密码,怎么办 干得不开心,想转行,大家给点建议 如何实现“让用户自定义快捷键?” 怎么样把.aspx制作成安装的文件?? 我写了如下一个方法,但是用起来有问题,帮我看看!! 俺倒~~~~~~~~`怎么能上三星啊? 向高手求救:如何得到一张表的行数和列数!! 散分!代码解读! 使用sybase时的提示The query and the views in it exceed the limit of 16 tables. 有办法解决吗? 如何将数组的内容添加到一个文件的末尾 怎样才能打开一个489K的.DAT文件? 列表框(ClistCtrl)如何得到选中项的文本内容和选中项的索引值 为什么我登录到Oracle Management Server时老出错。(oracle 9i) 这样的sql语句怎么写呢?急啊!(还可以加分) pb中截取字符串的问题:急,在线等待 急,在VC++.Net中怎样将字符串System::String类型转换为LPSTR类型? 用PQ把NTFS转换成FAT32时,文件名全变名问号了,怎么办?!!!!!!!!!! 又是回车符的问题,急!!!!! 关于工具栏的问题 控件的DragMode为dmAutomatic,不能用鼠标点? 奇怪的电脑时钟 系统不支持本地交互式登陆 ListView的小问题 有责任感的中国人(水均益:我来谈京沪高速铁路 ),顶者有分!200分 如何给MDI窗口设置背景图? 如何使数据按我定义的顺序显示出来 请教,我有一个toolbar,上面有四个toolbutton,问题! 关于按钮的小问题 追加记录思路 TemplatePower控件谁用过,Delphi下做网页报告的,在Builder上装不上 如何在MIDP中保存小数? 关于窗口设计 有责任感的中国人(水均益:我来谈京沪高速铁路 ),顶者有分!200分! 这里没有人关心Yokun吗?还是大家都在闭门造车? XP服务器安装后访问需密码,,该如何设置? 关于dc,hdc,getdc和pchar()的问题 急~~~在线等 用天文望远镜能看到月食吗 木字旁边是尧读什么? // TODO Auto-generated method stub 有什么意义?为什么在右边栏生成一个蓝色的小块. TODO AUto-generated method stub是什么意思(翻译成中文) "拿热脸贴你的屁股凉了"什么意思 作为一个爱国者,你认为真正的爱国者应该具备哪些基本素质、态度和能力?可以举一些例子吗?正面反面的都行. 某校七年级二班的同学在学习 商鞅变法 这课中,表演了一出历史短剧.下列各项,错A 甲同学扮演秦孝公商鞅主持变法B 亿同学边缘生产粮食布锦多的人获得奖励C 丙同学扮演获得军功德大奖接 一个60公斤的人在一个电梯中间点站着,电梯匀速上升或下降 四个角在过程中受力分别为多少 电梯1.5m/s 【急】【有分】把你遇到的困难和解决困难的过程写成一篇小作文,300字左右把你遇到的困难和解决困难的过程写成一篇小作文,300字左右,侧重心理描写.我们的这个题目是在语文作业上的.我 翻译:First,setup“Network Topology configuration”Start with “Interface” fullinstaller.可以删除吗可以删是吧 美元对欧元汇率25日继续下跌纽约股市标普指数25日再创新高独联体在明斯克举行峰会日本福岛外海强震上修为7.1级 东京俄罗斯加大乌克兰施压力度欲让其放弃北印总理对美监控很淡定土耳其加入欧盟谈判下月重启美国缘何窃听亲密盟友美监听全球30余国首脑纽约股市标普指数25日再创新高纽约金价25日继续上行辰欣药业拟上沪市募资12.9亿第三届尼山论坛今日开讲财大今年招300名济南走读生俄防长下令参加俄乌边境演习俄军返回常马航发声明否认抛弃MH370航班机组中国人被惦记102分!尤文创纪录“井喷”已无望回暖或可期对作品效果没有预期国泰君安现金管家:收市后股民闲钱也能余生·重生超级护花医师暧昧全才贴身男秘书驱蛊人修真笔记簿最强弃夫魔座血荡乾坤半步天道修真教师瑶华典郑成功公园旅游灵山圣墓旅游释雅山公园旅游剑门十八瀑旅游清凉峰旅游秀山公园旅游通海旅游五彩湾旅游马祖旅游星湖旅游七星岩牌坊广场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘