Discussion :

[BuzzLeclaire]

Bonjour tout le monde,

Me voilà sur D2009... mdr...

J'utilise cette fonction qui se trouve sur ce fofo :

http://delphi.developpez.com/faq/?pa...#lireinfosprog

D'ailleur j'ai modifié la ligne :
liste.add(VersionInfo[i]+' : '+strPas(InfoData));
par
liste.add(VersionInfo[i]+' : '+strPas(PChar(InfoData)));


Dans cette procédure

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Caption := 'Mon programme ' + GetFileInfo(ParamStr(0),Memo1.Lines);
end;

J'ai cette erreur
[DCC Erreur] PagePrincipal.pas(33): E2010 Types incompatibles : 'string' et 'procedure, untyped pointer or untyped parameter'

Et là euh... je voit pas du tout.

Quelqu'un connait ?

[Paul TOTH]

GetFileInfo n'est pas une fonction

[BuzzLeclaire]

Re,

Ok j'ai pigé mon erreur, voilà ce que je fais maintenant :

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  GetFileInfo(ParamStr(0),Memo1.Lines );
  Self.Caption := 'Mon programme ';
end;

Sauf que mon Memo1 reste vide ?

[BuzzLeclaire]

GetFileInfo n'est pas une fonction

On a ecris en même temps....lol

[BuzzLeclaire]

Ok,

J'avais pas mis les infos inclus dans le soft... quel bouffon...

..

dsl

[Dr.Who]

Une petite unité utile (voir piece jointe)

exemple de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
uses VerInfos;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  VersionInfos : TVersionInfos;
begin
  {$IF RTLVersion >= 18.0}
  VersionInfos.GetInfos(ParamStr(0));
  VersionInfos.ToList(ListBox1.Items, ntFRA);
  {$ELSE}
  GetVersionInfosList(ParamStr(0), ListBox1.Items, ntFRA);
  {$IFEND}
end;

[BuzzLeclaire]

Une petite unité utile (voir piece jointe)

exemple de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
uses VerInfos;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  VersionInfos : TVersionInfos;
begin
  {$IF RTLVersion >= 18.0}
  VersionInfos.GetInfos(ParamStr(0));
  VersionInfos.ToList(ListBox1.Items, ntFRA);
  {$ELSE}
  GetVersionInfosList(ParamStr(0), ListBox1.Items, ntFRA);
  {$IFEND}
end;

Merci.