Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240765 (2201)
  Suchen
 Zurück zur Übersicht
 AutorThema: Verknüpfte Programme
Bernhard Künzel
Datum:30.09.02 01:09 Antwortenals Email verschicken (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




Roland G. Hülsmann
Datum:30.09.02 01:22 Antwortenals Email verschicken (rgh-soft@t-online.de) 


Hallo Bernhard,

unter Windows 2000 funktioniert es problemlos.

Gruß
Roland



Berhard Künzel
Datum:01.10.02 15:47 Antwortenals Email verschicken (b.kuenzel@chello.at) 


Hallo Roland,
danke für den Test auf Win 2000
Hat noch niemand auf ME und XP getestet ?????
Gruss
Bernhard



Frank Abbing
Datum:01.10.02 17:26 Antwortenals Email verschicken  


Hallo Bernhard,

auch unter XP gibt's keine Probleme !

Gruß, Frank


Thomas Ungerböck
Datum: 01.10.02 20:11 Antwortenals Email verschicken (Kerzenlicht@chello.at) 


Hallo Bernhard

Hab WinMe, funktioniert prima, muss ich mir gleich speichern.

Gruß Thomas


 Zurück zur Übersicht