CreateProcess

← →
Andrew_K (2002-05-31 10:20) [0]

Доброго времени суток, уважаемые!
У меня возник вот такой вопрос:
Почему не появляется окно, когда я создаю процесс с флагом DEBUG_PROCESS?
Вот кусок "проблемного" кода:

procedure TForm1.Button1Click(Sender: TObject);
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,"D:\project2.exe");
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOW;
CreateProcess(nil, zAppName, nil, nil, false, DEBUG_PROCESS, nil, nil, StartupInfo, ProcessInfo);
end;

Если вместо DEBUG_PROCESS вставить CREATE_NEW_CONSOLE, то все ОК.

Просто я хочу проверить одну ф-цию (она устанавливает узнает является
ли наш процесс отлаживаемым), при проверке в Дельфийском отладчике всё ОК,
хочется узнать как она будет реагировать на "самопальный" отладчик.
SoftIce`a под рукой нет, вот и приходиться извращаться:)
Заранее благодарен за участие!

← →
Cobalt (2002-05-31 17:52) [1]

Попробуйте CREATE_NEW_CONSOLE or DEBUG_PROCESS

CreateProcess Найти похожие ветки