举个例子,有一个文件A.doc,我现在想做一个程序B.exe,在B.exe运行后,我双击A.doc时,得到A.doc这个文件的文件名及路径,谢谢
解决方案 »
- #define _CRT_SECURE_NO_WARNINGS 如何写成delphi代码??
- 菜鸟级问题(高分赠送)
- 求 dbgrid转excel的通过了的代码!!!我用的delphi7
- 大家帮我优化一下这段代码呀,关于TTreeView的
- 如何调用摄像头的图形和图象呢?
- 看这里,一个超级简单的问题!!!!!!!!!!!!!
- Midas开发的问题,求救!
- 为什么我删不了。急
- 请问谁知道那有热门电子书籍下载?
- how to operate transport layer protocols?
- 老大们,帮我写个加密解密的函数啊,不会白写,大大的给分
- 怎么判断ClassA实现了InterfaceA呢?
FindFirstChangeNotification
FindFirstFile
FindFirstFileEx
FindNextChangeNotification
....2、TShellChangeNotifier组件
该控件在文件打开或者修改文件相关属性,会接收到消息。
环境:Delphi7
http://www.ccrun.com/view.asp?id=425
有监控文件和文件夹的组件
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sStr:string;
begin
if not OpenPictureDialog1.Execute then
Abort;
sStr := OpenPictureDialog1.files[0];//函路径的文件名
if pos('.', sStr) <> 0 then
begin
while pos('A.doc', sStr) <> 0 do
sStr := copy(sStr, pos('A.doc', sStr) + 1, length(sStr) - pos('A.doc', sStr) +1);//文件名
end;//最后不含路径的文件名
showmessage(sstr);
end;
可以使用这个,,,,得到你需要的
再补充一下,在B.exe的窗体创建事件中
paramstr(1)即A.doc的文件名及路径
因为Office文件都有这个设置
觉得监听消息应该可行。
乱说的,没有实践过。