[erledigt] wie setzt man Umgebungsvariablen

[alfware17]

In dem folgenden, bereits funktionierenden Code

Code: Alles auswählen

Unit logik;

{$mode ObJFPC}

interface

const daten_slash = {$IFDEF Linux} '/' {$ELSE} '\' {$ENDIF};
      daten_pfad: String = '';
      daten_database: String = 'dbZitate.s3db';
      daten_dateiname: String = 'dbZitate.s3db';
      daten_dateilokal: Boolean = true;
      still: Boolean = false;

procedure sucheDatei(sDateiname: string);
procedure testEnv(value:String);

implementation

uses SysUtils, Dos {$IFNDEF Linux}, Registry {$ENDIF};

function addPfad(eins, zwei: string):string;
var temp: string;
begin
   temp:=eins;
   if (temp <> '') and
      (temp[length(temp)] <> daten_slash) and
      (zwei <> '')
      then temp:=temp+daten_slash;
   temp:=temp+zwei;
   Result:=temp;
end;

{$IFNDEF Linux}
function GetRegZitadell(Key: string):string;
var Registry: TRegistry;
    tempdir, temppfad: string;
begin
   Registry := TRegistry.Create; tempdir:='';
   try
      Registry.RootKey := HKEY_LOCAL_MACHINE;
      if Registry.OpenKeyReadOnly('\SOFTWARE\'+Key)
         then tempdir:= Registry.ReadString('');
   finally
      Registry.Free;
   end;
   temppfad:=addpfad( tempdir, daten_database );
   if DirectoryExists(tempdir) and FileExists(temppfad)
      then result:=tempdir else result:='';
end;
{$ENDIF}

function GetEnvZitadell(Key: string):string;
var tempdir, temppfad:string;
begin
   tempdir:=GetEnvironmentVariable(Key);
   temppfad:=addpfad( tempdir, daten_database );
   if DirectoryExists(tempdir) and FileExists(temppfad)
      then result:=tempdir else result:='';
end;

procedure SetEnvZitadell(Key, Value: string);
begin
   SetEnvironmentVariable(Key, Value);
end;

function GetHomeZitadell(Extension: string):string;
var tempdir, temppfad: string;
begin
   tempdir:=GetUserDir;
   tempdir:=addpfad( tempdir, Extension );
   temppfad:=addpfad( tempdir, daten_database );
   if DirectoryExists(tempdir) and FileExists(temppfad)
      then result:=tempdir else result:='';
end;

function GetLwUserDirZitadell(Lw, Key: string):string;
var tempdir, temppfad:string;
begin
   tempdir:=addpfad( Lw, Key );
   temppfad:=addpfad( tempdir, daten_database );
   if DirectoryExists(tempdir) and FileExists(temppfad)
      then result:=tempdir else result:='';
end;

function GetUserDirZitadell(Key: string):string;
var temp:string;
begin
   {$IFDEF LINUX}
      temp:=GetLwUserDir('', Key)
   {$ELSE}
      temp:=GetLwUserDirZitadell('c:', Key);
      if temp = '' then temp:=GetLwUserDirZitadell('C:', Key);
   {$ENDIF};
   result:=temp;
end;

//0:  Registry  (* nur Windows *)
//    GetRegZitadell
//    Registry \SOFTWARE\Alfware\Zitadell und ALFWARE/ZITADELL und alfware/zitadell
//    Groß-/ Klein-Schreibung kann eigentlich entfallen
//
//1:  Environment-Variable Zitadell
//    GetEnvZitadell
//    ENV   Zitadell und ZITADELL und zitadell
//
//2:  Home (Eigene Dateien)
//    GetHomeZitadell
//    USER/   . und /Zitadell und /documents und /Dokumente und /documents/Zitadell und /Dokumente/Zitadell
//    USER/         /ZITADELL und /documents/ZITADELL und /Dokumente/ZITADELL
//    USER/         /zitadell und /documents/zitadell und /Dokumente/zitadell
//
//3:  User
//    GetUserDirZitadell
//    Win: c:/  C;/  /Zitadell und /Bernd/Zitadell und bernd/Zitadell
//                   /ZITADELL und /Bernd/ZITADELL und bernd/ZITADELL
//    Linux ohne     /zitadell und /Bernd/zitadell und bernd/zitadell
//

procedure zitadellPfad(psteuer: Integer);
begin
   if daten_pfad <> '' then exit;
   case psteuer of
   {$IFNDEF Linux}
   0: begin
         (* Registry *)
         if daten_pfad = '' then daten_pfad:= GetRegZitadell('Alfware\Zitadel1');
         if daten_pfad = '' then daten_pfad:= GetRegZitadell('ALFWARE\ZITADELL');
         if daten_pfad = '' then daten_pfad:= GetRegZitadell('alfware\zitadell');
      end;
   {$ENDIF}
   1: begin
         (* Environment Variable *)
         if daten_pfad = '' then daten_pfad:= GetEnvZitadell('Zitadell');
         if daten_pfad = '' then daten_pfad:= GetEnvZitadell('ZITADELL');
         if daten_pfad = '' then daten_pfad:= GetEnvZitadell('zitadell');
      end;
   2: begin
         (* Home-Dir *)
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('Zitadell');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('ZITADELL');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('zitadell');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('documents');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell('Dokumente');
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('documents','Zitadell'));
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('Dokumente','Zitadell'));
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('documents','ZITADELL'));
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('Dokumente','ZITADELL'));
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('documents','zitadell'));
         if daten_pfad = '' then daten_pfad:= GetHomeZitadell(addPfad('Dokumente','zitadell'));
      end;
   3: begin
         (* User-Dir *)
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell('Zitadell');
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('Bernd','Zitadell'));
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('bernd','Zitadell'));
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell('ZITADELL');
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('Bernd','ZITADELL1'));
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('bernd','ZITADELL1'));
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell('zitadell');
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('Bernd','zitadell'));
         if daten_pfad = '' then daten_pfad:= GetUserDirZitadell(addPfad('bernd','zitadell'));
      end;
   else
   end;
