(M)eine Seite für 40tude Dialog

Das Script ermittelt beim Start von 40tude Dialog dessen Programmpfad und stellt diesen per Konstante den anderen Scripts zur Verfügung.

Binde das Script, wie unten beschrieben, in OnStartup ein. Beim nächsten Start erstellt das Script die Datei "DialogINI.ds" im Verzeichnis \Scripts\Custom. Darin ist der Programmpfad von 40tude Dialog in der Konstante "DialogRootDir" gespeichert.

Um diese Konstante in den anderen Scripts nutzen zu können, ist es erforderlich, daß folgender Code als erstes in die Liste der Include-Files eingebunden wird.

{$I DialogINI}

Eingebunden gehört dieser Code überall dort, wo Scripte oder Programmcodes eingebunden sind, die auf eine Datendatei zugreifen.

Anschließend ergänze die Variablen zu den Datendateien in allen Scripten oder Programmcodes mit der Programmpfadkonstante, z.B.

alt: ChangeNamesIni := 'change_names.ini';
neu: ChangeNamesIni := DialogRootDir + 'change_names.ini';

Empfohlen wird jedoch ein Update auf die jeweils aktuelle Version der betroffenen Scripte.

Name und Funktion

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Einbindung in OnStartup, damit der Pfad überprüft bzw. gesetzt werden kann

Program OnStartup;

// Weitere Inlcude-Files
{$I _i_OSt_Pathfinder}

Procedure OnStartup();
Begin

   // Programmpfad von 40tude Dialog überprüfen
   If Not PathCheck(GetCurrentDir) Then
   Begin
      Ado('ReloadScripts');
      Ado('Scripting');
   End;

End;

Begin
End.

Einbindung in weiteren Scripten, damit der Pfad dann dort verfügbar ist

Program IrgendeinScript;

// DialogINI muß als erstes in die Liste der Inlcude-Files eingebunden werden
{$I DialogINI}

Function IrgendeineFunktion() : Boolean;
Begin

   // Pfadangaben anpassen
   path := DialogRootDir + 'irgendeinedatei.ini';

End;

Begin
End.

Download

Pathfinder v.1.0.0
05.02.2009  1.14 KB   3401