Programm innerhalb der Umgebungsvariablen ???

[guitarre]

Hallo zusammen,

in meinem Programm soll der Anwender über einen Button ausführbare Programme seiner Wahl hinzufügen können.
Ich möchte aber unterscheiden, ob das ausgewählte Programm die komplette Pfadangabe benötigt,
oder ob es sich direkt starten lässt.
Dazu muss ich wissen, ob, bzw. wie man das feststellen kann.
Also etwa in der Art:

Delphi-Quellcode:

if meinProgramm %Umgebungusvariable% = True then......

Kennt jemand von Euch vielleicht eine Möglichkeit ????
Danke und mit freundlichen Grüßen
guitarre

[DeddyH]

Zitat:

Ich möchte aber unterscheiden, ob das ausgewählte Programm die komplette Pfadangabe benötigt,
oder ob es sich direkt starten lässt.

Wozu soll das gut sein? Außerdem kann das Programm, das sich im Suchpfad befindet, ein ganz anderes sein als jenes, das der Benutzer auswählt.

[guitarre]

@DeddyH,

der Benutzer wählt sein Programm über einen Button aus, der ihn dann per "Explorer" zu seinem Programm in einem bestimmten Pfad führt.
Weiterhin werden diese Daten in einer Konfigurationsdataei gespeichert.
Da sich Programme innerhalb der Umgebungsvariablen direkt starten lassen,
könnte ich mir in diesem Fall das Speichern Der Pfadangaben sparen.
Gruß guitarre

[DeddyH]

Hallo,

mal schnell dahergeschrieben:

Delphi-Quellcode:

procedure GetDirsInPathVariable(sList: TStrings);
var s: string;
begin
  (*Achtung: die Umgebungsvariable Path kann auch länger werden als MAX_PATH,
    man muss sich daher über eine vernünftige Puffergröße Gedanken machen*)
  SetLength(s,MAX_PATH);
  GetEnvironmentVariable('path',PChar(s),Length(s) - 1);
  SetLength(s,StrLen(PChar(s)));
  while Pos(';',s) > 0 do
    begin
      sList.Add(Copy(s,1,Pos(';',s) - 1));
      Delete(s,1,Pos(';',s));
    end;
  if Length(s) > 0 then
    sList.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetDirsInPathVariable(ListBox1.Items);
end;

[guitarre]

@DeddyH,
sorry, dass ich mich jetz erst melde, war ein paar Tage im Krankenhaus.

Danke für Deinen Lösungsvorschlag, aber wenn ich das Programm starte wird mir in der ListBox immer nur die comctl32.dll angezeigt ????

Aber Du hast mich auf eine Lösungsmöglichkeit gebracht.

Ich habe die Zeile

Delphi-Quellcode:

GetEnvironmentVariable('Path',PChar(s),Lenght(s)-1);

durch

Delphi-Quellcode:

s := GetEnvironmentVariable('Path');

ersetzt.
Wobei mir aber nicht klar ist, warum Dein Vorschlag nicht funktioniert.

Danke guitarre

[DeddyH]

Hallo, ich habe gar nicht gewusst, dass es in der Unit SysUtils auch die Funktion GetEnvironmentVariable gibt. Die von mir verwendete steht in der Unit Windows, man hätte also einfach nur Windows.GetEnvironmentVariable schreiben müssen. Aber wenn es jetzt geht, ist es ja gut. :cheers:

[guitarre]

Hallo, das wusste ich vorher auch nicht, Danke nochmal
guitarre