程序关联
文件与VB程序关联后——双击和打开
Windows95/98下，在资源管理器或Explorer中双击某个文件，只要此文件与某个程序建立了关联，则该程序将被启动并将文件打开。
那么，用VB编写的程序能否实现此功能呢？
这就要用上VB自带的Command函数了。Command函数在VB的联机帮助中以及在相应的语言教程里都谈论得极其玄乎，让人难以理解，无从参考。笔者通过与网友共同探讨和尝试，发现它可以以字符串的形式获得包含路径在内的完整的FileName，这无疑是很有用的。以下为笔者的音乐播放器的代码片段，就是这行代码使得双击和打开得以实现：
Private Sub Form_Load()
Dim dF As String
dF = Command()
With MMControl1
.FileName = dF
.Command = "Open"
.Command = "Play"
End With
End Sub
Dialogs,
Registry,shlobj, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure reg;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.reg;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.sos', true);
reg.WriteString('', 'myzip');
reg.CloseKey;
reg.OpenKey('myzipshellopencommand', true);
//用于打开.sos文件的可执行程序
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('myzipDefaultIcon',true);
//取当前可执行程序的图标为.sos文件的图标
reg.WriteString('',''+application.ExeName+',0');
reg.Free;
//立即刷新
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
reg;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
sFile: string;
begin
if ParamCount > 0 then
begin
(* 取得参数内容 *)
sFile := ParamStr(1);
if LowerCase(ExtractFileExt(sFile))='.sos' then memo1.Lines.LoadFromFile(sfile);
end;
end;
end.
在“开始→运行”中键入“regedit”，打开“注册表编辑器”，展开分支“HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts.mp3OpenWithList”。接着在右侧的窗口中将无用的程序名称对应的键值项删除即可，比如RealOne Player的主程序(RealPlay.exe)对应的键值项(如a、b、c)。另外，还要修改“MRUList”键值项(字符串值)的值，比如原来是“abcd”，现在删除了“d”键值项，那么就得改为“abc”。