5 respuestas en este tema

[Jagluiperd]

Descripción:
- Simple código de ejemplo de como obtener el usuario actual de un Sistema Windows o Linux.

Información previa:
- Compilado empleando las siguientes versiones de Lazarus:
  Windows: 0.9.28.2
  Linux:      0.9.26
- El código compila y se ejecuta tanto bajo Windows como en Linux, sin ninguna modificación.

Información de testeo:
- Probado con exito bajo un sistema Ms Windows XP (SP3) y bajo un Sistema Fedora "Leonidas".

Pasos:
1- En Lazarus abrimos un nuevo Proyecto.
2- Añadimos un Tbutton y un TLabel al Formulario.
3- Ponemos a False la propiedad "Visible" de la Label.
4- Incrustamos las siguientes lineas de código en Unit1 bajo la sección "implementation"

delphi

{$IFDEF MSWINDOWS}
Uses
  Windows;
 
   Function JLPGetUserName : string;
   Var
     userNameBuffer : array[0..255] of char;
     sizeBuffer : DWord;
   Begin
     SizeBuffer := 256;
     getUserName(userNameBuffer, sizeBuffer);
     result := string(userNameBuffer);
   End;
{$ENDIF MSWINDOWS}
{$IFDEF LINUX}
  Function JLPGetUserName : string;
   Begin
     Result := GetEnvironmentVariable('USERNAME');
     If Result = '' then
       Result := GetEnvironmentVariable('USER');
   End;
{$ENDIF LINUX}

5- En el evento Click del botón añadimos las siguientes lineas de código:

delphi

  Label1.Caption:='Usted está trabajando en el Sistema como: '+JLPGetusername;
  Label1.Show;

 
Espero que les sea de utilidad.

Saludos.

[Rolphy Reyes]

Saludos.

Entiendo que el hilo debe de ir en Trucos y Consejos aunque el lenguaje sea distinto, por eso lo moví a esta sección desde la sección de Lazarus.

Hilo relacionado.

[Jagluiperd]

Hola Rolphy Reyes.

Veo tu punto de vista y entiendo tu proceder.

Sin embargo, compruebo que no se adapta a lo que un visitante cualquiera podría encontrarse
al entrar en el foro y ver los temas disponibles, dado que se puede leer claramente:

---------------------------------------------
Lazarus / FreePascal                               
Todo lo relacionado con estos lenguajes de programación
---------------------------------------------

Esto podría llevar a confusión, dado que el ejemplo que propongo, aunque también se podría
catalogar en el apartado Trucos y Consejos, es exclusivo de Lazarus/FreePascal.

¿Cómo podemos atajar/mejorar esto?.

Gracias y un saludo.

[escafandra]

Desde mi punto de vista, el visitante encontrará en el foro de Lazarus el truco que has expuesto y al entrar encontrará que está movido y el link que le llevará hasta él.

No existe gran problema. Si te fijas el área de trucos y consejos está repleto de trucos en lenguajes distintos a delphi. Yo mismo he publicado unos cuantos en C o en C y delphi simultáneamente. 

Ciertos temas pueden tener distintas ubicaciones según distintos pareceres... Lo importante es que puedan llegar a encontrarse con relativa facilidad.

En lo referente a tu truco, decir que en el entorno de Windows, desde la API, la variable de entorno "USERNAME" devuelve el usuario actual. 


Saludos.

[Jagluiperd]

Desde mi punto de vista, el visitante encontrará en el foro de Lazarus el truco que has expuesto y al entrar encontrará que está movido y el link que le llevará hasta él.

Cierto es. Gracias por la aclaración. Error mio al no fijarme.

Saludos.

[Rolphy Reyes]

Saludos.

Jagluiperd entiendo tu punto de vista y lo respeto, pero en esta sección como su nombre lo indica esa clase de hilo (post) es que deben de ir aquí.  Recuerda que este mensaje salio a raíz de este y es hecho en Delphi fíjate que enecumene lo posteo en esta sección y no en Delphi o OOP.

Como prueba aquí te muestro algunos mensajes que contienen código distinto a Delphi y/o que lo involucran:
Conocer la fecha de creación de un fichero
Simular pulsación de teclado en caracteres conseguidos con mas de una tecla
Comprueba si tu antivirus te protege

Y así podrás encontrar más.

P.D. En la sección de Lazarus queda un hilo indicando que fue movido a esta sección, creo si no me equivoco, que los usuarios que naveguen en esa sección podrán dar con tu hilo.