unit kprocs;
{
   Unit for encapsulate starting new programs

   Author:  Vesa Lappalainen
   Date:    15.8.1997
   Changes:

}

interface

function RunProg(const n,p:string;prio:integer):boolean;

implementation
Uses Windows;

function RunProg(const n,p:string;prio:integer):boolean;
var si : TStartupInfo; pi : TProcessInformation;
begin
  with si do begin
    cb := SizeOf(si);
    lpReserved := NIL;
    lpDesktop := NIL;
    lpTitle := NIL;
    dwFlags := 0;
    cbReserved2 := 0;
    lpReserved2 := NIL;
    wShowWindow := SW_SHOW;
  end;
  Result := CreateProcess(PChar(n),PChar(n+' '+p),NIL,NIL,true,prio,NIL,NIL,
                          si,pi);
end;

end.