AppDirectory Ermitteln!

[al90]

Code: Alles auswählen

; Ermittelt das Verzeichnis des gestarteten Exe-Files!

Procedure.s GetAppDir()
a$=Space(#MAX_PATH)
x=GetModuleFileName_(#Null,@a$,Len(a$))
b$=GetPathPart(PeekS(@a$))
If Right(b$,1)<>"\":b$+"\":EndIf
ProcedureReturn b$
EndProcedure

appdir$=GetAppDir()
Debug appdir$

[Sylvia]

Hey al90...ich will ja glauben, dass du ein Kracher bist. Aber willst du
uns jetzt mit allen dir bekannten API-Aufrufen zumüllen ??

Nein danke !

[hardfalcon]

Stammt der Code nicht ursprünglich von Danilo, und ist bereits seit Proggergedenken im Codearchiv?

[Hroudtwolf]

Ich denke eine PN an Al90 hätte es auch getan.

[hardfalcon]

Wölfli, DU äusserst deine kritische Meinung über Sylvia in einem öffentlichen Posting, warum soll Sylvia nicht auch IHRE öffentliche Meinung über Al90 nicht auch als öffentliches Posting äussern?

[Hroudtwolf]

@Hardfalcli

Ich habe mich nicht kritisch über die Dame geäusert sondern auf eine andere Möglichkeit hingewiesen.

[Sylvia]

Ja, Hroudtwolf hat recht. Ich entschuldige mich hiermit bei al90.

[al90]

Also ich denke bei den routinen in erster linie an all die Anfänger
die sich mit API schwer tun und froh darüber sind sowas im CodeArchiv
vorzufinden. Ich denke also nicht das ich damit was falsches getan habe.
Die codes konnte ich übrigens weder im CodeArchive noch hier vorfinden,
ansonsten hätte ich sie sicherlich nicht geuppt. Sollte ich was übersehen
haben bitte ich um korrektur.

Übrigens: Einige Dinge wie z.b. GetAppDir() oder GetTempDir()
sollten eigentlich schon grundsätzlich in PB implementiert sein.
Sowas hatte ich 1990 schon mit AmosPro auf dem Amiga.
Vielleicht sollten wir mal einen vorschlag an die PB-Entwickler richten.

Wegen Abguck-Vorwurf:

Ob es bestimmte Codes schonmal von jemanden anderen gab oder nicht
weis ich nicht, aber ich versichere das ich nichts abgeguckt habe.

[ts-soft]

>> Übrigens: Einige Dinge wie z.b. GetAppDir() oder GetTempDir() sollten eigentlich schon grundsätzlich in PB implementiert sein.
Diese Dinge sind leider nicht Plattformübergreifend, deshalb also nur per API möglich.

[al90]

@ts-soft

Ok vielleicht waren die beispiele etwas unglücklich getroffen. Aber man
stelle sich vor; Amos hatte bspw. damals sogar einen HuntMem-Befehl.
Und PB? Das sind dann halt so Dinge die mir doch etwas stören.