Discussion :

[Chemmister]

Bonjour à tous!

J'ais un nom de fichier que je sélectionne dans la forme et que je place dans une variable. J'aimerais savoir s'il est possible d'effectuer une commande DOS avec Shellexecute et cette variable

Par exemple au lieu de ça: ShellExecute(0, nil, 'cmd.exe', 'del Alice.txt', nil, SW_SHOW);

J'aimerais avoir ça:

TOTO := Alice.txt;
ShellExecute(0, nil, 'cmd.exe', 'del TOTO', nil, SW_SHOW);


Merci

[Paul TOTH]

Bonjour à tous!

J'ais un nom de fichier que je sélectionne dans la forme et que je place dans une variable. J'aimerais savoir s'il est possible d'effectuer une commande DOS avec Shellexecute et cette variable

Par exemple au lieu de ça: ShellExecute(0, nil, 'cmd.exe', 'del Alice.txt', nil, SW_SHOW);

J'aimerais avoir ça:

TOTO := Alice.txt;
ShellExecute(0, nil, 'cmd.exe', 'del TOTO', nil, SW_SHOW);


Merci

Code :

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

1
2
3
4
5
6
7
 
var
  TOTO: string;
begin
  TOTO := 'Alice.txt';
  ShellExecute(0, nil, 'cmd.exe', PChar('del ' + TOTO), nil, SW_SHOW);
end;

ça promet

[Roland Chastain]

D'ailleurs il faut ajouter /c au début de la chaîne qui contient la commande.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program ShellExecute1;
 
uses
  ShellAPI, Windows;
 
var
  nf: string;
 
begin
  nf := 'ShellExecute1.~dpr';
  ShellExecute(0, 'open', 'cmd.exe', PChar('/c del ' + nf), nil, SW_SHOW);
end.