Как получить дескриптор окна Windows, содержащего DOS программу
В следуещем примере используется функция Windows API FindWindow(). Обратите внимание, что WndClass
консольного окна отличаются для Windows 95 и Window NT и заголовок окна может содержать полный путь под
Windows NT.
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
info : TOSVersionInfo;
ClassName : string;
Title : string;
begin{Проверяем - Win95 или NT.}
info.dwOSVersionInfoSize := sizeof(info);
GetVersionEx(info);
if (info.dwPlatformId = VER_PLATFORM_WIN32_NT) thenbegin
ClassName := "ConsoleWindowClass";
Title := "Command Prompt";
endelsebegin
ClassName := "tty";
Title := "MS-DOS Prompt";
end;
ShowMessage(IntToStr(FindWindow(PChar(ClassName), PChar(Title))));
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как получить дескриптор окна Windows, содержащего DOS программу", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!