Exibindo Informações (Pasta Windows , Nome do Usuario)

[tekitos123 3]

Declare as funções

 

function WindowsDir : string;

var

buffer : array [0..255] of char;

begin

Result := '';

GetWindowsDirectory(buffer , 255);

Result := String(Buffer);

end;

 

 

function SysDir: string;

var

buffer : array [0..255] of char;

begin

Result := '';

GetSystemDirectory(buffer , 255);

Result := String(Buffer);

end;

 

function Username : string;

var

buffer : array[0..MAX_COMPUTERNAME_LENGTH+1] of char;

tam : cardinal;

begin

Result := '';

tam := MAX_COMPUTERNAME_LENGTH+1;

GetUserName(buffer, tam );

Result := String(Buffer);

end;

 

function pcname: string;

var

buffer : array[0..MAX_COMPUTERNAME_LENGTH+1] of char;

tam : cardinal;

begin

Result := '';

tam := MAX_COMPUTERNAME_LENGTH+1;

GetComputerName(buffer , tam);

Result := String(Buffer);

end;

 

agora exibindo as informações

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se