execute_plugin_cmd method

Applies to
TForm2

Declaration
procedure execute_plugin_cmd(hint_: string);

Implementation

procedure TForm2.execute_plugin_cmd(hint_:String);
var cmd1:TIniFile;
begin
cmd1:=TIniFile.Create(form2.root+'System\plugin.inf');
if cmd1.ReadInteger(hint_,'run_level',-1)=1 then
   WinExec(PChar(cmd1.ReadString(hint_,'applet','')),cmd1.ReadInteger(hint_,'show_mode',1))
else
   ShellExecute(GetFocus,'open',PChar(cmd1.ReadString(hint_,'applet','')),
   PChar(cmd1.ReadString(hint_,'params','')),PChar(cmd1.ReadString(hint_,'dir','')),
   cmd1.ReadInteger(hint_,'show_mode',1));
cmd1.free;
End;


HTML generated by Time2HELP
http://www.time2help.com