Discussion :

[pdtor]

Salut,

Je voudrais juste afficher la chaine de caractere dans la variable th_profile_path_1 ci-dessous mais elle ne s'affiche qu'a moitie!

Vous savez pourquoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
function GetCurrentUserName : string;
const
  cnMaxUserNameLen = 254;
var
  sUserName     : string;
  dwUserNameLen : DWord;
begin
  dwUserNameLen := cnMaxUserNameLen-1;
  SetLength( sUserName, cnMaxUserNameLen );
  GetUserName(
    PChar( sUserName ),
    dwUserNameLen );
  SetLength( sUserName, dwUserNameLen );
  Result := sUserName;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var login, th_profile_path_1, th_profile_path_2, th_profile_path_3: String;
begin
      login := GetCurrentUserName;
 
      th_profile_path_1 := 'C:\Documents and Settings\' + login + '\Application Data\Thunderbird\Profiles\profiles.ini';
 
      ShowMessage(th_profile_path_1);
end;

Stephane

[Cl@udius]

Salut

Tu as omis de supprimer le #0 lors du SetLength, ce qui tronque ta chaine finale lors de la concaténation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function GetCurrentUserName : string;
// ...
begin
  // ...
  SetLength( sUserName, dwUserNameLen - 1);  // - 1 pour supprimer le #0
  Result := sUserName;
end;

Ta fonction peut-être simplifiée ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function UserName: string;
var
  Name: array [0..255] of Char;
  Size: Cardinal;
begin
  Result := '';
  Size := SizeOf(Name);
  if GetUserName(@Name, Size) then
    Result := StrPas(Name);
end;

Ensuite le chemin que tu construis variera suivant l'OS, sous Vista et Seven C:\Documents and Settings\ et été remplacé par C:\Users\ .
Autant aller lire la variable d'environnement USERPROFILE dans ce cas.

@+ Claudius.

[pdtor]

Merci ca marche perfect, Cl@udius . Au fait, tu sais comment lire la variable d'environnement USERPROFILE sous delphi ?

[Cl@udius]

Merci ca marche perfect, Cl@udius .

Pas de quoi.

Au fait, tu sais comment lire la variable d'environnement USERPROFILE sous delphi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetEnvironmentVariable('VariableDeTonChoix')

[pdtor]

Merci. Ca marche!