Кодинг прям в проекте (*.dpr)

← →
DoAll (2004-05-17 20:40) [0]

Решил писать win32 (не консоль) приложение но без GUI...
И тут столкнулся с двумя вопросами:
1. Как лучше всего организовать цикл, который бы не давал приложению сразу закрываться, а ждал-бы WM_DESTROY?
2. Как без форм, без юнитов и т.д. работать с событиями?
Заранее спасибо!

← →
DoAll (2004-05-17 20:56) [1]

Ну неужели никто незнает? :)

← →
DrPass © (2004-05-17 21:31) [2]

1. Создать окно
2. Создать окно
Может пригодиться AllocateHwnd (если ты не решил полностью отказаться от VCL)

← →
GuAV © (2004-05-17 22:02) [3]

> работать с событиями?

Событие - это свойтво типа метод.
Такая штука возможна и
> без форм, без юнитов и т.д.

если сам напишешь такие объекты.

← →
DrPass © (2004-05-17 23:30) [4]

> Событие - это свойтво типа метод.
> Такая штука возможна и
> > без форм, без юнитов и т.д.
>
> если сам напишешь такие объекты.

Как говорит моя 81-летняя бабушка: "Ты эту чушь в своем Интернете вычитал?" :)

← →
jack128 © (2004-05-17 23:47) [5]

> 1. Как лучше всего организовать цикл, который бы не давал
> приложению сразу закрываться, а ждал-бы WM_DESTROY?
?? это сообщение посылается когда нужно уничтожить окно, то это далеконе означает, что приложение должно завершиться. приложение должно завершиться по получении WM_QUIT. Нужно просто написать стандартный цикл выборки/обработки сообщений, пример в FAQ"e

> 2. Как без форм, без юнитов и т.д. работать с событиями?

TEventHandlers = class
procedure NotifyEventHandler(Sender: TObject);
end;

...

Button1.OnClick := TEventHandlers.NotifyEventHandler;

← →
DoAll (2004-05-18 04:07) [6]

Проверяем:
program test; uses JvAppHotKey, Menus, Dialogs; type TTest = class JvApplicationHotKey1: TJvApplicationHotKey; end; TEventHandlers = class procedure NotifyEventHandler(Sender: TObject); end; var myTest: TTest; procedure TEventHandlers.NotifyEventHandler(Sender: TObject); begin ShowMessage("Insert íàæàò!"); end; begin myTest.JvApplicationHotKey1.HotKey:=TextToShortCut("Ins"); myTest.JvApplicationHotKey1.OnHotKey:=TEventHandlers.NotifyEventHandler; myTest.JvApplicationHotKey1.Active:=TRUE; while TRUE do end.
Выдаёт ошибку: [Error] test.dpr(25): Incompatible types: "TNotifyEvent" and "Procedure"
Что ни так?

← →
DoAll (2004-05-18 06:41) [7]

Кароче я нашол оптимальный вариант...
Вобщем пишем так как если бы это была GUI-прога, НО код проекта немного изменяем:
... uses ... Windows, // это чтобы Sleep работал :) ... begin Application.Initialize; ShowWindow(Application.Handle,SW_HIDE); // типа невидимое окно :) Form1:=TForm1.Create(nil); Application.Run; while (true) do // бесконечный цикл :) begin Application.ProcessMessages; // получаем управление Sleep(1); // это чтоб не тормозило :) end; end.

← →
DoAll (2004-05-18 06:43) [8]

хотя там от Windows ещё ShowWindow зависит :)

← →
Романов Р.В. © (2004-05-18 08:04) [9]

DoAll (18.05.04 06:41) [7]
Смешная шутка :)))

← →
Digitman © (2004-05-18 08:53) [10]

> DoAll (18.05.04 06:41) [7]

> Кароче я нашол оптимальный вариант

"оптимальный" ты наш)

> ShowWindow(Application.Handle,SW_HIDE); // типа невидимое
> окно :)

какое окно-то ? главное окно приложения ? оно и так невидимое .. окно главной формы ? она еще даже и не создана ...

> Application.Run;
> while (true) do // бесконечный цикл :)
> begin
> Application.ProcessMessages; // получаем управление
> Sleep(1); // это чтоб не тормозило :)
> end;

строчку Application.Run, по твоему, от балды Борланд вписывает в каждый GUI-проект ? нет, не от балды, это и есть по сути цикл выборки/обработки оконных сообщений ... и одно из главных условий выхода из этого цикла - разрушение главной формы приложения ... так на кой же шут ты еще один бестолковый цикл впендюрил ниже ?

← →
[lamer]Barmaglot © (2004-05-18 09:14) [11]

Держи код минимального приложения на WinAPI...

