Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-01-2012
satabel satabel is offline
Miembro
 
Registrado: jul 2005
Posts: 22
Poder: 0
satabel Va por buen camino
como cargar en pantalla el teclado

Codial saludo

manejo delphi 7 , me pueden colaborar inidicando como presento el teclado en pantalla, gracias
Responder Con Cita
  #2  
Antiguo 30-01-2012
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
En San Google lo puedes encontrar, mira ésta página

Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita
  #3  
Antiguo 30-01-2012
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
También en el Club he encontrado esto
Un saludo.

P.D.: Sólo hay que buscar.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita
  #4  
Antiguo 30-01-2012
Avatar de cesarsoftware
cesarsoftware cesarsoftware is offline
Miembro
 
Registrado: nov 2006
Posts: 241
Poder: 18
cesarsoftware Va por buen camino
Hola satael.

Te lo pongo mas facil, esta son las funciones que uso yo habitualmente.

Código Delphi [-]
function SacaTeclado(): HWND;
var
  TecladoPgm: string;
  TecladoWND: HWND;
  Resultado: integer;
  msg: string;
begin
  TecladoPGm := 'c:\windows\osk.exe' // se puede usar otro.
  TecladoWND := FindWindow(nil, 'Teclado en pantalla'); // comprueba si esta en ram
  if TecladoWND = 0 then
  begin
    Resultado := ShellExecute(Application.Handle, 'open', PChar(TecladoPgm), Pchar(''), PChar(ExtractFilePath(TecladoPgm)), SW_SHOW);
    case Resultado of
      0: msg := 'The operating system is out of memory or resources.';
      ERROR_FILE_NOT_FOUND: msg := 'The specified file was not found.';
      ERROR_PATH_NOT_FOUND: msg := 'The specified path was not found.';
      ERROR_BAD_FORMAT: msg := 'The .exe file is invalid (non-Microsoft Win32 .exe or error in .exe image).';
      SE_ERR_ACCESSDENIED: msg := 'The operating system denied access to the specified file.';
      SE_ERR_ASSOCINCOMPLETE: msg := 'The file name association is incomplete or invalid.';
      SE_ERR_DDEBUSY: msg := 'The Dynamic Data Exchange (DDE) transaction could not be completed because other DDE transactions were being processed.';
      SE_ERR_DDEFAIL: msg := 'The DDE transaction failed.';
      SE_ERR_DDETIMEOUT: msg := 'The DDE transaction could not be completed because the request timed out.';
      SE_ERR_DLLNOTFOUND: msg := 'The specified DLL was not found.';
      SE_ERR_NOASSOC: msg := 'There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.';
      SE_ERR_OOM: msg := 'There was not enough memory to complete the operation.';
      SE_ERR_SHARE: msg := 'A sharing violation occurred.';
    else
      msg := 'Otro problema';
    end;
    if Resultado < 32 then
    begin
      Application.MessageBox(PChar('Problema al ejecutar' + #13 + TecladoPgm + #13 + msg), 'Error', MB_ICONERROR);
      Result := TecladoWND;
      Exit;
    end;
    EsperaSegundos(0.5); // Esperar a que se ejecute
    TecladoWND := FindWindow(nil, 'Teclado en pantalla'); //encuentra la nueva ventana
    if TecladoWND = 0 then
      Application.MessageBox('No encuentro la ventana del teclado', 'Error', MB_ICONERROR);
  end;
  Result := TecladoWND;
end;

procedure CierraTeclado();
var
  TecladoWND: HWND;
begin
  TecladoWND := FindWindow(nil, 'Teclado en pantalla'); // comprueba si es esta en ram
  if TecladoWND = 0 then
    Exit;
  CloseWindow(TecladoWND);  // minimiza
  PostMessage(TecladoWND, WM_CLOSE, 0, 0); // Cierra
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Teclado en pantalla glopez API de Windows 8 10-05-2012 10:47:02
Teclado en Pantalla tec Varios 8 08-02-2010 11:00:51
Teclado en pantalla Alex1 API de Windows 4 09-11-2007 11:54:44
Como bloquear pantalla y teclado en Delphi? jcarteagaf API de Windows 7 22-06-2007 18:35:33
Componente teclado en pantalla jamonete2 OOP 3 10-06-2005 19:17:09


La franja horaria es GMT +2. Ahora son las 21:07:56.


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
Copyright 1996-2007 Club Delphi