Autor | Thema: Verknüpfte Programme | | Datum:30.09.02 01:09 
(b.kuenzel@chello.at) | |
Hallo,
kann mir bitte jemand die Funktion auf Win ME/2000/XP testen
wenns funktioniert kanns jeder verwenden
DANKE!!
Gruss
Bernhard
'//
Def GetShellOpenCommand(1) If(Len(Trim$(SubStr$(Translate$(ReadIni$("HKEY_0",\
ReadIni$("HKEY_0",$(1),"")+"\Shell\Open\Command",""),CHR$(34),""),1,"%1"))),\
CHR$(34)+Trim$(SubStr$(Translate$(ReadIni$("HKEY_0",ReadIni$("HKEY_0",$(1),"")+\
"\Shell\Open\Command",""),CHR$(34),""),1,"%1"))+CHR$(34)+" ","")
'Par 1=Extension
'Rückgabe: das Verknüpfte Programm -- bei Leerstring ist keine Verknüpfung eingetragen
Cls
Print GetShellOpenCommand(".jpg")
Print
Print GetShellOpenCommand(".doc")
WaitInput
|
| | Datum:30.09.02 01:22 
(rgh-soft@t-online.de) | |
Hallo Bernhard,
unter Windows 2000 funktioniert es problemlos.
Gruß
Roland
|
| | Datum:01.10.02 15:47 
(b.kuenzel@chello.at) | |
Hallo Roland,
danke für den Test auf Win 2000
Hat noch niemand auf ME und XP getestet ?????
Gruss
Bernhard
|
| | Datum:01.10.02 17:26 
| |
Hallo Bernhard,
auch unter XP gibt's keine Probleme !
Gruß, Frank
|
| | Datum: 01.10.02 20:11 
(Kerzenlicht@chello.at) | |
Hallo Bernhard
Hab WinMe, funktioniert prima, muss ich mir gleich speichern.
Gruß Thomas
|
|
|