WM_QUERYENDSESSION ohne Fenster

[Bummi]

eine Minimalversion:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,classes,messages,dialogs,windows;

type
   TWndProcClass = class
   protected
      procedure WndProc(var msg: TMessage);
   public
      WinHandle: HWND;
   end;


Function ProcessMessage(var Msg: TMsg): Boolean;

begin
  Result := False;
  if  PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
  begin
      PeekMessageA(Msg, 0, 0, 0, PM_REMOVE);
      Result := True;
      if Msg.Message <> WM_QUIT then
        begin
          TranslateMessage(Msg);
          DispatchMessageA(Msg);
    end;
  end;
end;


procedure ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do {loop};
end;



procedure TWndProcClass.WndProc(var msg: TMessage);
begin
   writeln('MSG:' + inttostr(msg.Msg));
   msg.Result := -1;
end;

var
   WndProcClass: TWndProcClass;
begin
   WndProcClass := TWndProcClass.Create;
   WndProcClass.WinHandle := AllocateHWnd(WndProcClass.WndProc);
   writeln('HWND:' + InttoStr(WndProcClass.WinHandle));
   while True do begin
      Sleep(10);
      processMessages;
   end;

   DeallocateHWnd(WndProcClass.WinHandle);
   WndProcClass.Free;
end.

Aufrufbeispiel aus einer anderen Anwendung über das Handle, welches hier bei Writeln ausgegeben wurde

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin
sendmessage(2689556,wm_close,0,0)
end;

[blablab]

Vielen Dank!
Es funktioniert jetzt und ich hab es auch (so ziemlich ) verstanden.

@Bummi:

Delphi-Quellcode:

  if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
   begin
       PeekMessageA(Msg, 0, 0, 0, PM_REMOVE);

warum nicht nur einmal:

  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then ?

[himitsu]

Das Erste stammt quasi noch aus dem Code, wo man auch noch Unicode mit behandelt

Nja, wenn man sowieso nur ales selber macht, reicht es, wenn an das Genutzte Unterstützt.
In dem Fall würde ich einfach das A (xxxA) weglassen und alle API-Aufrufe über die dynamischen Typen laufen lassen. Außer man will prozessübergreifend, abeiten, dann entweder ANSI und Unicode verarbeiten oder auf eine Schnittstelle einigen, also ANSI (xxxA) oder Unicode (xxxW).

[Bummi]

@blablab
weil ich müde war und beim reduzieren nicht aufgepasst habe...

[himitsu]

Zitat von Bummi:

@blablab
weil ich müde war und beim reduzieren nicht aufgepasst habe...

Macht doch nichts ... funktioniert hätte es dennoch. (grundsätzlich falsch isses ja nich)