Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Вызов других программ

Автор: VRSLazy@mail.ru



uses ...ToolWin, Windows...

procedure Run(App: string);
var
  ErrStr: string;

  PMSI: TStartupInfo;
  PMPI: TProcessInformation;
begin
  try
    CreateProcess(nil, @App[1], nil, nil, False, NORMAL_PRIORITY_CLASS,
      nil, nil, PMSI, PMPI);
  except
    ErrStr := 'Fault run process: ''' + App + '''';
    Application.MessageBox(@ErrStr[1], 'Failure process', MB_OK + MB_ICONERROR);
  end;
end;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011