当双击c:/window/test.txt 打开了我的程序a.exe , 请问a.exe 如何得到c:/window/test.txt? ( 积分: 80 )

sypoh · 2005-02-21

当双击c:/window/test.txt 打开了我的程序a.exe , 请问a.exe 如何得到c:/window/test.txt?

sypoh · 2005-02-21

当双击c:/window/test.txt 打开了我的程序a.exe , 请问a.exe 如何得到c:/window/test.txt?

reegon · 2005-02-21

先判断这个路径是否存在啊 DirectoryExists(); ShellExecute(Handle,'',应用程序名,'','',SW_SHOWMAXIMIZED)

sypoh · 2005-02-21

谢谢　reegon 不过答非所问

Supermay · 2005-02-21

在注册表中改.txt的键值

张鸿林 · 2005-02-21

资源管理器/工具/文件夹选项/文件类型/更改 其作用如楼上所说 如果使用程序更改,打开注册表或调用相应api函数,自己找

Star5 · 2005-02-21

首先，将你的程序关联到txt文件，作为默认打开的程序（修改注册表实现） 其次，你的程序读取参数所指的文件就行了 示例代码如下： procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin  memo1.Lines.Clear;  if paramcount=0 then //0表示没有参数  begin    memo1.Lines.Add('程序信息:'+paramstr(0));    memo1.Lines.Add('所带参数:没有参数');  end else  begin    //以下是列出所有参数    memo1.Lines.Add('程序信息:'+paramstr(0));    for i:=1 to paramcount do    memo1.Lines.Add('所带参数:'+paramstr(i));  end; end;

WoDing · 2005-02-21

当双击c:/window/test.txt,windows会根据注册表的TXT对应的程序调用，调用的格式和注册表中的有关 如果注册表中TXT对应的是：a.exe '%1' windows 就会调用 a.exe c:/window/test.txt; {资源管理器可能使用的就是Shellexecute这一类的命令} 这个文件名，可以使用下面的东东来获得： ParamCount//参数的个数 ParamStr(0)//就是程序的文件名 ParamStr(1)//第1个参数 ParamStr

//第n个参数 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2500696

Walnut_Tom · 2005-02-21

paramstr(0) 使用用程序名，paramstr(1) 就是c:/window/test.txt

sypoh · 2005-02-21

如果程序已经打来了, 如何去捕捉paramstr(1)?

Star5 · 2005-02-21

限制程序只运行一份，在限制代码中将本次打开的参数发到已打开的程序里去就行了。

WoDing · 2005-02-21

paramstr是DELPHI提供的一个函数,可以直接使用

爱元元的哥哥 · 2005-02-21

让第二份打开的程序去通知已经打开的程序，以前写的例子 const    WM_OPENFILE = WM_USER + 1820;               //打开文件消息 把这个函数加在程序入口处 procedure CheckPrevInstance; var  PrevWindow: HWND;  Atom: TAtom;  strParam

Char; begin  if GlobalFindAtom(PChar('MyGame_IS_RUNNING')) = 0 then  begin    CheckPreInsAtom := GlobalAddAtom(PChar('MyGame_IS_RUNNING'));  end else  begin    PrevWindow := FindWindow('TfrmMain', pChar('MyGame Caption'));    if PrevWindow&gt;0 then begin       SetForeGroundWindow(PrevWindow);       if ParamCount&gt;0 then          strParam:=PChar(ParamStr(1))       else          strParam:=pChar('');       Atom := GlobalAddAtom(strParam);       SendMessage(PrevWindow, WM_OPENFILE, 0, Atom);       GlobalDeleteAtom(Atom);    end else begin       Alert('Error：Please Cancellation the System ！');    end;    Halt;  end; end; public:   procedure OpenParam(var Msg:TMessage); message WM_OPENFILE;        //打开文件 //------------------------------------------------------------------------------ //打开参数传递的文件 //------------------------------------------------------------------------------ procedure TfrmMain.OpenParam(var Msg: TMessage); var  S: array[0..MAX_PATH] of Char; begin   GlobalGetAtomName(Msg.LParam, S, 255);   if OpenFile(StrPas(S)) then   begin     PlayMyFile;   end;   Self.WindowState:=wsNormal;   Self.Show;   Self.Enabled:=True; end;

fei_l · 2005-02-21

WoDing说得够明白了

kingdeezj · 2005-02-21

paramstr(1)

sypoh · 2005-02-22

多人接受答案了。

当双击c:/window/test.txt 打开了我的程序a.exe , 请问a.exe 如何得到c:/window/test.txt? ( 积分: 80 )

sypoh

Unregistered / Unconfirmed

sypoh

Unregistered / Unconfirmed

reegon

Unregistered / Unconfirmed

sypoh

Unregistered / Unconfirmed

Supermay

Unregistered / Unconfirmed

张鸿林

Unregistered / Unconfirmed

Star5

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

Walnut_Tom

Unregistered / Unconfirmed

sypoh

Unregistered / Unconfirmed

Star5

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

fei_l

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

sypoh

Unregistered / Unconfirmed

Similar threads