| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Досовскую программу во вес экран [D6, Win95/98, WinXP]

Galim ©   (2004-12-01 14:43:00) 

Доброе время суток! У меня программа запускаеть досовскую программу. Как сделать чтобы этот запущенный досовская программа был во вес эран?

---

Galim   (2004-12-03 06:05:00) [1]

to Molchanov,
Можете дать пояснение или небольшой примерчик?

---

Galim   (2004-12-03 06:01:00) [2]

да и ждет его завершение.

---

Yanis   (2004-12-03 00:27:00) [3]

To [2]
> У меня программа запускаеть досовскую программу
Программа то чужая.

---

Molchanov   (2004-12-02 16:05:00) [4]

Для WinNT:

function NT_GetConsoleDisplayMode(var lpdwMode: DWORD): Boolean;
type TGetConsoleDisplayMode = function(var lpdwMode: DWORD): BOOL stdcall;
var hKernel: THandle;
   GetConsoleDisplayMode: TGetConsoleDisplayMode;
begin
 Result := False;
 hKernel := GetModuleHandle('kernel32.dll');
 if (hKernel > 0) then
 begin
   @GetConsoleDisplayMode := GetProcAddress(hKernel, 'GetConsoleDisplayMode');
   if Assigned(GetConsoleDisplayMode) then
     Result := GetConsoleDisplayMode(lpdwMode);
 end;
end;

function NT_SetConsoleDisplayMode(hOut: THandle; dwNewMode: DWORD; var lpdwOldMode: DWORD): Boolean;
type TSetConsoleDisplayMode = function(hOut: THandle; dwNewMode: DWORD;
var lpdwOldMode: DWORD): BOOL stdcall;
var hKernel: THandle;
   SetConsoleDisplayMode: TSetConsoleDisplayMode;
begin
 Result := False;
 hKernel := GetModuleHandle('kernel32.dll');
 if (hKernel > 0) then
 begin
   @SetConsoleDisplayMode := GetProcAddress(hKernel, 'SetConsoleDisplayMode');
   if Assigned(SetConsoleDisplayMode) then
     Result := SetConsoleDisplayMode(hOut, dwNewMode, lpdwOldMode)
 end;
end;

function SetConsoleFullScreen(bFullScreen: Boolean): Boolean;
const MAGIC_CONSOLE_TOGGLE = 57359;
var dwOldMode: DWORD;
   dwNewMode: DWORD;
   hOut: THandle;
   hConsole: THandle;
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 begin
   dwNewMode := Ord(bFullScreen);
   NT_GetConsoleDisplayMode(dwOldMode);
   hOut := GetStdHandle(STD_OUTPUT_HANDLE);
   Result := NT_SetConsoleDisplayMode(hOut, dwNewMode, dwOldMode);
 end
end;


---

Ozone   (2004-12-02 13:38:00) [5]

Не пробовал правда, но можно попробовать найти его (окна) Handle и сделать ShowWindow с параметром SW_MAXIMIZE

---

Наверх