Função para verificar um tipo de variável

Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’; varNull: result := ‘Null’; varSmallInt: result := ‘SmallInt’; varInteger: result := ‘Integer’; varSingle: result := ‘Single’; varDouble: result := ‘Double’; varCurrency: result := ‘Currency’; varDate: result := ‘Date’; varOleStr: result := ‘OleStr’; varDispatch: result :=

Continuar lendo »

Obter o username logado no Windows

Como obter o username logado no Windows em Delphi Esta função permite que através da rotina GetUserName da API do Windows seja possível recuperar o usuário (username) que se logou ao windows. function UsuarioLogado : string; var nsize: Cardinal; UserName: string; begin nsize := 25; SetLength(UserName,nsize); if GetUserName(PChar(UserName), nsize) then begin SetLength(UserName,nsize-1); Result := UserName;

Continuar lendo »
Pages:«1...6789101112...22»