Mensajes WM anda entre sesiones?¿?

[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]

Empezado por roman

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.

¿Adivina en cual busque yo?

Empezado por roman

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.

Sinceramente no me gusta mucho la idea, simplemente recuerdo que en los windows viejos (no se si aun sigue siendo así) para poder utilizar los Sockets teníamos que tener algún dispositivo de red instalado, ya sea físico o virtual. Se que puede no ser el caso, y puede parecer algo arcaico mi pensamiento, pero siempre cuando diseño algo, intento que sea lo mas compatible posible. Por otro lado, se me había ocurrido que la comunicación podría realizarse mediante un System Service, me parece que algo dice la SDK al respecto.

Saludos!

[roman]

Empezado por delphi.com.ar

se me había ocurrido que la comunicación podría realizarse mediante un System Service

¿Y cómo se comunicaría el servicio con la aplicación?

// Saludos

pd: ¿Podrías entrar al mensaje #6 de tu autoría y cortar las líneas largas?

[delphi.com.ar]

Empezado por roman

¿Y cómo se comunicaría el servicio con la aplicación?

También es un delirio, crear un servicio para comunicar dos proceso.... Brrr... Me pareció leer algo por la SDK, pero hablaba de servicios que interactúan con el escritorio.

¿Que tal comunicar los procesos por los medios tradicionales a traves del kernler?... (CreateFile, CreateFileMapping, CreateSemaphore, CreateMutex)

Ahora armo un ejemplito con FileMapping y lo subo para que lo prueben!... yo no puedo

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!