![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
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; exitCode Word;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 |
|
|
|