Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 240832 (2268)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Verknüpfte Programme
Bernhard Künzel
| 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
Roland G. Hülsmann
| Datum:30.09.02 01:22 (rgh-soft@t-online.de) |
Hallo Bernhard, unter Windows 2000 funktioniert es problemlos. Gruß Roland
Berhard Künzel
| 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
Frank Abbing
| Datum:01.10.02 17:26 |
Hallo Bernhard, auch unter XP gibt's keine Probleme ! Gruß, Frank
Thomas Ungerböck
| Datum: 01.10.02 20:11 (Kerzenlicht@chello.at) |
Hallo Bernhard Hab WinMe, funktioniert prima, muss ich mir gleich speichern. Gruß Thomas

| Zurück zur Übersicht