WinExec

[4ipolino]

процедура запуска приложения

procedure RunApp(Path: string);
var
  p1, p2: array[0..100] of Char;
  w1: cardinal;
begin
  ChDir(ExtractFilePath(Path));
  StrPcopy(p1, ExtractFilePath(Path));
  if GetModuleHandle(p1) = 0 then
  begin
    StrPcopy(p2, Path);
    w1 := WinExec(p2, SW_Restore);
  end;
end;

после перехода на дельфи 2010 орет на WinExec (функция устарела как я понял)
если я не ошибаюсь нужно использовать ShellExecute но у меня чет не получилось

[Рэйзор]

uses ShellApi;
 //....
ShellExecute(Handle, 'open', PChar(OLOLOFileName), nil, nil, SW_SHOW);

[simsonbart1]

Нафига весь этот мусор нужен можно написать короче

procedure RunApp(Path: string);
begin
WinExec(Path, SW_Restore);
end;