Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

Досовскую программу во вес экран   Найти похожие ветки 

← →
Galim   (2004-12-01 14:43) [0]

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

---

← →
Ozone ©   (2004-12-02 13:38) [1]

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

---

← →
Molchanov   (2004-12-02 16:05) [2]

Для 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;


---

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

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

---

← →
Galim   (2004-12-03 06:01) [4]

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

---

← →
Galim   (2004-12-03 06:05) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.033 c