end;

procedure sucheDatei(sDateiname: string);
var vorhanden: boolean;
begin
   Writeln('Start sucheDatei');
   zitadellPfad(0);
   zitadellPfad(1);
   zitadellPfad(2);
   zitadellPfad(3);
   vorhanden:= false;
   if sDateiname <> '' then begin
      daten_dateiname:= sDateiname;
      if fileExists( daten_dateiname ) then begin
         daten_dateilokal:= true;
         if not still then Writeln( 'Dateiname: ' + daten_dateiname + ' gefunden' );
         vorhanden:= true;
      end;
      if ( not vorhanden ) and fileExists( addPfad(daten_pfad, daten_dateiname) ) then begin
         daten_dateilokal:= false;
         if not still then Writeln( 'Dateiname: ' + addPfad(daten_pfad, daten_dateiname)+ ' gefunden' );
         vorhanden:= true;
      end;
   end;
   if daten_pfad = '' then Writeln('Nichts gefunden?');
   Writeln('Beendet sucheDatei');
end;

procedure testEnv(value: string);
begin
   SetEnvZitadell('zitadell','Testwert');
   Writeln(GetEnvZitadell('zitadell1'));
end;

begin
end.

frage ich wenn auch etwas umständlich würdet Ihr sagen Systemvariablen, Registry und ein paar Directories ab, ob da eine bestimmte Datei ist, die Reihenfolge ist wichtig.

Nun wollte ich die Systemvariable auch setzen, in einigen Google-Suchen wie auch von ChatGPT wird angegeben, es gäbe eine

Code: Alles auswählen

SetEnvironmentVariable()

Methode in den Sysutils.
Leider compiliert das nicht und ich finde die Methode auch nicht in der Sysutils-Übersicht. Warum gibt es kein Gegenstück zur

Code: Alles auswählen

GetEnvironmentVariable()

?

Ich hatte für das Lesen auch erst GetEnv() von Pascal benutzt, ok den (für mich marginalen) Unterschied habe ich gelesen. Allerdings finde ich auch kein SetEnv() oder so. Wie macht man das denn?

Und wenn Ihr ganz lieb seid, schaut Ihr Euch bitte auch noch mal mein Registry-Auslesen an. Das wäre nämlich die nächste Frage - wie schreibe ich den bestimmten Schlüssel in der Registry. Ja ich weiß, selber rumschreiben in der Registry ist gefährlich - aber irgendwie muß man da ja Werte reinbekommen können.
Ich hatte vor Jahren mal eine Programm-Installationsroutine (EasySetup), das hat mir beide Aufgaben (Registry und Umgebungsvariable setzen) erledigt. Leider funktioniert das nicht mehr(?) unter Win7/10/11 und somit hatte ich die Idee, schnell selbst ein Dienstprogramm zu schreiben, was eben das macht. Oder gibt es solche kleinen Programme, Lazarus schreiben wäre natürlich viel besser.

