XProfan

- Page 2 -

Uwe
''Pascal''
Niemeier

Hi Jörg!

this could help:
Compile Mark Separation

window 500,500
 $H Windows.ph
declare Key$,Handle&,Count%,Error&
declare Result#:dim Result#,256
Key$=readini$("HKEY_0",".prf","")+"\Shell"
Error&=~RegOpenKeyEx(~HKEY_CLASSES_ROOT,addr(Key$),0,~KEY_ENUMERATE_SUB_KEYS,addr(Handle&))

whilenot Error&-- 0 = OK

    Error&=~RegEnumKey(Handle&,Count%,Result#,256)
    case Error&:break
    print readini$("HKEY_0",Key$+"\"+string$(Result#,0)+"\Command","")
    inc Count%

endwhile

~RegCloseKey(Handle&)
dispose Result#
CompileMarkSeparationwindow 500,500
declare Exe#:dim Exe#,260
var File$="X:Test.prf"---------existing(!) File
var OK&=external("shell32","FindExecutableA",addr(File$),0,Exe#)
case OK&<=32:print "Error:",OK&--Fehlercodes see @WinExec
print string $(Exe#,0)
dispose Exe#
waitkey

HTH
Pascal

Dieter
Zornow

It's all right indeed from whom EnvironmentVariablen auszulesen, I know but not which Program these anlegt. the Setup or the editor. by me comes but with the request The actually Prfrun32.exe. with "XPR_PATH" I get whom Include-Ordner.
Compile Mark Separation

var size& = External("Kernel32","GetEnvironmentVariableA","XPR_RUNTIME",spec#,261)
var indir$ = string$(spec#,0)e>

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Jörg
Sellmeyer

I sehs already: I Have my question unpräzise set. The question to the structure was really not so important. the I really know wants, is:
shows my Program with you in the Combobox something on?
And if it Profanversionen are, are since the korrekten Versionsnummern with thereby?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

E.T.

by me becomes only a Version gelistet:

The Version can itself but too only from the way divert.

The versions 9,10, 11 & XProfanFree go not found / gelistet (each under /programs installs).

test.png	5 kB

Hochgeladen:	01/03/10

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Matthias
Arlt

by me go all vorhandenen Profan-versions gelistet. the are presently 7.6, 8.0, 9.1 and 11.2free. (Anm.: Strukturell have I the similar organisiert, How Pascal. means no Standardinstallationen...). What the Versionsnummern angeht, so go tappt im dunkeln only partly correctly. displayed.

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

Dieter
Zornow

means by me becomes quite no displayed, The Combobox is empty.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Rolf
Koch

by me too empty

Paul
Glatz

by me issts empty

Frank
Abbing

seek long, finds nothing.

Matthias
Arlt

Hm...there be I yet Yes so quite alone on moreover Flur.
already comic, Why only functions the by me so to some extent...?????

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

So I use XProfan-Compiler simply very so, How any others Compiler too. what vlt. makes sense would a manually pflegbare list and with Double click becomes
Compile Mark Separation

 {$COMPILER ...}
 {$RUNTIME ...}e>

eingefügt or. supplant with which The attitude in document stored is. ^^

Matthias
Arlt

now is me clear, Why the Reading by me works and with others not. evident seek The routine only exakt to PROFAN.EXE. by me is the because of the compatibility To PRFellow too the case. has the Interpreter a abweichenden Filenames, becomes it accordingly not found.

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

01/04/10 ▲