如何知道文件名(100分)

  • 主题发起人 主题发起人 daemonking
  • 开始时间 开始时间
D

daemonking

Unregistered / Unconfirmed
GUEST, unregistred user!
我安装了foxmail3.1,在一个文件A上进行下面操作:
右键—>发送到—>左键点击foxmail,然后就会启动foxmail程序,
同时A也会出现在foxmail的附件列表中,请问foxmail是如何得到A的名字以及信息的???
 
Shell接口?
 
传递参数


unit Unit1;

interface

uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
; StdCtrls;

type
; TForm1 = class(TForm)
; ; Memo1: TMemo;
; ; procedure FormCreate(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;

var
; Form1: TForm1;
; f1:string;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
f1:=ParamStr(1);
if f1<>'' then
memo1.Lines.LoadFromFile(f1);
end;

end.
如果这个程序的名字是aa.exe
你这样在命令行状态下
aa filename.txt
那么程序运行后memo里就显示的是filename.txt的内容了
 
to fanren945:我不使用命令行,如何能够知道A的filename???
 
这是shell的功能扩展,看看《delphi5高级编程》一书上面有例子
 
var
filename:string;
filename:=extractfilename(文件名及路径);
 
to D影子D:问题的关键在于,我怎么能够知道文件名和路径,
; ; ; ; ; 我的问题就是要得到A的全路径!!!
 
to chenliang_fly:我没有你说的那本书,能够把程序发送到我的信箱里么??多
 
我知道了,我mail告诉你
 
接受答案了.
 

Similar threads

回复
0
查看
819
不得闲
回复
0
查看
1K
不得闲
S
回复
0
查看
832
SUNSTONE的Delphi笔记
S
S
回复
0
查看
791
SUNSTONE的Delphi笔记
S
后退
顶部