Как получить дескриптор окна Windows, содержащего DOS программу

Советы » DOS и Консоль » Как получить дескриптор окна 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) then

begin

       ClassName := 'ConsoleWindowClass';       Title := 'Command Prompt';     end

else

begin

       ClassName := 'tty';       Title := 'MS-DOS Prompt';     end

;     ShowMessage(IntToStr(FindWindow(PChar(ClassName), PChar(Title))));  end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com