Discussion :

[mm_71]

D'après qq. messages de plusieurs années SetEnvironmentVariable n'existe que sous windows, il y-a t-il eu quelque équivalent depuis ? Parce que :

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
21
begin
     A_Process.Executable:='/bin/sh';
     A_Process.Options:=A_Process.Options+[poUsePipes,poNewConsole];
     Memo_Result.Clear;
 
       for I := 1 to GetEnvironmentVariableCount do begin
       A_Process.Environment.Add(GetEnvironmentString(I));
       Memo_Result.Lines.Add(GetEnvironmentString(I));
       end;
 
       Memo_Result.Lines.Add('');
       Memo_Result.Lines.Add('----------------------------------------');
       Memo_Result.Lines.Add('');
 
       A_Process.Executable := '/bin/sh';
       A_Process.Environment.Add('export WINEPREFIX=/usr/local');
       A_Process.Execute;
        for I := 1 to GetEnvironmentVariableCount do
         Memo_Result.Lines.Add(GetEnvironmentString(I));
 
end;

Ne fait rien ( également essayé des variantes sans plus de succès ). Si il faut que je passe par des scripts .sh pour y arriver ça va être un peu lourdingue.

[Jipété]

Salut,

histoire de faire un peu avancer le schmilblik,

1- je ne comprends pas ce que tu racontes : dans le texte tu parles de Set et dans le code de Get...

2- à propos de ta ligne Environment.Add, la doc précise bien qu'il s'agit de couples Name=Value, pas sûr que ton "export NOM=blah" fonctionne comme tu l'attends. Peut-être en virant "export" ?

3- as-tu lu cette page ? Je suppose que oui, mais je te recopie ce qui me semble intéressant :

Important notes:
TProcess is not a terminal/shell! You cannot directly execute scripts or redirect output using operators like "|", ">", "<", "&" etc.

Cependant, la page des exemples montre bien une utilisation comme tu l'envisages de Executable := '/bin/sh'; dans l'exemple "using fdisk", presque tout en bas : à étudier...

EDIT :
Si au final ton problème est de lancer un exécutable en prenant en compte un chemin pouvant être différent selon les machines, pourquoi ne pas construire ce chemin avant, en dehors de tout TProcess, et une fois la ligne de commande bien construite, la lui passer en un bloc ?

[mm_71]

Je ne comprends pas ce que tu racontes : dans le texte tu parles de Set et dans le code de Get...

Mais plus bas dans mon code il y-a:

Code :

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

A_Process.Environment.Add('export WINEPREFIX=/usr/local');

Pour montrer que la liste des variables n'a pas changé malgré cette instruction. Pour parvenir à mes fins à la base j'ai besoin de faire dans lazarus ce que fait ce script:

Code :

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

1
2
3
4
5
6
#!/bin/sh#!/bin/sh
WINEPREFIX=$HOME/.wine/w7_32/
export WINEPREFIX="$HOME/.wine/w7_32/"
cd $WINEPREFIX/drive_c/Program\ Files/Bounty\ Train
wine start /unix BountyTrain.exe 
/bin/bash

Et si je ne peux pas créer et exporter une variable d'environnement depuis Lazarus ça va sérieusement me compliquer la vie.

as-tu lu cette page ? Je suppose que oui

Oui, et c'est justement sur cette page qu'il est dit que ce que je veux est impossible mais comme ces pages ne sont pas d'hier j'espère que la situation a évolué depuis.

Si au final ton problème est de lancer un exécutable en prenant en compte un chemin pouvant être différent selon les machines

Non, pas du tout, le but je l'ai exposé ici:
https://www.developpez.net/forums/d1...reur-terminal/
Mais comme la question est différente j'ai ouvert un nouveau fil.

Pour faire simple je décompose en étapes ce que je veux:
1: Lancer un exe wine préfixé dans un terminal sans avoir à utiliser un script. ( Avec le script je sais faire ).
2: Récupérer dans un memo toutes les sorties du terminal.
3: Tout stopper et récupérer le contrôle du bazar si il y-a un plantage à l’exécution.

[mm_71]

Je crois avoir trouvé.

Code :

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

1
2
3
4
5
6
7
8
with TProcess.Create(nil) do begin
    Executable:='wine';
    for I := 1 to GetEnvironmentVariableCount do Environment.Add(GetEnvironmentString(I));
    Environment.add('WINEDEBUG=fixme-all');
    Parameters.add('/media/moi/home_common/wine_games/setup_starpoint_gemini_warlords_1.400.4_(15449)_(g).exe');
    Options := Options+[poWaitOnExit,poUsePipes,poNewConsole];
    Execute;
 end;

Les docs sont vraiment d'une indigence post apocalytique...

[BeanzMaster]

Salut il semblerai d'après ce que j'ai pu lire ici (2eme post) que tu puisses récupérer tes variables d'environnement avec SysUtils.GetEnvironmentVariable

EDIT : J'ai trouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je pense

FpExecL : Execute process (using argument list, environment)
FpExecLE : Execute process (using argument list, environment)
FpExecLP : Execute process (using argument list, environment; search path)
FpExecLPE : Execute a program in the path, and pass it an environment
FpExecV : Execute process
FpExecVP : Execute process, search path
FpExecVPE : Execute process, search path using environment
WIFSTOPPED : Check whether the process is currently stopped.

[mm_71]

Salut il semblerai d'après ce que j'ai pu lire ici (2eme post) que tu puisses récupérer tes variables d'environnement avec SysUtils.GetEnvironmentVariable

Oui, c'est ce que je faisais, mais le problème n'était pas tant de les récupérer que d'assigner des varaibles d'environnement supplémentaires à un TProcess.
Dans le message 3 j'avais trouvé la réponse, quand on ajoute une variable au TProcess elle n'existe qu'a l'intérieur de ce dernier, la liste des variables d'environnement du système ne la prend pas en compte d’où une certaine perplexité.

J'ai trouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je penseouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je pense

Oui, c'est fort possible, je vais me pencher dessus.