Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Вниз

Консольное приложение   Найти похожие ветки 

 
Compton's G   (2006-01-14 19:01) [0]

Как, скрыть работу консольного приложения, я имею введу, отсутсвие видимоси окна.


 
palva ©   (2006-01-14 19:19) [1]

Свернуть окно.


 
Compton's G   (2006-01-14 19:23) [2]

Каким образом свернуть?


 
palva ©   (2006-01-14 19:33) [3]

Зависит от того, кто вы. Если оператор, то нажать кнопку мышкой, если вы являетесь этим самым консольным приложением, то послать сообщение окну, если другая программа, то найти окно и тоже послать ему сообщение.
Вы напишите подробнее и вам сразу ответит куча народу.


 
Compton's G   (2006-01-14 19:44) [4]

... я являюсь этим самым окном.

Да какое именно сообщение нужно послать, окну?


 
Джо ©   (2006-01-14 19:49) [5]


 H := GetForegroundWindow();
 ShowWindow(H,SW_HIDE);


 
palva ©   (2006-01-14 20:02) [6]

Джо ©   (14.01.06 19:49) [5]
Да, так, наверно, проще. А я имел ввиду такой код:

const
 WM_SYSCOMMAND: Word = $0112;
var
 w:HWND;
begin
 w := GetForegroundWindow;
 SendMessage(w, WM_SYSCOMMAND, SC_MINIMIZE, 0);


 
Compton's G   (2006-01-14 20:09) [7]


>  H := GetForegroundWindow();
>  ShowWindow(H,SW_HIDE);


нет мне нужно, чтобы пользователь даже не подозревал, что программа запускается


 
Compton's G   (2006-01-14 20:12) [8]

... программа запускается, делает операции где-то секунду, и самозакрывается, вот, мне нужно, чтоб при работе программы, черное окошко консольного приложения  не появилось, даже на долю секунды.


 
begin...end ©   (2006-01-14 20:15) [9]

> Джо ©   (14.01.06 19:49) [5]
> palva ©   (14.01.06 20:02) [6]

Так можно скрыть совсем не то окно, которое нужно.

> Compton"s G   (14.01.06 20:12) [8]

Если окно консоли вообще не нужно, зачем тогда создавать именно консольное приложение?


 
Compton's G   (2006-01-14 20:19) [10]


> Если окно консоли вообще не нужно, зачем тогда создавать
> именно консольное приложение?


а что для этого подойдел лучше всего?


 
begin...end ©   (2006-01-14 20:25) [11]

> Compton"s G   (14.01.06 20:19) [10]

Можно создать просто приложение (без окон). Писать код в файле проекта (dpr), между begin и end.


 
Кефир87 ©   (2006-01-14 20:48) [12]

...Убрать директиву {$APPTYPE CONSOLE} 8))


 
Compton's G   (2006-01-14 21:11) [13]


> Кефир87 ©   (14.01.06 20:48) [12]
>
> ...Убрать директиву


спасибо


 
palva ©   (2006-01-14 21:11) [14]

begin...end ©   (14.01.06 20:15) [9]
> Так можно скрыть совсем не то окно, которое нужно.
Тогда можно так:

function GetConsoleWindow: Hwnd; external "kernel32.dll";
...
begin
 w := GetConsoleWindow;
 ...
 //  ShowWindow(w, SW_HIDE);
 SendMessage(w, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Кстати, SendMessage сворачивает окно на панель задач, а при использовании ShowWindow окно полностью исчезает и задачу приходится убивать из диспетчера задач.


 
begin...end ©   (2006-01-14 21:13) [15]

> palva ©   (14.01.06 21:11) [14]

> Тогда можно так

В Win2k и выше -- можно.



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

Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.039 c
3-1133512349
salexn
2005-12-02 11:32
2006.01.29
Ассинхронное получение данных в TClientDataSet


15-1136715142
ferr
2006-01-08 13:12
2006.01.29
TeX


1-1135319886
jiny
2005-12-23 09:38
2006.01.29
Как узнать наличие переменной на другом фрейме не зная названия


2-1136911291
HITMAN1
2006-01-10 19:41
2006.01.29
Где можно найти информацию о значениях портов


15-1136658189
(CHALING 32)S K i N E R
2006-01-07 21:23
2006.01.29
Обновления это хорошо но не всегда!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский