小 小丹尼 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-27 #1 我编了一个类似记事本的小程序. 我想让他成为WINDOWS默认的文本编辑器 我设置好文件关联之后,双击一个文本文件时,我编的程序虽然启动了,但是文 件却没有打开. 怎默办? 请各位大虾指点.
C Croco Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-27 #2 procedure TForm1.FormActivate(Sender: TObject); begin if ParamCount > 0 then do OpenFile(ParamStr(1)); end;
procedure TForm1.FormActivate(Sender: TObject); begin if ParamCount > 0 then do OpenFile(ParamStr(1)); end;
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-27 #4 不需要 ParamCount,ParamStr都是Delphi中的函数， ParamCount得到参数个数，ParamStr得到具体的某个参数的值。 设置好文件关联之后,双击一个文本文件时，系统会运行你的程序，同时将文件名 作为参数，既双击 = run: xxx c:/edit.txt xxx为你的程序
不需要 ParamCount,ParamStr都是Delphi中的函数， ParamCount得到参数个数，ParamStr得到具体的某个参数的值。 设置好文件关联之后,双击一个文本文件时，系统会运行你的程序，同时将文件名 作为参数，既双击 = run: xxx c:/edit.txt xxx为你的程序
C Croco Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-27 #6 补充：对不起，没有考虑空格。 procedure TForm1.FormActivate(Sender: TObject); var FileName: String; begin if ParamCount > 0 then begin FileName := Copy(CmdLine, 2, Length(CmdLine)); FileName := Copy(FileName, Pos('"', FileName) + 2, Length(FileName)); do OpenFile(FileName); end; end;
补充：对不起，没有考虑空格。 procedure TForm1.FormActivate(Sender: TObject); var FileName: String; begin if ParamCount > 0 then begin FileName := Copy(CmdLine, 2, Length(CmdLine)); FileName := Copy(FileName, Pos('"', FileName) + 2, Length(FileName)); do OpenFile(FileName); end; end;
