Mensajes WM anda entre sesiones?¿?

[[marceloalegre]]

Buenas tardes:
Una pregunta muy rara la mia.. pero bueno siempre tengo q lidiar con cosas raras... en este caso necesito comunicar una aplicacion con otra que esta en la misma pc ejecutada en otra sesion, no quiere compartir datos en un .ini ni nada de eso... quiero manejarme directamente con mensajes de windows del tipo wm.
Alguien sabe si puedo comunicarme mandando mensajes entre las 2 aplicaciones que estan en sesiones distintas?

espero se entienda... saludos

[roman]

Busca en la ayuda del SDK de Windows (incluida con Delphi) acerca de RegisterWindowMessage. Esta función te sirve para estableder mensajes aptos para comunicación entre aplicaciones.

// Saludos

[delphi.com.ar]

Hablo suponiendo, pues no tengo como probarlo aquí, pero creo que cada sesión se debe ejecutar en un nuevo Window Station, por consiguiente en un nuevo Desktop. No vas a obtener el handle de la ventana de otro desktop, a no ser que busques al WindowStation (EnumWindowStations), busques el Desktop (EnumDesktops) y busques la ventana (EnumDesktopWindows). Para cada una de estas búsquedas podrás encontrar mas de un resultado. Supongo que una vez encontrada, no habrá problema para comunicarse por "Window Messages"...

Saludos!

[roman]

Ah, se me había pasado el "detallito" de las sesiones

Pero ahora me queda la duda:

Empezado por delphi.com.ar

Supongo que una vez encontrada, no habrá problema para comunicarse por "Window Messages"

pues no me queda claro si SendMessage o PostMessage puedan mandar mesajes entre escritorios.

// Saludos

[roman]

Pues va a ser que no. El SDK de Windows explícitamente dice:

Empezado por SDK de Windows

Messages can be sent only between processes that are on the same desktop. In addition, the hook procedure of a process running on a particular desktop can only receive messages intended for windows created in the same desktop.

// Saludos

[delphi.com.ar]

Empezado por roman

Pues va a ser que no. El SDK de Windows explícitamente dice...

Antes de escribir el primer post, estuve buscando eso, porque creía haberlo leído anteriormente, pero no lo encontré

Saludos!

[roman]

Empezado por delphi.com.ar

Antes de escribir el primer post, estuve buscando eso,
porque creía haberlo leído anteriormente, pero no lo encontré

Igual me pasó a mi. Busqué primero en la ayuda del SDK de Windows que
viene con Delphi y no lo menciona pero en el msdn sí lo dice.

Ya después buscando en los grupos de noticias de Borland vi varias entradas
de Peter Below donde enfáticamente afirma lo mismo y menciona que para
ese tipo de comunicación mejor usar en todo caso tcp/ip.

// Saludos

[delphi.com.ar]

Estaba haciendo esta prueba, pero me tengo que ir... si alguien quiere continuarla...

Código Delphi [-]
program AppConsole;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Messages;

var
  Dummy: string;
begin
  SendMessage(StrToIntDef(ParamStr(1), 0), WM_SETTEXT, 0, Integer(PChar(ParamStr(2))));
  WriteLn(ParamStr(2));
  ReadLn(Dummy);
end.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  MyDesk: HDESK;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
begin
  MyDesk := CreateDesktop('Delphi.com.ar', nil, nil, DF_ALLOWOTHERACCOUNTHOOK,
                          DESKTOP_CREATEWINDOW or DESKTOP_SWITCHDESKTOP,
                           nil);
  if MyDesk <> 0 then
    try
      SwitchDesktop(MyDesk);

      ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
      StartupInfo.cb := SizeOf(TStartupInfo);
      StartupInfo.lpDesktop := PChar('Delphi.com.ar');


      CreateProcess(nil, PChar('AppConsole.exe' + IntToStr(Handle) + ' ' + Edit1.Text), 
                          nil, nil, True, CREATE_DEFAULT_ERROR_MODE or CREATE_SEPARATE_WOW_VDM, 
                          nil, nil, StartupInfo, ProcessInfo);
      try
        Sleep(5000);
      finally
        CloseHandle(ProcessInfo.hProcess);
      end;
    finally
      CloseDesktop(MyDesk);
    end;
end;

end.

Saludos!