Ver Mensaje Individual
  #4  
Antiguo 08-04-2005
lgarcia lgarcia is offline
Miembro
 
Registrado: jul 2004
Posts: 479
Reputación: 20
lgarcia Va por buen camino
Ayuda para aplicacion

Hola

Un programa bueno y facil para crear ayudas es el HtmlHelp y al final generas un fichero .chm. Aqui tienes un ejemplo de utilizacion asociado a un Menu

procedure TForm1.Contenido2Click(Sender: TObject);
procedure RunAndWaitShell(Ejecutable,Argumentos:string;Visibilidad:integer);
var
Info:TShellExecuteInfo;
pInfo:PShellExecuteInfo;
exitCodeWord;
begin
pInfo:=@Info;
with Info do
begin
cbSize:=SizeOf(Info);
fMask:=SEE_MASK_NOCLOSEPROCESS;
wnd:=Handle;
lpVerb:=nil;
lpFile:=PChar(Ejecutable);
lpParameters:=Pchar(Argumentos+#0);
lpDirectory:=nil;
nShow:=Visibilidad;
hInstApp:=0;
end;
ShellExecuteEx(pInfo);
repeat
exitCode := WaitForSingleObject(Info.hProcess,500);
Application.ProcessMessages;
until (exitCode <> WAIT_TIMEOUT);
end;

begin
RunAndWaitShell('Ayuda.chm','',Sw_ShowNormal);
end;

Debes usar la Unit ShellApi

Saludos
Luis Garcia
Responder Con Cita