| |
| |
ungültige Ressourcendatei überschreiben mit neuer,...- #24229 in section [743314] |
| Sec: |
(1) Allgemeines |
| Von: |
Ulf Neugebauer |
| An: |
Harro Schippan |
| Am/Um: |
22.10.2021 14:41:36 gelesen |
Hallo Harro,
wenn du Resource off nicht in der config.fpw hast, dann wird die Foxuser immer beim starten der exe angefasst.
Ausführen in... anzugeben ist daher wichtig.
2. Thema Set Path
In der Startup.prg als "Main":
FUNCTION SetPath()
LOCAL lcSys16 AS String ,;
lcProgram AS String
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram))
*-- Wenn Startup.PRG direkt ausgeführt wird, --*
*-- ins übergeordnete Verzeichnis wechseln --*
IF RIGHT(lcProgram, 3) = "FXP"
CD ..
ENDIF
*-- 1. Instanzierung des Suchpfad --*
*!* ohne DATA *!*
SET PATH TO LOCAL ,;
PROGS ,;
FORMS ,;
LIBS ,;
BIN ,;
MENUS ,;
..\ctl32 ,;
IMAGES ,;
HELP
danach dann Proc's und Klassen
SET PROCEDURE TO my_Func ,;
GdiPlus
SET CLASSLIB TO cMyPC ,;
cObjekte ,;
cOffice ,;
cRegistry ,;
cSplitter ,;
cStatusbar ,;
ctl32 ,;
c_etc
Anwendungsobjekt in Startup.prg erzeugen.
Lesen des Datapath aus der Registry.
z.B. prüfen und etwas gültiges zuweisen
gcDataPath = "D:\meine Daten"
*-- Datenpath einrichten/aktualisieren
SET PATH TO (gcDatapath) ADDITIVE
Den Path kannst du auch überprüfen, insofern du den Screen sichtbar hast.
acti scree
? SET("Path")
Beste Grüße Ulf
Fox on The Run (The Sweet)
|
|
|
|
