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; |
|