Registro de Windows

[Khronos]

Hola, necesito que mi aplicación se ejecute cuando se abran ciertos archivos. Para ello uso el registro:

HKEY_CLASSES_ROOT\.phx\Shell\Open\Command\"C:\MiPrograma\programa.exe" "%1"

Esto funciona correctamente, cuando abro el archivo automaticamente se lanza mi aplicación y capturo la dirección del archivo con paramstr(1).
El problemas está en que quiero que si abro varios archivos me manden todos sus direcciones a mi primera instancia de la aplicación (mediante un mutex consigo que solo se abra una vez mi aplicacion).

Estuve buscando por el registro y vi varias extensiones que tienen claves como OpenWithList o OpenWithProgits
¿Alquién sabe para que sirven? ¿Como puedo solucionar mi problema?

Saludos.

[[cHackAll]]

Empezado por Khronos

...¿Alquién sabe para que sirven?...

msdn

Empezado por Khronos

...¿Como puedo solucionar mi problema?...

En el caso de que se seleccionen varios archivos y se ejecute el comando para los mismos, te aconsejo hacer el siguiente cambio;

HKEY_CLASSES_ROOT\.phx\Shell\Open\Command\"C:\MiPrograma\programa.exe" "%*"

y usar ParamCount.

Tambien es importante que busques en el foro informacion acerca de la "comunicación entre dos aplicaciones", ésto para pasar a la instancia inicial los parametros.

Saludos

[Khronos]

Gracias por responder cHackAll, ya encontré la forma de solucionar el problema:

Código Delphi [-]
unit Global;

interface

uses Messages, Classes;

//color = $00FFDDBB;

type
  TPhxMessage = packed record
      DestHandle: THandle;
      Str: string[255];
  end;

const
  Mapping = 'OPAMS-14ASD-MU1EX';
  Mutex = 'E51BA-9QIOSAD-PHOENIX';
  WM_TRANSFER = WM_USER + 1;

var
  Index: integer = 0;
  UpdateOpen: boolean = false;
  UpdateSlider: boolean = false;
  WiniPath: string;

  PhxMessage : ^TPhxMessage;
  mhandle, nHandle: THandle;
  CustomList: TStringList;
  Sychronized: boolean = true;

implementation

end.

Código Delphi [-]
program phxmp;

uses
  ComCtrls,
  Forms, Classes,
  XPMan, Messages,
  SysUtils,  Windows, dialogs,
  frm_main in 'frm_main.pas' {FMain},
  frm_skins in 'frm_skins.pas' {FSkins},
  PlayerUtils in 'PlayerUtils.pas',
  Global in 'Global.pas',
  uThreadFiles in 'uThreadFiles.pas',
  uPlayList in 'uPlayList.pas';

{$R *.res}

begin
  WiniPath:= ExtractFilePath(paramstr(0)) + 'Options.ini';
  Application.Initialize;
  Application.CreateForm(TFMain, FMain);
  Application.CreateForm(TFSkins, FSkins);


  CreateMutex(nil, True, Mutex);
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
     if ParamCount = 1 then
      begin
        nHandle:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False, pchar(Mapping));
        if nHandle = 0 then raise Exception.Create('Error ¿?');
        PhxMessage:= MapViewOfFile(nHandle,FILE_MAP_ALL_ACCESS,0,0,0);
        PhxMessage^.Str:= paramstr(1);
        PostMessage(PhxMessage^.DestHandle, WM_TRANSFER, 0 ,0);
        UnmapViewOfFile(PhxMessage);
        CloseHandle(nHandle);
      end;
      ExitProcess(0);
  end else
    begin
     mHandle:= CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0, SizeOf(TPhxMessage), pchar(Mapping));
     PhxMessage:=MapViewOfFile(mHandle, FILE_MAP_WRITE,0,0,0);
     PhxMessage^.DestHandle:= FMain.Handle;
    end;

  Application.Title:= 'Phoenix Media Player';
  Application.Run;
end.

Y después en el Form:

Código Delphi [-]
  public
    procedure HookMessage (var Msg: TMessage); message WM_TRANSFER;
  end;

var
  FMain: TFMain;

implementation

{$R *.dfm}

procedure TFMain.HookMessage(var Msg: TMessage);
var
Thread: TMFThread;
begin
    if CheckCompability(PhxMessage^.Str) = true then
      begin
        CustomList.Add(PhxMessage^.Str);
        Thread:=TMFThread.Create(CustomList);
        CustomList.Clear;
      end;
end;

Funciona perfectamente, registro las extensiones en el registro y solo se abre un única instancia de mi aplicación. Pero me surge un error, cuando abro muchos archivos por la sincronización de los thread que espero resolver pronto.

Muchas gracias Saludos.

PD: Tengo que resolver el problema del BufferOverflow...