关于文件关联的问题

Question

各位大侠：
    小弟不才，最近遇到一难题，恳请各位高手指教。    小弟最近用DELPHI编写一软件，软件有自定义文件格式（假设为*.XXX），软件将一些所需的信息保存在该（*.XXX）文件中。当我双击该（*.XXX）文件时，可以通过文件关联的方式打开我写的软件，但是软件运行后并不能自动将该（*.XXX）文件打开。请问如何实现：当双击该（*.XXX）文件时，打开软件后并能自动按照文件打开方法打开该（*.XXX）文件文件？
    
    谢谢各位！请各位不吝赐教！

Answer 1

注册文件类型，设置文件图标 
  {-------------------------------------------------------------------------------
  @过程名:    slpert -> TFm_main.SetAssociatedExec
  @功能描述：
  @参数:      FileExt, Filetype, FileDescription, MIMEType, ExecName: string
  @返回值:    Boolean
-------------------------------------------------------------------------------}Function TFm_main.SetAssociatedExec(FileExt, Filetype, FileDescription,
  MIMEType, ExecName: String): Boolean; {修改成功，返回True，否则False}
Var
  Reg: TRegistry;
  ShFileInfo: TSHFILEINFO;
  IconIndex: integer;
Begin  Result := False; {}
  // ShGetFileInfo(Pchar(ExecName), 0, SHFileInfo,SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_SMALLICON);
   //IconIndex:=SHFileInfo.iIcon;
   //showmessage(inttostr(iconIndex));
  If (FileExt = '') Or (ExecName = '') Then
    Exit; {如果文件类型为空或者没有定义执行程序就退出，FileExt必须带″.″，如.BMP}
  Reg := TRegistry.Create;
  Try
    Reg.RootKey := HKey_Classes_Root;
    If Not Reg.OpenKey(FileExt, True) Then
      Exit; {当不能正确找到或创建FileExt键时退出，这种情况一般是注册表有错误，以下同}
    Reg.WriteString('', FileType);
    If MIMEType <> '' Then
    Begin
      Reg.WriteString('Content Type', MIMEType);
    End;
    Reg.CloseKey;
    If Not Reg.OpenKey(FileType, True) Then
      Exit;
    Reg.WriteString('', FileDescription);
    If Not Reg.OpenKey('shell\open\command', True) Then
      Exit;
    Reg.WriteString('', ExecName + ' "%1"');
    {执行程序一般都有参数，例如WinZip的“winzip32.exe ″％1″”，″％1″参数指ZIP文件的文件名。因此ExecName应视情况加入参数}
    Reg.CloseKey;
    If Not Reg.OpenKey(FileType + '\DefaultIcon', True) Then
      Exit;
    Reg.WriteString('',ExecName+' ,1');   ///ExtractFilePath(
    Reg.CloseKey;
    Result := true;
  Finally
    Reg.Free;
  End;
End;
 
 

Answer 2