[theo]

Das wurde im Hauptforum mehrfach diskutiert:

https://forum.lazarus.freepascal.org/in ... ic=45987.0
https://forum.lazarus.freepascal.org/in ... ic=58314.0
etc.

Scheint nicht so eine gute Idee.

[h-elsner]

Install Routinen würde ich mit InnoSetup machen. Mit entsprechender Lernkurve kann das wohl alles, was man sich wünscht.
Ich habe allerdings schon sehr lange kein Installationsgeraffel mehr benutzt.

Gruß HE

[Socke]

Und wenn Ihr ganz lieb seid, schaut Ihr Euch bitte auch noch mal mein Registry-Auslesen an. Das wäre nämlich die nächste Frage - wie schreibe ich den bestimmten Schlüssel in der Registry. Ja ich weiß, selber rumschreiben in der Registry ist gefährlich - aber irgendwie muß man da ja Werte reinbekommen können.

Siehe viewtopic.php?t=8018

Code: Alles auswählen

   Registry := TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);
   try
      Registry.RootKey := HKEY_LOCAL_MACHINE;
      if Registry.OpenKey('\SOFTWARE\'+Key)
         then tempdir:= Registry.WriteString('Name', 'Wert');
   finally
      Registry.Free;
   end;

Für den ändernden Zugriff auf HKEY_LOCAL_MACHINE muss dein Programm ggf. als Admin gestartet werden.

[charlytango]

mein Post geht von der Annahme aus dass du "von außen" Einstellungen in einer Applikation machen möchtest.
zB Name der Datenbank etc.

Ja ich weiß, selber rumschreiben in der Registry ist gefährlich - aber irgendwie muß man da ja Werte reinbekommen können.

Ich konnte nie die Begeisterung nachvollziehen alle Einstellungen für Programme und Betriebssystem in einer gemeinsamen Struktur zu verwalten. Das macht diese Struktur IMHO unhandlich und anfällig für Probleme die mit einer zerschossenen Registry einhergehen und immer wieder auch mal auftraten.
Ja, es gibt Argumente dafür, besonders in Unternehmensnetzwerken (meist mit personalisierten Desktops) aber wo immer es ging habe ich vermieden dass sich meine Programme ins OS graben.

Eine Datei (oder je nach Anwendung auch mehrere) im Programmverzeichnis (oder einem beliebigen anderen Verzeichnis) kann alle nötigen Einstellungen enthalten. Welches Format die hat (INI,XML,JSON oder irgendwas eigenes) ist für mich Geschmackssache. Wenn man die Einstellungen (zb gegen neugierige übermotivierte Benutzer) schützen will kann man diese Datei auch mehr oder weniger stark verschlüsseln.

Dazu in der Applikation eine Struktur schaffen um auf diese Einstellungsdaten überall im Programm zugreifen zu können.
Ich benutze dazu meistens ein Singleton-Objekt (dazu findest du hier im Forum einiges) das die Lese- und Schreibfunktionen sowie die Einstellungsdaten enthält. Ich verwende meistens TMemINI (für andere Formate vielleicht TXMLConfig oder TJSONConfig), das liest die gesamte Datei auf einmal ein und lässt sich wie eine INI-Datei im Speicher verwenden. Das ganze in eine Unit gepackt und du hast ein wiederverwendbares zuverlässiges Vehikel für deine Einstellungswerte.

[Ally]

Hallo,

anbei zwei Beispiele wie man Werte in der Windows-Registry oder einer Ini-Datei sichern und wieder einlesen kann.
Exemplarisch habe ich dazu die Fensterwerte für Position, Größe usw. verwendet.

Die Variante im XReg Ordner verwendet TRegistry.
TRegistry ist in Lazarus plattformübergreifend implementiert. ( https://wiki.freepascal.org/fcl-registry )
Ich habe eine kleine Unit dafür gebaut, die String, Integer, Boolean, etc. in die Registry schreiben und aus ihr lesen kann.
Und weil das Ganze plattformübergreifend ist, funktioniert es auch unter Linux, dort werden Registry-Zugriffe automatisch im Ordner .config in einer entsprechenden XML-Datei gespeichert.
Vorteil: die Programmeinstellungen liegen BS-spezifisch an der "richtigen" Stelle und sind immer zugänglich.

Die Variante im Ordner XIni verwendet TIniFile.
Mit dieser Variante kann man eine Ini-Datei in einen beliebigen Ordner schreiben.
Man muss sich aber auch darum kümmern, dass man dort, wo man hinschreiben möchte, auch Schreibrechte hat.


Gruß Roland

[Soner]

Die SetEnvironmentVariable-Funktion gibt es in Windows, du musst einfach "uses windows;" hinzufügen.

Wenn du aber in deinem Programm nicht die komplette Windows-unit hinzufügen willst, dann kannst du es auch selbst definieren:

Code: Alles auswählen

function SetEnvironmentVariable(lpName, lpValue:PChar):longbool; external 'kernel32' name 'SetEnvironmentVariableA';

[alfware17]

Hallo, so ich habe mein Problem gelöst und das Programm (vorerst fertig).

Ich konnte tatsächlich mein altes EASYSETUP Programm dazu bringen, mir sowohl Registry als auch Umgebungsvariablen zu setzen, ich hatte nur 2 Sachen nicht bedacht: Neustart für den HKEY_LOCAL_MACHINE und 64bit-Registry. Beides funktioniert nun zufriedenstellend und vor allem macht mein baugleiches Java-Programm 1:1 das gleiche. Hier der vollständige Zugriffsmodul, der in abgewandelter Form dann in 1 Batch und 2 Online Programmen bei mir arbeitet. Und weil es so schön ging mit dem EASYSETUP habe ich auch gleich noch die HKEY_CURRENT_USER mit aufgenommen.

Code: Alles auswählen

Unit logik;

{$mode ObJFPC} {$H+}
{$I OsWahl.inc}

interface

const slash = {$IFDEF Linux} '/' {$ELSE} '\' {$ENDIF};
      checkpfad: String = '';
      dateipfad: String = '';
      dbpfad: String = '';
      checkname: String = '';
      dateiname: String = 'dbTest.s3db';
      database: String = 'dbZitate.s3db';
      checklokal: Boolean = false;
      dateilokal: Boolean = false;
      checkvorhanden: Boolean = false;
      dblokal: Boolean = false;
      dateivorhanden: Boolean = false;
      dbvorhanden: Boolean = false;
      still: Boolean = false;

procedure pfadBestimmen;

implementation

uses SysUtils, DOS, Stdio {$IFNDEF Linux}, Registry {$ENDIF};

function addPfad(eins, zwei: string):string;
var temp: string;
begin
   temp:=eins;
   if (eins <> '') and
      (eins[length(temp)] <> slash) and
      (zwei <> '')
      then temp:=temp+slash;
   temp:=temp+zwei;
   Result:=temp;
end;

function dbFormat(name: string):string;
begin
   if (length(name) > 5) and (copy(name, length(name)-5, 255 ) <> '.s3db')
      then name:=name + '.s3db';
    result:=name;
end;

procedure Ausgabe(was: string);
begin
   Writeln(was);
   Writeln('Datei=', addPfad(dateipfad, dateiname), ' vorhanden=', dateivorhanden, ' lokal=' , dateilokal);
   Writeln('Datenbank=', addPfad(dbpfad, database), ' vorhanden=' , dbvorhanden, ' lokal=', dblokal);
end;

function vorhandenDatei(dir, datei: string):boolean;
begin
   result:=DirectoryExists(dir) and FileExists(addPfad(dir, datei));
   if result
      then checkvorhanden:=true;
end;

function vorhandenRootDatei(dir, datei: string):boolean;
begin
   result:=(dir='') and FileExists(datei);
   if result then begin
      checkvorhanden:=true;
      checklokal:=true;
   end;
end;

{$IFNDEF Linux}
function GetRegLM(path, key: string):string;
var Registry: TRegistry;
    dir: string;
begin
   Registry := TRegistry.Create; dir:='';
   try
      Registry.RootKey := HKEY_LOCAL_MACHINE;
      if Registry.OpenKeyReadOnly(path)
         then dir:= Registry.ReadString(key);
   finally
      Registry.Free;
   end;
   result:=dir;
end;

function GetRegCU(path, key: string):string;
var Registry: TRegistry;
    dir: string;
begin
   Registry := TRegistry.Create; dir:='';
   try
      Registry.RootKey := HKEY_CURRENT_USER;
      if Registry.OpenKeyReadOnly(path)
         then dir:= Registry.ReadString(key);
   finally
      Registry.Free;
   end;
   result:=dir;
end;

function GetRegSoftwareZitadell(funk: byte; path, key: string):string;
var reg, dir: string;
begin
   reg:='SOFTWARE\\';
   {$IFDEF BIT_64} if funk = 1 then reg:= reg + 'WOW6432Node\\'; {$ENDIF}
   reg:=reg + path;
   if funk = 1
      then dir:=GetRegLM(reg, key)
      else dir:=GetRegCU(reg, key);
   if vorhandenDatei(dir, checkname)
      then result:=dir else result:='';
end;
{$ENDIF}

function GetEnvZitadell(key: string):string;
var dir: string;
begin
   dir:=GetEnv(key);
   if vorhandenDatei(dir, checkname)
      then result:=dir else result:='';
end;

function GetHomeZitadell(key: string):string;
var dir: string;
begin
   dir:=addpfad( GetUserDir, key );
   if vorhandenDatei(dir, checkname)
      then result:=dir else result:='';
end;

function GetLwUserDirZitadell(lw, key: string):string;
var dir: string;
begin
   dir:=addpfad( lw, key );
   if vorhandenDatei(dir, checkname)
      then result:=dir else result:='';
end;

function GetUserDirZitadell(key: string):string;
var dir: string;
begin
   {$IFDEF LINUX}
      dir:=GetLwUserDir('', Key)
   {$ELSE}
      dir:=GetLwUserDirZitadell('c:', key);
      if dir = '' then dir:=GetLwUserDirZitadell('C:', key);
   {$ENDIF};
   result:=dir;
end;

//0:  Registry  (* nur Windows *)
//    GetRegZitadell
//    Registry \SOFTWARE\Alfware\Zitadell und ALFWARE/ZITADELL und alfware/zitadell
//    Groß-/ Klein-Schreibung kann eigentlich entfallen
//
//1:  Environment-Variable Zitadell
//    GetEnvZitadell
//    ENV   Zitadell und ZITADELL und zitadell
//
//2:  Home (Eigene Dateien)
//    GetHomeZitadell
//    USER/   . und /Zitadell und /documents und /Dokumente und /documents/Zitadell und /Dokumente/Zitadell
//    USER/         /ZITADELL und /documents/ZITADELL und /Dokumente/ZITADELL
//    USER/         /zitadell und /documents/zitadell und /Dokumente/zitadell
//
//3:  User
//    GetUserDirZitadell
//    Win: c:/  C;/  /Zitadell und /Bernd/Zitadell und bernd/Zitadell
//                   /ZITADELL und /Bernd/ZITADELL und bernd/ZITADELL
//    Linux ohne     /zitadell und /Bernd/zitadell und bernd/zitadell
//

procedure zitadellPfad(funk: integer);
begin
   if checkpfad <> '' then exit;
   case funk of
   {$IFNDEF Linux}
   0: begin
         (* Registry *)
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'Alfware\Zitadell', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'ALFWARE\ZITADELL', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'alfware\zitadell', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'Alfware\Zitadell', 'Sqlite');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'ALFWARE\ZITADELL', 'Sqlite');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'alfware\zitadell', 'Sqlite');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'Alfware\Zitadell4', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'ALFWARE\ZITADELL4', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(1, 'alfware\zitadell4', '');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'Alfware\Zitadell4', 'Sqlite');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'ALFWARE\ZITADELL4', 'Sqlite');
         if checkpfad = '' then checkpfad:= GetRegSoftwareZitadell(4, 'alfware\zitadell4', 'Sqlite');
      end;
   {$ENDIF}
   1: begin
         (* Environment Variable *)
         if checkpfad = '' then checkpfad:= GetEnvZitadell('Zitadell');
         if checkpfad = '' then checkpfad:= GetEnvZitadell('ZITADELL');
         if checkpfad = '' then checkpfad:= GetEnvZitadell('zitadell');
         if checkpfad = '' then checkpfad:= GetEnvZitadell('Zitadell2');
         if checkpfad = '' then checkpfad:= GetEnvZitadell('ZITADELL2');
         if checkpfad = '' then checkpfad:= GetEnvZitadell('zitadell2');
      end;
   2: begin
         (* Home-Dir *)
         if checkpfad = '' then checkpfad:= GetHomeZitadell('');
         if checkpfad = '' then checkpfad:= GetHomeZitadell('Zitadell');
         if checkpfad = '' then checkpfad:= GetHomeZitadell('ZITADELL');
         if checkpfad = '' then checkpfad:= GetHomeZitadell('zitadell');
         if checkpfad = '' then checkpfad:= GetHomeZitadell('documents');
         if checkpfad = '' then checkpfad:= GetHomeZitadell('Dokumente');
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('documents','Zitadell'));
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('Dokumente','Zitadell'));
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('documents','ZITADELL'));
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('Dokumente','ZITADELL'));
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('documents','zitadell'));
         if checkpfad = '' then checkpfad:= GetHomeZitadell(addPfad('Dokumente','zitadell'));
      end;
   3: begin
         (* User-Dir *)
         if checkpfad = '' then checkpfad:= GetUserDirZitadell('Zitadell');
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('Bernd','Zitadell'));
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('bernd','Zitadell'));
         if checkpfad = '' then checkpfad:= GetUserDirZitadell('ZITADELL');
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('Bernd','ZITADELL1'));
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('bernd','ZITADELL1'));
         if checkpfad = '' then checkpfad:= GetUserDirZitadell('zitadell');
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('Bernd','zitadell'));
         if checkpfad = '' then checkpfad:= GetUserDirZitadell(addPfad('bernd','zitadell'));
      end;
   else
   end;
