Foros Club Delphi - Abrir un archivo tiff con aplicacion externa

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Abrir un archivo tiff con aplicacion externa (https://www.clubdelphi.com/foros/showthread.php?t=54246)

Nomad

12-03-2008 16:37:47

Abrir un archivo tiff con aplicacion externa

Hola

Espero que esto, este bien clasificado aqui.

Estoy haciendo lo siguiente:

Código Delphi [-]procedure MostrarArchivo;
var
  archivo : String[100];
begin
archivo := EdFile.Text;
ShellExecute(Handle, 'open',Archivo,nil,nil, SW_SHOWMAXIMIZED);
end;

pero me da el siguiente error de compilacion:

[Pascal Error] UIngCap.pas(161): E2010 Incompatible types: 'ShortString' and 'PAnsiChar'

Creo que es por usar esa variable "archivo"

Que me aconsejan?

gracias

cHackAll

12-03-2008 16:43:21

Código Delphi [-]ShellExecute(Handle, 'open', PChar(EdFile.Text), nil, nil, SW_SHOWMAXIMIZED);

Nomad

12-03-2008 16:47:35

Cita:

Empezado por cHackAll (Mensaje 272699)

Código Delphi [-]ShellExecute(Handle, 'open', PChar(EdFile.Text), nil, nil, SW_SHOWMAXIMIZED);

Gracias por el consejo, pero ahora presenta el siguiente error:

[Pascal Error] UIngCap.pas(161): E2089 Invalid typecast

cHackAll

12-03-2008 16:53:13

Código Delphi [-]ShellExecute(Handle, 'open', PChar(Archivo), nil, nil, SW_SHOWMAXIMIZED);

Código Delphi [-]ShellExecute(Handle, 'open', @Archivo[1], nil, nil, SW_SHOWMAXIMIZED);

Código Delphi [-]ShellExecute(Handle, 'open', PChar(string(EdFile.Text)), nil, nil, SW_SHOWMAXIMIZED);

Nomad

12-03-2008 17:19:30

Código Delphi [-]ShellExecute(Handle, 'open', PChar(string(EdFile.Text)), nil, nil, SW_SHOWMAXIMIZED);

Me sirvió esa.... muchas gracias!

La franja horaria es GMT +2. Ahora son las 09:04:23.