用Delphi实现文件关联　　文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 　　Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; 　　Var Reg: TRegistry; FileType: String; 　　begin 　　 Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} 　　 Reg := TRegistry.Create;{创建注册表对象的实例} 　　 try 　　　　Reg.RootKey := HKey—Classes—Root;{准备操作的注册表根键} 　　　　if not Reg.OpenKey(FileExt, False) then Exit;{当传入的文件类型在注册表中不存在时退出，False表示FileExt键值不存在时不自动创建新键} 　　　　FileType := Reg.ReadString(′′);{文件类型的简单描述} 　　　　MIMEType := Reg.ReadString(′Content Type′);{内容MIME类型} 　　　　Reg.CloseKey;{关闭当前关键字} 　　　　if (FileType = ′′) or (not Reg.OpenKey(FileType, False)) then Exit; 　　　　FileDescription := Reg.ReadString(′′);{内容类型的具体描述} 　　　　if not Reg.OpenKey(′shell\open\command′, False) then Exit;{该键值保存由哪个程序、以什么参数打开FileExt类型的文件} 　　　　Result := Reg.ReadString(′′);{读取该键值内容} 　　　　Reg.CloseKey; finally 　　　　Reg.Free;{释放对象实例} 　　 end; end; 　　由上面的例程可知，首先在HKey—Classes—Root寻找与FileExt（文件后缀，带“.”）相匹配的主键，然后从“默认” 键名取得键值，然后以该键值作为主键取得FileExt的具体描述。在其子键shell\open\command中保存了由哪个程序、以什么参数打开FileExt类型的文件的信息，只要修改它的内容，就可以控制由哪个程序打开FileExt类型的文件。 　　既然知道了文件关联在注册表中是如何定义的，只要反其道而行，就可以正确改变文件的关联了。 　　function SetAssociatedExec(FileExt, Filetype, FileDescription,MIMEType,ExecName: String): Boolean;{修改成功，返回True，否则False} 　　var Reg: TRegistry; 　　begin 　　 Result := False;{} 　　 if (FileExt = ′′) or (ExecName = ′′) then Exit;{如果文件类型为空或者没有定义执行程序就退出，FileExt必须带″.″，如.BMP} 　　 Reg := TRegistry.Create; 　　 try 　　Reg.RootKey := HKey—Classes—Root; 　　if not Reg.OpenKey(FileExt, True) then Exit;{当不能正确找到或创建FileExt键时退出，这种情况一般是注册表有错误，以下同} 　　Reg.WriteString(′′, FileType); 　　if MIMEType <> ′′ then Reg.WriteString(′Content Type′, MIMEType); 　　Reg.CloseKey; 　　if not Reg.OpenKey(FileType, True) then Exit; 　　Reg.WriteString(′′, FileDescription); 　　if not Reg.OpenKey(′shell\open\command′, True) then Exit; 　　Reg.WriteString(′′, ExecName);{执行程序一般都有参数，例如WinZip的“winzip32.exe ″％1″”，″％1″参数指ZIP文件的文件名。因此ExecName应视情况加入参数} 　　Reg.CloseKey; 　　 finally Reg.Free; end; 　　end; 

Answer 3

TO zmhero(hihihi):
   谢谢指点。
   现在的情况是，假设我定义了一个函数为：
function OpenMyFile(filename:string):boolean;
函数功能主要是实现如何打开自定义的文件。文件关联的事情应该可以解决，即可以实现双击自定义文件后，就能打开相应软件的功能。问题是：软件如何自动调用OpenMyFil(filename:string)的函数打开这个文件,而不需要再手动打开。就像打开一个*.DOC文件能启动word，同时也要让word自动将文件打开，而不是让word启动后只是一个空白的文档。
    不知道我的描述是否清楚？

Answer 4

类似这样的用法：
用winword.exe打开c:\test\test.doc文件。
    ShellExecute(Handle,'open',PChar('C:\Program Files\Microsoft Office\Office\WINWORD.EXE'),'C:\test\test.doc',nil,SW_SHOW);

Answer 5

如果已经关联，这样：
    ShellExecute(Handle,'open','C:\test\test.doc',nil,nil,SW_SHOW);
相当于双击test.doc这个文件。

Answer 6

我并不是和你讨论如何打开DOC的问题。只是假设。shellExecute只是外部调用。word自己启动后，如何知道我们要打开的是哪一个文件？如何将文件打开？

Answer 7

是作为一个命令行参数传递的。delphi里可以用这样的代码获得。
procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamStr(1)<>'' then
  begin
      ////打开文件ParamStr(1)，这个名字就是你点击的文件
  end
end;

Answer 8

TO gzmhero(hihihi)   非常感谢！在你的指教下，我达到了目的。谢谢你！
   
   如果有幸，希望以后能得到你更多的指导！能否提供一下你的联系方式？如QQ或MAIL?   我只是想认识一个高手！