[JackRu]

А можно чуть по подробней, просто уже не 1 день с этим ковыряюсь, и уже как только не пробовал ...

Код:

procedure TFrame11.sButton3Click(Sender: TObject);

var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, sizeof(StartupInfo), 0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;

  FillChar(ProcessInfo, sizeof(ProcessInfo), 0);

  CreateProcess(nil,
                PChar('C:\Program Files\Java\jre6\bin\java.exe' + 'java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"'),
                nil,
                nil,
                False,
                CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                nil,
                '%APPDATA%\logsfile\',
                StartupInfo,
                ProcessInfo);
end;

Посоветовали вот так сделать, но вообще никакой реакции программа не подаёт ...