Discussion :

[vg-matrix]

tout le monde, je veux lancer un fichier texte présent dans le repertoire de mon application mais j'ai une erreur à la compilation:

Code :

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

1
2
3
4
5
6
7
8
9
uses
ShellApi;
procedure TFenlanc.BitBtn5Click(Sender: TObject);
var
  Fichlic : Pchar;
begin
  Fichlic := GetCurrentDir + '\Licence.txt';
  ShellExecute(0,'OPEN','Notepad.exe', Fichlic, Nil, SW_SHOW);
end;

J'ai l'erreur suivante:

Incompatible types: 'String' and 'PAinsiChar'

Que dois-je faire?

[ero-sennin]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
uses
ShellApi;
procedure TFenlanc.BitBtn5Click(Sender: TObject);
var
  Fichlic : string;
begin
  Fichlic := GetCurrentDir + '\Licence.txt';
  ShellExecute(0,'OPEN','Notepad.exe', PChar(Fichlic), Nil, SW_SHOW);
end;

ou même ceci devrait fonctionner (si la version de delphi utilisée est supérieure à la version 4 et inférieure à 2009) :

Code :

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

1
2
3
4
5
6
7
8
9
uses
ShellApi;
procedure TFenlanc.BitBtn5Click(Sender: TObject);
var
  Fichlic : string;
begin
  Fichlic := GetCurrentDir + '\Licence.txt';
  ShellExecute(0,'OPEN','Notepad.exe', Fichlic, Nil, SW_SHOW);
end;

A+

[vg-matrix]

ça fonctionne