Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 30-11-2010
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.242
Poder: 22
ElKurgan Va camino a la fama
yo normalmente lo hago asi:

Código Delphi [-]
 
procedure TForm1.Btn1Click(Sender: TObject);
var
  H: THandle;
  buf: array[0..1024] of char;
  res: integer;
  Cadena: string;
begin
  H := LoadLibrary(PAnsiChar(Libreria));
  if H >= 32 then
  try
    // 0 es el número de recurso; la otra cadena seria 1
    res := LoadString(H, 0, buf, SizeOf(buf));
    if res <> 0 then
      SetString(Cadena, buf, res)
    else
      Cadena := 'error';
    Edit1.Text := Cadena;
    Application.ProcessMessages;
  finally
    FreeLibrary(H);
  end;
end;

Seguro que hay formas mejores de hacerlo, pero a mi me funciona

Un saludo
Responder Con Cita
 


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
Cómo crear un arreglo de bytes apartir de una imagen? fredycc Gráficos 5 10-02-2009 17:33:46
generar un .exe apartir de .php lakers PHP 4 12-04-2008 11:04:55
como crear un backup apartir de una sentencia SQL marcelinux SQL 5 11-03-2008 18:02:39
Generar pdf apartir de un reporte crystal report..ayuda, estoy desesperada! chivix Impresión 3 06-03-2007 18:24:29
Rave Report generar paginas apartir de los resultados devueltos Gedeon Impresión 2 08-09-2006 22:49:17


La franja horaria es GMT +2. Ahora son las 18:30:29.


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