Pascal/Turbo Pascal - Unit en Pascal (Duda Urgente!)

 
Vista:
sin imagen de perfil

Unit en Pascal (Duda Urgente!)

Publicado por Samuel (1 intervención) el 29/08/2013 16:15:22
Buenas, como les va gente.

Bueno sin vueltas que darle les quería preguntar si por las dudas alguien sabe si existe alguna Unit/Procedimiento o algo para rescatar en una variable durante la ejecución del programa el nombre de usuario de WINDOWS.
Por poner un ejemplo.
Supongamos que existe una unidad "Windows" y dentro de esa unidad un procedimiento NombreUsuario(VAR nombre:STRING);

entonces..

PROGRAM MostrarNombre;
USES CRT, WINDOWS;
VAR
nombre:STRING;

BEGIN

NombreUsuario(nombre); //Asigna el nombre de usuario de windows a través de la UNIT "WINDOWS" con el procedimiento "NombreUsuario"


WRITELN('Bienvenido: ' + nombre); //Muestra por pantalla el nombre de usuario de windows,
END;


Bueno esto no existe realmente pero les agradecería mucho si alguien tiene una idea si existe algo así en pascal y que me pueda decir como. Desde ya muchas gracias.

Lo necesito urgentemente porque estoy haciendo un proyecto. ;)

Saludos!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Unit en Pascal (Duda Urgente!)

Publicado por ramon (2158 intervenciones) el 31/08/2013 23:54:10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{Mira si esto te ayuda a ello.
 
 program nombre;
 uses
   crt, dos;
 
  var
    nomb : string;
  begin
      clrscr;
      nomb := getenv('username');
      writeln('  El Nombre De Usuario Es = ',nomb);
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar