{
Put scripting commands to StdIn at startup time...
Config contains StartupScript variable with section name,
where startup device commands are present, starting from @ char.
Example:
[DeviceList]
&Demo = device software program
[&Demo]
...
StartupScript=[&Demo.StartupScript]
...
[]
[&Demo.StartupScript]
@Command 1
@Command 2
...
[]
}
procedure RunStartupScript;
var s:String; i,t:Integer; b:Boolean;
begin
 s:=Trim(ReadIni('StartupScript'));
 if Pos('[',s)=1 then
 if Pos(']',s)=Length(s) then begin
  t:=ReadIniSection(text_New,28,'',s);
  for i:=0 to text_NumLn(t)-1 do begin
   s:=Trim(text_GetLn(t,i));
   if Pos('@',s)=1 then b:=DevMsg(DevName+' '+s+CRLF)>0;
   if Pos('&',s)=1 then b:=DevMsg(s+CRLF)>0;
  end;
  b:=text_Free(t);
 end;
 s:='';
end;
