mettre un lienRésolu

Question

slt
je voudrai savoir si c possible de mettre des liens 
exple: "c:\bdd\lettre.doc"
dans une application pour pouvoir ouvrir le fichier pointé avec l'application adequate

cupracing · Answer

Oui en utilisant ShellExecute voici un exemple:


procedure ....
var aide : string;

begin
     aide := Repertoire.Repencours + '\Help\Utilization\English.htm';
     ShellExecute(0, 'open', PChar(aide), Nil, Nil, SW_SHOWNORMAL);


il faut ajouter l'unité "shellapi" 

uses shellapi;


@lex

cupracing · Answer

uses ShellApi;

procedure ouvre_fichier;
var 
varstr: string;

begin

varstr:= 'c:\Aide.htm';
ShellExecute(0, 'open', PChar(aide), Nil, Nil, SW_SHOWNORMAL);

end;

cupracing · Answer

oups je suis vraiment pas bien réveillé ce matin... bien sûr dans mon exemple juste ci dessus il faut mettre ... PChar(varstr) ... et non PChar(aide)... désolé pour cette erreur, il faudrait pouvoir prévisualiser les message  :)

jmp77 · Answer

Hello,

Ouais c'est possible tu utilises pour cela commande shellexecute.
 exemple : ShellExecute(HInstance, nil, 'c:\UpdaterUserManual.pdf', nil, nil, SW_SHOWNORMAL);

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

ni69 · Answer

Si tu veux mettre un lien dans un label, du genre liens internet, tu peux également mettre ce code :

uses ShellAPI;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Label3.Font.Color := clBlue;
Label3.Font.Style := [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label3.Font.Color := clBlack;
Label3.Font.Style := [];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0,'open',PChar(NomDeL'applicationALancerOuSiteWeb),NIL,NIL,SW_SHOWNORMAL);
end;

Avec en plus le curseur 'crHandPoint' pour ton label...

Il existe aussi des compos qui permettent de faire ça simplement, mais ce code reste accessible à tout le monde  :) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

jmp77 · Answer

Désolé cupracing j'ai posté en meme temps que toi.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

jmp77 · Answer

Pour complété le code NI69 si je peux me permettre :

Si tu as plusieurs label tu peux ne faire que deux procedures générales Pour quand le souris passe ou non dessus :

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
(Sender As TLabel).Font.Color := clBlue;
(Sender As TLabel).Font.Style := [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
(Sender As TLabel).Font.Color := clBlack;
(Sender As TLabel).Font.Style := [];
end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

ni69 · Answer

Merci d'avoir apporté cette précision jmp77  :) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

cs_topnad · Answer

merci à tous !!!!!!

Mettre un lien

9 réponses

Votre réponse

Discussions similaires