Discussion :

[SergioF]

J'utilise Kylix 3 sur une distrib RedHat 9

Je cherche "simplement" à lancer un binaire depuis mon application
en Kylix (application en pascal).

Il y a bien des fonctions comme "ShellExec" pour ceux qui codent en C, mais je ne trouve rien pour le Pascal....

Help !

[tretsois]

dans ta clause uses ajoute libc
et ensuite c libc.system('la commade')
mais pour moi ca marche pas car dans mon appli j'en ai besoin aussi.
Crée une simple fiche avec un bouton et test mon code:

unit Unit1;

interface

uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls, libc;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
function ToString(I:integer):string;

var
Form1: TForm1;

implementation

{$R *.xfm}

function ToString(I:integer):string;
var
S:string[2];
Begin
Str(I,S);
Result:=S;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
Erreur: integer;
strErr:string[2];
macmd:array of char;
begin
{macmd:=" ";}
Erreur:=libc.system('ls'); {remplacer 'ls' par macmd }
strErr:=ToString(Erreur);
if Erreur <> 0 then
ShowMessage('Erreur retourné:' + strErr);
end;

end.

[tretsois]

Le code au dessus est bon sauf que j'utilise des lib i386-compat je n'ai pas de résultat mais en dehors de l'EDI (projet compile) je lance le Project1 et ca marche

[SergioF]

Yes ca works !

Merci.

[AllanMT]

Effectivement, cela fonctionne avec l'appel libc.system, par contre le retour au programme appelant s'effectue lorsque l'appelé a fini (on a les 2 process actifs).

Je vousdrais disposer simplement d'un programme lanceur d'une application (avec des paramètres définis dynamiquement et, dès qu'il a lancé l'application puisse se fermer (close) (équivalent de NOWAIT)

Le tout en Pascal/Kylix (peu-être l'utilisation de spawn, mais comment y accéder en Pascal ,,).

Avez-vous des idées ???

Merci

[tretsois]

Salut AllanMT, Essais de remplacer dans le code dejà citer la procedure:

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
libc.system('ls'); {remplacer 'ls' par ce que tu veux lancer } 
end;

Théoriquement ca marche MAIS théoriquement tu n'as pas de retour (qui te garantit que 'ls' s'est lancé)
Une façon plus élégante de faire ce que tu veux serais d'essayer de lancer libc.system dans le destructeur de l'appli en ignorant toutes les exceptions (mais pas top si le programme lanceur plante ).