приложение без формы, событие при завершении

[ERASERROR]

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

[B_N]

Выполнить "одно действие" перед

end.

А что такое здесь "приложение без формы"? Служба? Нет?

[ERASERROR]

Нет, стер форму, бесконечный цикл так и висит в системе, но когда ось выключается надо одно действие сделать

[B_N]

Сообщение от ERASERROR

Нет, стер форму, бесконечный цикл так и висит в системе, но когда ось выключается надо одно действие сделать

Очень странное решение. Не проще скрыть форму и делать всё как обычно?

[Stilet]

Нет, стер форму, бесконечный цикл так и висит в системе, но когда ось выключается надо одно действие сделать

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

(Но лучше прислушайся к Бьену.)

[ERASERROR]

С формой мое приложение весит более трехсот килобайт, а без около восьмидесяти.кстати как станвить hook?

[B_N]

Сообщение от ERASERROR

С формой мое приложение весит более трехсот килобайт, а без около восьмидесяти.кстати как станвить hook?

А через CreateWindow окно сделать если?

[ERASERROR]

Мне не нужно окно, зачем создавать то чем не пользуешься?просто моя прога должна мало весить, тем более что она выполняет очень простые вещи.так как поставить hook?

[B_N]

ERASERROR, Хук ставить дольше, чем написать что-то вроде этого: (я мог тут где-нибудь напутать в переводе на паскаль без компиляции) Не знаю, как сейчас, но во времена 4-5 дельфей такие вещи весили килобайт двадцать.

var 
	wc : WNDCLASS;

function WndProc(hWnd :HWND; message, wParam, lParam : carinal) : cardinal;
begin
	result := 0;
	if(message = WM_DESTROY) then PostQuitMessage(0);
	else result := DefWindowProc(hWnd, message, wParam, lParam);
end;
	
begin
	wc.cbSize = sizeof(WNDCLASS); 
	wc.style			:= 0;
	wc.lpfnWndProc		:= @WndProc;
	wc.cbClsExtra		:= 0;
	wc.cbWndExtra		:= 0;
	wc.hInstance		:= GetModuleHandle(0);
	wc.hIcon			:= nil;
	wc.hCursor			:= nil;
	wc.hbrBackground	:= nil;
	wc.lpszMenuName		:= '';
	wc.lpszClassName	:= '_1234567890_';

	RegisterClass(@wc);

	CreateWindow('_1234567890_', '', 0, -32768,-32768, 1, 1, nil, nil, wc.hInstance, nil);

	while (GetMessage(@msg, 0, 0, 0) <> 0) do begin
		TranslateMessage(@msg);
		DispatchMessage(@msg);
	end;
	///////////////////////////////
// Вот тут всё и произойдет.
	Beep(2000,1000);
	///////////////////////////////
end.

[Stilet]

Вот тут всё и произойдет.

Ой-ли?
А если я из диспетчера турну прогу, что дойдет до этой строки?
Помоему Диспетчер просто выдавит из памяти процесс без всяких там предупреждений и давания возможности правильно завершиться.

Как вариант: в WndProc обрабатывать WM_DESTROY и WM_QUERYENDSESSION

Кстати такой пример вот:

{
  Данный код был спроектирован в среде APIx - Visual WinAPI 2
  Copyright (c) PiddleSoft 2004-2006
  http://piddlesoft.narod.ru
  piddlesoft@mail.ru

  Дата генерации листинга - 22.02.2008 13:01:42
}

program APIx_Project8;

uses
  windows,
  messages,
  commctrl;

//Используемые модули

// Иконка


var
  WinClass : TWndClass; //переменная класса TWndClass для создания главного окна
  hInst : HWND; //хандлер приложения
  Handle : HWND; //локальный хандлер
  Msg : TMSG; //сообщение

procedure ShutDown; //процедура завершения программы
begin     MessageBox(GetForegroundWindow,'','',0);
  UnRegisterClass('TAPIxForm', hInst); //удаление окна
  ExitProcess(hInst); //закрытие программы
end;

function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  case Msg of

  WM_DESTROY: ShutDown;
  end;
end;

begin
hInst := GetModuleHandle(nil);
  with WinClass do
  begin
   Style := CS_PARENTDC; //стиль класса главного окна
   hIcon := LoadIcon(hInst, MAKEINTRESOURCE('APIXICON')); //иконка программы
   lpfnWndProc := @WindowProc; //назначение обработчика сообщений
   hInstance := hInst;
   hbrBackground := COLOR_BTNFACE + 1; //цвет окна
   lpszClassName := 'TAPIxForm'; //класс окна
   hCursor := LoadCursor(0, IDC_ARROW); //активный курсор
  end;
InitCommonControls;
RegisterClass(WinClass); //регистрация класса в системе

// Создание главного окна программы
Handle := CreateWindowEx(0, 'TAPIxForm', 'Форма1',
WS_OVERLAPPEDWINDOW or
WS_VISIBLE or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU,
219, 116, 550, 366,
0, 0,
hInst, nil);

  // Цикл сбора сообщений
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg); //прием сообщений
    DispatchMessage(Msg); //удаление сообщений из очереди
  end;
  MessageBox(GetForegroundWindow,'','',0);
  end.

Всего то 9 кил будет весить, а без окна кила 3-4 так что одно окошко погоды не ухудшит.