Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   ejecutar arhcivo de ayuda!? (https://www.clubdelphi.com/foros/showthread.php?t=17876)

Dantael 24-01-2005 20:48:19

ejecutar arhcivo de ayuda!?
 
hola!, pues el problema es que tengo una aplicación que se va a ejecutar en una máquina que no tiene delphi ahora ya tengo el archivo de ayuda y el siguiente código
Código Delphi [-]
procedure TForm1.Aayuda1Click(Sender: TObject);
var
ruta: pchar;
begin
ruta:= ExtractFilePath(Application.ExeName);
WinHelp(Self.Handle, ruta+'helpfacyrem.hlp', HELP_CONTENTS, 0);
end;

aquí es logico el error de que no puede convertir un string a un pchar, antes lo tenia sin la variable ruta solo con WinHelp(Self.Handle, 'helpfacyrem.hlp', HELP_CONTENTS, 0); pero en la máquina que lo voy a poner manda el mensaje no se puede hallar el archivo helpfacyrem.hlp desea intentar hallarlo usted mismo. No lo abre de inmediato ¿cómo puedo hacer para que lo abra sin que el usuario tenga que buscarlo manualmente?

Gracias de antemano

Neftali [Germán.Estévez] 25-01-2005 11:33:53

Prueba con éste código; La variable se define como string y luego se convierte.

Código Delphi [-]
 var
   ruta: String;
 begin
   ruta := ExtractFilePath(Application.ExeName);
   WinHelp(Self.Handle, PChar(ruta + 'RAL LIBRARY HELP.HLP'{'helpfacyrem.hlp'}), HELP_CONTENTS, 0);

Dantael 25-01-2005 18:11:44

Funciona!
 
Gracias neftali funciona a la perfección :D


La franja horaria es GMT +2. Ahora son las 15:37:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi