//给你一个例子,当你双击文本文件时,会打开你的程序。
uses registry;procedure TForm1.Button1Click(....);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('txtfile\shell\open\command', false);
WriteString('', Application.ExeName + ' %1');
CloseKey;
Free;
end;
end;
uses registry;procedure TForm1.Button1Click(....);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('txtfile\shell\open\command', false);
WriteString('', Application.ExeName + ' %1');
CloseKey;
Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货