function PlainWinProc (hWnd: THandle; nMsg: UINT; wParam, lParam: Cardinal): Cardinal; export; stdcall; var Rect: TRect; begin Result := 0; case nMsg of wm_Create: begin end; wm_Size: begin end; wm_Destroy: PostQuitMessage (0); else Result := DefWindowProc (hWnd, nMsg, wParam, lParam); end; end; procedure WinMain; var hWnd: THandle; Msg: TMsg; WndClassEx: TWndClassEx; lpStartUpInfo: TStartUpInfo; begin WndClassEx.cbSize := sizeOf (TWndClassEx); WndClassEx.lpszClassName := "PlainWindow"; WndClassEx.style := cs_VRedraw or cs_HRedraw; WndClassEx.hInstance := HInstance; WndClassEx.lpfnWndProc := @PlainWinProc; WndClassEx.cbClsExtra := 0; WndClassEx.cbWndExtra := 0; WndClassEx.hIcon := LoadIcon (hInstance,MakeIntResource ("MaINICON")); WndClassEx.hIconSm := LoadIcon (hInstance,MakeIntResource ("MAINICON")); WndClassEx.hCursor := LoadCursor (0, idc_Arrow);; WndClassEx.hbrBackground := COLOR_WINDOW; WndClassEx.lpszMenuName := nil; if RegisterClassEx (WndClassEx) = 0 then MessageBox (0, "Invalid class registration","Plain API", MB_OK) else begin hWnd := CreateWindowEx (WS_EX_OVERLAPPEDWINDOW and WS_THICKFRAME{WINDOWEDGE}, WndClassEx.lpszClassName, "Plain API Demo", WS_OVERLAPPEDWINDOW, cw_UseDefault, 0, cw_UseDefault, 0, 0,0,HInstance,nil); if hWnd = 0 then MessageBox (0, "Window not created", "Plain API", MB_OK) else begin GetStartUpInfo(lpStartUpInfo); ShowWindow (hWnd, lpStartUpInfo.wShowWindow); while GetMessage (Msg, 0, 0, 0) do begin TranslateMessage (Msg); DispatchMessage (Msg); end; end; end; end; begin // Insert user code here WinMain; end.

← →
DoAll (2004-05-18 20:41) [12]

2Digitman:
Ну если Application.Run; - это цикл выборки/обработки оконных сообщений, то какова Х выполняется не он, а последний цикл? :)
2[lamer]Barmaglot:
Тебе не кажется что приложение с окном - трудно назвать минимальным? :)
2All:
Благодоря товарищю Digitman-у, до меня дошло выкинуть из проекта немного лишнего :)
Теперь проект выглядит так:
program Project1; uses Forms, Windows, // теперь точно только для Sleep :) Unit1 in "Unit1.pas" {Form1}; {$R *.RES} begin Form1:=TForm1.Create(nil); while (true) do // бесконечный цикл :) begin Application.ProcessMessages; // получаем управление Sleep(1); // это чтоб не тормозило :) end; end.
Будем оптимизировать дальше? :)

← →
vertal (2004-05-18 21:25) [13]

Когда я делал что-то подобное , то несмотря на
Sleep(x); // это чтоб не тормозило :)
загрузка процессора была 99-100%.Все-таки надо использовать GetMessage , тогда действительно не тормозит.

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

program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

> Ну если Application.Run; - это цикл выборки/обработки оконных
> сообщений, то какова Х выполняется не он, а последний цикл?
> :)

Логично, т.к. ты главную форму создал через TForm1.Create, а не через Application.CreateForm. А тот же самый код, что и у тебя, но сделанный не через ж... выглядит как
> nikkie © (18.05.04 21:28) [14]

Если тебе нужно просто спрятать программу - то Form1.Hide, ShowWindow(Application.Handle,SW_HIDE);

> [6] DoAll (18.05.04 04:07)
сорри, ошибся

> TEventHandlers = class
> class procedure NotifyEventHandler(Sender: TObject);
> end

> DoAll (18.05.04 20:41) [12]
> Ну если Application.Run; - это цикл выборки/обработки оконных
> сообщений, то какова Х выполняется не он, а последний цикл?
> :)

выполняется он !
но поскольку объекту Application ты не сопоставил главную форму, то как раз и наступает то самое условие завершения цикла, о котором я тебе уже сказал

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.ShowMainForm := False; //если не выполнить эту строчку, то вне зависимости от св-ва TForm1.Visible форма будет показана
Application.CreateForm(TForm1, Form1); //создаем невидимую форму
Application.Run; //стартуем цикл ожидания/выборки/дисп-ции сообщений, условие выхода - разрушение формы Form1 или вызов где-то в коде обработчиков событий формы метода Application.Terminate
end.

Кодинг прям в проекте (*.dpr) Найти похожие ветки