0/5 (6 avis)
Snippet vu 21 583 fois - Téléchargée 32 fois
//************************************************************* // Fonction Trouvant Le nom de L'ordinateur //************************************************************* function ComputerName():string; var MyComputerName : array[0..MAX_COMPUTERNAME_LENGTH] of Char; nSize : DWord; begin nSize := SizeOf(MyComputerName); GetComputerName(@MyComputerName, nSize); result := MyComputerName; end; //************************************************************* // Fonction Trouvant Le nom de L'Utilisateur //************************************************************* function UserName():string; const cnMaxUserNameLen = 254; var UserName : string; nSize : DWord; begin nSize := cnMaxUserNameLen - 1; SetLength(UserName, cnMaxUserNameLen); GetUserName(Pchar(UserName), nSize); SetLength(UserName, nSize -1); result := UserName; end;
1 mai 2009 à 13:16
Il fonctionne bien ^^.
15 nov. 2005 à 06:50
1 juin 2004 à 16:38
je trouve partout comment l'utiliser, mais je n'arrive pas à voir comment la déclarer.
merci d'avance
2 mai 2004 à 21:35
30 avril 2004 à 18:03
[Erreur] Project1.dpr(12): Identificateur non déclaré : 'MAX_COMPUTERNAME_LENGTH'
[Erreur] Project1.dpr(13): Identificateur non déclaré : 'DWord'
[Erreur] Project1.dpr(17): Identificateur non déclaré : 'GetComputerName'
[Erreur] Project1.dpr(29): Identificateur non déclaré : 'DWord'
[Erreur] Project1.dpr(34): Identificateur non déclaré : 'GetUserName'
[Erreur] Project1.dpr(42): Identificateur non déclaré : 'hWnd'
Ya t'il qqch a déclarer ou j'ai oublier qqch ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.