Lancer une commande DOS en mode administrateur

Version imprimable

07/01/2018, 16h28
zoulou153

Lancer une commande DOS en mode administrateur

Bonjour à tous

Je viens d'installer Lazarus et je me propose d'apprendre à utiliser Free Pascal.
Pour ce faire, je me suis donné comme objectif de créer un utilitaire aidant à la création de liens symboliques sous windows.
A priori rien de terrifiant.

Tout débutant dans cet environnement, j'ai cherché dans la doc et ai trouvé (merci à eux) deux liens proposant deux méthodes :
https://pascal.developpez.com/faq/?page=Turbo-Pascal-Generalites#Comment-executer-un-programme-externe
et
// http://wiki.freepascal.org/Executing_External_Programs/fr

Je bute cependant sur un 'détail'. Lorsque je lance ma commande je tombe sur une erreur 2,
et je suppose qu'elle est provoquée par le fait que la fenêtre Dos n'est pas ouverte en mode administrateur.
Jusqu'à présent je ne suis pas arrivé pas à trouver d'indications sur l'utilisation de ces méthodes (que ce soit Tprocess ou Exec) pour ouvrir une fenêtre en mode administrateur.
Est ce que je fais fausse route ?
Y a t il une solution évidente qui m'échappe ?

Merci de vos réponses
07/01/2018, 18h56
Jipété

Bonsoir,

Citation:

Envoyé par zoulou153

Est–ce que je fais fausse route ?
Y a–t–il une solution évidente qui m'échappe ?

On aurait un bout de code nous montrant comment tu t'y prends, on pourrait t'en dire plus, mais là, :cristal:...

Citation:

Envoyé par Jipété

Bonsoir,

On aurait un bout de code nous montrant comment tu t'y prends, on pourrait t'en dire plus, mais là, :cristal:...

Merci de prendre du temps pour mon problème.

Pas de soucis pour le code, mais je pensais surtout au principe de faisabilité. Est-ce quelque chose de réalisable en pascal?

En tout état de cause voici mon code ("mon" est à relativiser naturellement)
Il y a les procédures relatives aux deux liens que j'ai cité précédemment.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit procSymLnk;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils,dos,Process;
 
procedure Ecrire1Lien(Cible,NomLien : string; bRep : boolean);
procedure LancerCommandeDos(strCde : string; bWait,bOutPut : boolean);
procedure EcrireLeLien(Cible,NomLien : string; bRep : boolean);
 
implementation
 
procedure Ecrire1Lien(Cible, NomLien: string; bRep: boolean);
// https://pascal.developpez.com/faq/?page=Turbo-Pascal-Generalites#Comment-executer-un-programme-externe
var
  CodeErreur :integer;
  StrCde : String;
  strCommutateur : string;
begin
   // création de la commande
   if bRep then strCommutateur := '/D';
   strCde := 'MkLink ' + strCommutateur + ' ' + '"' + NomLien + '" "' +  Cible + '"';
 
   SwapVectors;
   Exec(GetEnv('COMSPEC'),strCde);
   SwapVectors;
   CodeErreur:=doserror;
end;
 
procedure LancerCommandeDos(strCde: string; bWait, bOutPut: boolean);
// http://wiki.freepascal.org/Executing_External_Programs/fr
var
  AProcess : TProcess;
  AStringList: TStringList;
 
begin
     AProcess := TProcess.create(nil);
     AStringList := TStringList.Create;
 
     AProcess.CommandLine := strCde;
     AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
     AProcess.Execute;
 
      AStringList.LoadFromStream(AProcess.Output);
      AStringList.SaveToFile('output.txt');
 
     AStringList.free;
     AProcess.Free;
end;
 
procedure EcrireLeLien(Cible, NomLien: string; bRep: boolean);
 
Var
StrCde : String;
strCommutateur : string;
 
begin
      if bRep then strCommutateur := '/D';
      strCde := 'MkLink ' + strCommutateur + ' ' + '"' + NomLien + '" "' +  Cible + '"';
      LancerCommandeDos(strCde,true,true);
end;
 
end.

08/01/2018, 09h23
Jipété

Citation:

Envoyé par zoulou153

Pas de soucis pour le code, mais je pensais surtout au principe de faisabilité. Est-ce quelque chose de réalisable en pascal ?

Mais bien sûr que oui ! On fait ça tous les jours (enfin, "utiliser TProcess" j'entends -- maintenant, l'erreur 2 je ne sais pas qui te la renvoie...)

Tiens, un peu de lecture
Bon, c'est sous Linux, mais c'est pour le principe, et la manière d'utiliser les paramètres (y a eu du changement depuis les tutos que tu cites).

Pas trop le temps de m'étendre, je te laisse étudier ça.
08/01/2018, 22h42
Roland Chastain

Bonjour ! Je ne connais pas la réponse mais voici une fonction qui pourrait vous être utile :

https://www.developpez.net/forums/d1...e/#post5764683