Показать сообщение отдельно
  #2  
Старый 02.04.2013, 08:22
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от speles
Такое поведение только когда запускаю приложение из Delphi. Когда запускаю отдельно - все ОК. >_<
неправда:
Код:
var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  StartupInfo.cb:=SizeOf(TStartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=SW_SHOWNORMAL;
  if CreateProcess(nil, 'c:\WINDOWS\system32\calc.exe', nil, nil, False, 0,
    nil, nil, StartupInfo, ProcessInformation) then
  begin
    CloseHandle(ProcessInformation.hThread);
    CloseHandle(ProcessInformation.hProcess);
  end;
end;
все прекрасно работает и из под Delphi.

и зачем флаг STARTF_USESTDHANDLES ???
__________________
Пишу программы за еду.
__________________
Ответить с цитированием