W mojej aplikacji GUI uruchamiam aplikację konsolową i potrzebuję obsługi jej okna. Próbowałem z EnumWindows(), zobacz kod poniżej, ale to nie działa. Na liście nie ma mojej aplikacji konsolowej.Jak uzyskać dostęp do okna konsoli uruchomionego z mojej aplikacji GUI?
type
TEnumWindowsData = record
ProcessId: Cardinal;
WinHandle: THandle;
List: TStrings; // For test only
end;
PEnumWindowsData = ^TEnumWindowsData;
function FindWindow(hWnd: THandle; lParam: LPARAM): BOOL; stdcall;
var
ParamData: TEnumWindowsData;
ProcessId: Cardinal;
WinTitle: array[0..200] of Char; // For test only
begin
ParamData := PEnumWindowsData(lParam)^;
GetWindowThreadProcessId(hWnd, ProcessId);
if ProcessId <> ParamData.ProcessId then
Result := True
else begin
ParamData.WinHandle := hWnd;
Result := False;
end;
// For test only
GetWindowText(hWnd, WinTitle, Length(WinTitle) - 1);
ParamData.List.Add(IntToStr(ProcessId) + ' ' + IntToStr(hWnd) + ' ' + WinTitle);
end;
procedure TForm1.Button1Click(Sender: TObject);
function RunApp(const AProgram: string): Cardinal;
var
StartupInfo: TStartupInfo;
ProcessInformation: TProcessInformation;
begin
Result := 0;
...
if CreateProcess(nil, PChar(AProgram), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInformation)
then
Result := ProcessInformation.dwProcessId;
...
end;
var
ParamData: TEnumWindowsData;
begin
ParamData.ProcessId := RunApp('cmd.exe /C D:\TMP\TEST.exe');
ParamData.WinHandle := 0;
ParamData.List := Memo1.Lines;
EnumWindows(@FindWindow, THandle(@ParamData));
FWindowHandle := ParamData.WinHandle;
end;
@ Tlama - Dziękuję, świetnie! Działa to dla mnie z 'Sleep (50)' po 'CreateProcess'. – Branko
Branko, tego nie lubię. Postaram się znaleźć coś bardziej wiarygodnego i zamieścić tutaj wyniki. – TLama
@ TLama - Chciałem zapytać cię, dlaczego usunąłeś dla mnie dobre rozwiązanie ('AttachConsole (PID), GetConsoleWindow, FreeConsole'). Dlaczego martwisz się "Sleep()" przez kilka ms? – Branko