VPF::как избавиться от формы и остаться памяти

BLACK_KOT

Дата 2.11.2007, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

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

Код


program Project1;

uses
  windows,
  messages;
procedure HookProc(Code: integer; WParam: word; LParam: Longint)stdcall;
var
msg:PEVENTMSG;
begin
msg := Pointer(LParam);
if msg.message=WM_KEYDOWN then keybd_event(79,MapvirtualKey(79,0),0,0)
end;

begin
SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end.

прога отлавливает нажатия клавиш и добавляет букву в конец.

--------------------

.. я - демо версия Бога от Microsoft..

bems

Дата 2.11.2007, 22:02 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Цитата(BLACK_KOT @ 2.11.2007, 21:56

)

пробовал зациклить - так почему то не работает..

как не рабртает?

Добавлено через 5 минут и 18 секунд
кажется для WH_JOURNALRECORD у твоего потока должен быть цикл обработки сообщений

--------------------

Обижено школьников: 8

BLACK_KOT

Дата 2.11.2007, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

вобщем с формой - прога работает. а как избавиться от формы, сохранив работоспособность?

Код


unit Unit1;

interface

uses
  Windows, Messages, Forms;


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure HookProc(Code: integer; WParam: word; LParam: Longint)stdcall;
var
msg: PEVENTMSG;
begin
msg := Pointer(LParam);
if msg.message=WM_KEYDOWN then keybd_event(79, MapvirtualKey(79,0),0,0)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;


end.

--------------------

.. я - демо версия Бога от Microsoft..

THandle

Дата 3.11.2007, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Код


program Project1;
uses
  windows,
  messages;
procedure HookProc(Code: integer; WParam: word; LParam: Longint)stdcall;
var
msg:PEVENTMSG;
begin
msg := Pointer(LParam);
if msg.message=WM_KEYDOWN then keybd_event(79,MapvirtualKey(79,0),0,0)
end;

var
 ms : tagMSG;
begin
SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);

while GetMessage(ms, 0 , 0, 0) do
 begin
  TranslateMessage(ms);
  DispatchMessage(ms);
 end
end.

Вот попробуй. Всё отлично работает.

BLACK_KOT

Дата 3.11.2007, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

благодарю, THandle!

--------------------

.. я - демо версия Бога от Microsoft..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »