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
| Include | : | {$I _i_OSt_Pathfinder} |
| Funktion | : | PathCheck(GetCurrentDir) |
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  3517 |
||
