Código Delphi
[-]
procedure TModuloImagenes.Image1DblClick(Sender: TObject);
var editor:tsearchrec;
cadena:array [0..256] of char;
begin
strcopy(cadena,pchar(photoed));
with sender as timage do
begin
strcat(cadena,pchar(hint));
showmessage(cadena);
if FindFirst(photoed,0,editor) = 0 then
WinExec(cadena,1) else
showmessage('No se encuentra el PhotoEditor');
end;
end;
este es el mio, photoed contiene la ruta del programa, y la propiedad hint del Timage contiene el archivo cargado. concateno ambas cadenas dentro de un array de caracteres y como ya e dicho este codigo abre el photoeditor xo no la imagen;