Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 243106 (4542)
  Suchen
 Zurück zur Übersicht
 AutorThema: Fachwissen - Ade' ...
Lars
Datum:15.05.01 14:40 Antwortenals Email verschicken (hoefener@web.de) 


Leider mußte ich heute den Wegfall des PSP bemerken. In der Vergangenheit nutze ich die Suchfunktion zur Recherche bei Profan - Problemen. Schade um das geballte Fachwissen !
Man springt zwar nicht gerne über seinen eigenen Schatten - vielleicht gelingt Euch ja doch noch ein Austausch der Forenbeiträge des PSP zur Schaffung einer Offline - Hilfedatei ( ähnlich der Mailingliste ).

Schnitt ....

_________________________________________________

Wie kann mein Programm erfahren, ob andere Programme ( Acrobat Reader ) installiert ( Version + Pfad !!! ) ist ?

Freue mich auf Eure Antworten

Grüße Lars


Sascha
Datum:16.05.01 00:11 Antwortenals Email verschicken (sascha@willecke-net.de) 


Hallo Lars,

zu deinem Problem kann ich dir leider keine konkrete Lösung geben da ich sie selbst nicht weiß! Aber schau mal in der Registry unter HKEY_LOCAL_MACHIENE\Software\Adobe....!

Das könnte dir vielleicht helfen!

MFG
Sascha Willecke


Uwe ''Pascal'' Niemeier
Datum:16.05.01 09:18 Antwortenals Email verschicken (Pascalxd@owl-online.de) 


Hallo Lars!

Hier wäre eine Möglichkeit (Profan 7):

window 10,10-600,500
def FindExecutable(3) !"shell32","FindExecutableA"
declare File$,Exe#
File$="F:\Infos\Elektronik\Ports\pppinout.pdf"
dim Exe#,1000
print FindExecutable(addr(File$),0,Exe#)
print string$(Exe#,0)
dispose Exe#
waitkey

Du brauchst dafür nur eine Datei, die standartmäßig mit der gesuchten Anwendung geöffnet wird (kann ruhig ein Dummy ohne Inhalt sein; Hauptsache, sie existiert)

Gibt die Demo einen Wert >32 und einen Pfad zurück, ist das Programm installiert.

Allerdings wird nur das Programm gefunden, das in der Registry per "open"-Verknüpfung mit der Datei verbunden ist (ist eigendlich der Normalfall). Sollte der Anwender aber daran rumgefummelt haben (so wie ich das gerne tue), klappt es u.U. nicht.

Auch wenn das jetzt deiner Meinung nach kein Fachwissen war - vielleicht hilft's trotzdem ;-)

Pascal


Lars
Datum:16.05.01 11:50 Antwortenals Email verschicken (hoefener@web.de) 


Vielen Dank für Eure schnelle Antwort ! Ich werde es mal probieren.

Da Du lieber Pascal auch mir schon oft im PSP geholfen hast, zähle ich auch Deine Beiträge zum "Fachwissen" ... grins

Grüße Lars


Bernhard Künzel
Datum: 16.05.01 22:18 Antwortenals Email verschicken (b.kuenzel@chello.at) 


Hallo,
ich glaube ich habe was Du suchst
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
SetErrorLevel 0
'Beispiele
Print "---.dbf---"
Print GetShellOpenCommand(".dbf")
Print
Print "---.prf---"
Print GetShellOpenCommand(".prf")
Print
Print "---.txt---"
Print GetShellOpenCommand(".txt")
Print
Print "---.jpg---"
Print GetShellOpenCommand(".jpg")
Print
Print "---.xxx---"
Print GetShellOpenCommand(".xxx")
Print
WaitInput

MFG
Bernhard




 Zurück zur Übersicht