W wlyft Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-19 #1 如何获得某个文件的打开程式的名字和路径和图标？如doc由c:/office/word.exe打开
Z zdwlp Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-20 #2 lmd的LMDSysFileAssoc可以做到，refresh一下，然后看他的fileassoc属性就有了
C colonel Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-26 #5 这些动作可以在获取进程列表再进一步实现的,<br>在获取某程序进程时可以获得这程序的路径,名字,再通过路径读取程序图标了<br><br>实例嘛我自己机里的也给删了,你可以在网上搜索一下,是可以找到的,你分开搜索就可以了
这些动作可以在获取进程列表再进一步实现的,<br>在获取某程序进程时可以获得这程序的路径,名字,再通过路径读取程序图标了<br><br>实例嘛我自己机里的也给删了,你可以在网上搜索一下,是可以找到的,你分开搜索就可以了
A andy263 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-27 #7 你是指某个文件当前由谁打开 还是某种类型文件被关联到谁打开？
A Angell1124 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-27 #8 对哦。把问题说清楚一点了。有可能理解错误的了。
X xuhao1 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-29 #10 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> FileType:string;<br> Reg:TRegistry;<br>begin<br> FileType:='.doc';<br> Reg:=TRegistry.Create;<br> try<br> Reg.RootKey:=HKEY_CLASSES_ROOT;<br> if Reg.OpenKeyReadOnly('/'+FileType) then<br> if Reg.OpenKeyReadOnly('/' + Reg.ReadString('') + '/shell/Open/command') then<br> ShowMessage(FileType + '类型文件的打开程序为：' + Reg.ReadString(''));<br> Reg.CloseKey;<br> finally<br> Reg.Free;<br> end;<br>end;<br>
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> FileType:string;<br> Reg:TRegistry;<br>begin<br> FileType:='.doc';<br> Reg:=TRegistry.Create;<br> try<br> Reg.RootKey:=HKEY_CLASSES_ROOT;<br> if Reg.OpenKeyReadOnly('/'+FileType) then<br> if Reg.OpenKeyReadOnly('/' + Reg.ReadString('') + '/shell/Open/command') then<br> ShowMessage(FileType + '类型文件的打开程序为：' + Reg.ReadString(''));<br> Reg.CloseKey;<br> finally<br> Reg.Free;<br> end;<br>end;<br>
X xuhao1 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-29 #11 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> FileType:string;<br> Reg:TRegistry;<br>begin<br> FileType:='.doc';<br> Reg:=TRegistry.Create;<br> try<br> Reg.RootKey:=HKEY_CLASSES_ROOT;<br> if Reg.OpenKeyReadOnly('/'+FileType) then<br> if Reg.OpenKeyReadOnly('/' + Reg.ReadString('') + '/DefaultIcon') then<br> ShowMessage(FileType + '类型文件的默认图标为：' + Reg.ReadString(''));<br><br> Reg.CloseKey;<br> finally<br> Reg.Free;<br> end;<br>end;<br>
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> FileType:string;<br> Reg:TRegistry;<br>begin<br> FileType:='.doc';<br> Reg:=TRegistry.Create;<br> try<br> Reg.RootKey:=HKEY_CLASSES_ROOT;<br> if Reg.OpenKeyReadOnly('/'+FileType) then<br> if Reg.OpenKeyReadOnly('/' + Reg.ReadString('') + '/DefaultIcon') then<br> ShowMessage(FileType + '类型文件的默认图标为：' + Reg.ReadString(''));<br><br> Reg.CloseKey;<br> finally<br> Reg.Free;<br> end;<br>end;<br>
