VCL приложение без формы

[harimambura]

сабж: как заставить программу работать без форм?
собственно делаю сервачок, но не хочу париться с консольным приложением, использую сокеты. так вот из за формы ехешник только с голой формой и компонентом на нем уже переваливает за 700кб, а мне это ооочень не нравится. форму с юнитом удалил через remove from project, но теперь незнаю, как сделать обработку процедур во втором юните, ибо программа запускается и сразу завершается (смотрел через отладчик).
з.ы. Если что, пишу в RAD Studio XE

[raxp]

...пример:

//------------------------------------------
// Flash USB
// Модуль определения буквы и подключения USB
// Author: Бадло Сергей Григорьевич
// H-page: http://raxp.radioliga.com
// Cистемные требования: win32
//------------------------------------------

program flash;

uses Messages,Classes, Windows;


type

 PDevBroadcastHdr = ^TDevBroadcastHdr;
 TDevBroadcastHdr = packed record
 dbcd_size: DWORD;
 dbcd_devicetype: DWORD;
 dbcd_reserved: DWORD;
end;

 PDevBroadcastVolume = ^TDevBroadcastVolume;
 TDevBroadcastVolume = packed record
 dbcv_size: DWORD;
 dbcv_devicetype: DWORD;
 dbcv_reserved: DWORD;
 dbcv_unitmask: DWORD;
 dbcv_flags: Word;
end;

 TF = class
 protected
  FWnd: HWnd;
  constructor Create;
  destructor Destroy;
  procedure WndProcc(var Msg:TMessage); message WM_DeviceChange;
end;


const
DBT_DeviceArrival = $8000;
DBT_DeviceRemoveComplete = $8004;
DBTF_Media = $0001;
DBT_DevTyp_Volume = $0002;

var
  FWnd: HWnd;
  t: tf;
  Msg: tmsg;

// СКЕЛЕТ =====================================================================
function GetDrive(pDBVol: PDevBroadcastVolume): string;
var i: Byte;
    Maske: DWORD;
begin
 Maske := pDBVol^.dbcv_unitmask;
 for i := 0 to 25 do begin
  if (Maske and 1) = 1 then
   Result := Char(i + Ord('A')) + ':';
  Maske := Maske shr 1;
 end
end;

constructor TF.Create;
begin
 inherited Create;
 FWnd:= AllocateHWnd(WndProcc);
end;
destructor TF.Destroy;
begin
 inherited Create;
 deAllocateHWnd(fWnd)
end;

procedure tf.WndProcc(var Msg:TMessage);
begin
 if Msg.wparam = DBT_DEVICEARRIVAL then
  if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
   messagebox(fwnd,pchar(GetDrive(PDevBroadcastVolume(Msg. lParam))),'',0)
end;




begin
 t:= tf.Create;

 try while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)
 end finally t.destroy end
// END СКЕЛЕТ =================================================================

end.

Также сервисом можете оформить.

[harimambura]

пардон, но тема в разделе "C/C++" и код делфи мне ни о чём не скажет вобщем то
с сервисами не знаком

поясняю подробнее: при инициализации приложения проходят только строки в project1.cpp application->inicialize, application->run и сразу же переходит на закрытие, тобишь Unit1.cpp не затрагивает и естественно функции в нем не выполняет. вот мне конкретно надо заставить приложение перейти на обработку кода из Unit1. и чтоб приложение естественно не завершалось по прохождении всех функций)

[raxp]

...синтаксис лишь Delphi, а так WinAPI (лишнее в коде убрать) . Что именно не ясно в бесконечном обработчике сообщений?

[harimambura]

не заметил) но всё равно немного не понимаю..
если можно, то лучше скажите просто по русски последовательность действий, код составлю сам) и насчёт обработки Unit'а: так и не понял как его заставить работать. или вы предлагаете не создавая проекта, компилить просто Unit с подключённым VCL?

[harimambura]

всё ещё актуально

[crossmark]

просто бесконечный цикл нужен