Estoy realizando la siguiente prueba.... esta es mi Unit Global
Unit Unit8;
Interface
Function GetUserName:String;
implementation
// Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
Function GetUserName:String;
Var
PcUser : PChar;
DwUsize : DWord;
Begin
DwUsize := 21;
GetMem( PcUser, DwUsize);
Try
If Windows.GetUserName( PcUser, DwUsize ) then
Result := PcUser
Finally
FreeMem( PcUser );
End;
End;
end.
luego la llamare del menu principal del sistema...
Barra.Panels[3].Text:=GetUserName;
Pero tengo el siguiente problema... esta función me funcionaba cuando la tenia en el menú principal.... ahora que la deje sola... me da error con la variable DwUsize : DWord; me parece que es porque esta definida en otra unit.. pero no se cual es...
El error que da es Undeclared Identifier :'DWord'