end;
procedure pfadAktualisieren(funk: integer; name: string);
begin
   checkpfad:='';
   checkname:=name;
   checklokal:=false;
   checkvorhanden:=false;
   if not vorhandenRootDatei(checkpfad, checkname) then begin
      zitadellPfad(0);
      zitadellPfad(1);
      zitadellPfad(2);
      zitadellPfad(3);
      vorhandenRootDatei(checkpfad, checkname);
   end;
   if funk = 1
      then begin
         dateiname:=checkname;
         dateipfad:=checkpfad;
         dateilokal:=checklokal;
         dateivorhanden:=checkvorhanden;
      end
   else begin
      database:=checkname;
      dbpfad:=checkpfad;
      dblokal:=checklokal;
      dbvorhanden:=checkvorhanden;
   end;
   //Ausgabe('Funktion:'+StrCard(funk));
end;

procedure pfadBestimmen;
begin
   if paramstr(1)<>'' then dateiname:=paramstr(1);
   if paramstr(2)<>'' then database:=dbformat(paramstr(2));
   pfadAktualisieren(1, dateiname);
   pfadAktualisieren(2, database);
   Ausgabe('Ergebnis:');
end;

begin
end.

Und ja 1) ich weiß es ist alles etwas umständlich aber wichtiger als Effizienz war mir diesmal 1:1 Gleichheit zu meinem Java-Programm und 2) die Groß- und Kleinschreibung kann ich bei Windows noch weglassen (jedenfalls laut mein Test), allerdings bin ich im Linuxbereich noch nicht soweit mit der Testerei, um das sagen zu können, aber wohl eher nicht und ein paar if tun ja nicht weh.

[alfware17]

Noch ein Nachtrag, im Linux hatte ich noch jede Menge Spaß mit der Groß- und KLeinschreibung von Variablen und Pfaden, letztlich aber alles gelöst. Im Grunde hatte ich ja auch 80% "zu viel" gemacht, um mal alle Zweige und Eventualitäten auszutesten. Das reale Projekt hat nun genau 2 Registry-Einträge (HKEY_CURRENT_USER und HKEY_LOCAL_MACHINE), eine Umgebungsvariable und 3 erlaubte Ordner=Speicherplätze für Daten. Da mir Linux die Namen groß/klein praktisch vorgibt, konnte ich mich darauf konzentrieren und Windows ist ja egal.

Und zweitens: es war gar nicht so einfach für mich als Anfänger, mit dpkg ein schickes Paket zu bauen, aber wenn schon denn schon nimmt mir das gleich alle Sorgen bezüglich Berechtigungen und Pfaden, Kopieren als sudo usw. ab. Das hat mich nun wieder begeistert