writestring('myext/shell/second_action','','this is our second action');
writestring('myext/shell/second_action/command','',AppPath+'/1.exe/parastr(i) %1');
没反映!
请看帖子id=465930
这才是说到点子上:
myregistry.OpenKey('/txtfile/shell/open/command',true);
myregistry.WriteString('','NotePad.exe %1');
myregistry.Free;
if ParamCount>=2 then
begin
temp:=ParamStr(1);
For iCount:= 2 to ParamCount do
begin
temp:=temp+' '+paramstr(icount);
end;
end
else temp:=Paramstr(1);
winexec(pchar(temp),sw_normal);