Discussion :

[ed973]

Bonjour à tous

Je cherche sous FMX l'équivalent du fameux shellexecute qui nous permet avec la VCL d'ouvrir un fichier directement dans son appli
(en fait, je souhaite ouvrir des fichiers pdf direct dans leur visionneuse)

Une idée ?
merci d'avance.

[retwas]

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
uses
{$IFDEF MSWINDOWS}
    , Winapi.Windows,  Winapi.ShellAPI
{$ENDIF}
{$IFDEF POSIX}
    , Posix.Stdlib
{$ENDIF POSIX}
 
procedure TMyForm.Button1Click(Sender: TObject);
var
  myURL: string;
begin
  myURL := 'http://google.com';
{$IFDEF MSWINDOWS}
  ShellExecute(0, 'OPEN', PChar(myURL), '', '', SW_SHOWNORMAL);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  _system(PAnsiChar('open ' + AnsiString(myURL)));
{$ENDIF POSIX}
end;

[ed973]

et bien voilà, c'est réglé

Merci pour le code: ca fonctionne parfaitement