Autor | Thema: Fachwissen - Ade' ... | | Datum:15.05.01 14:40 
(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
|
| | Datum:16.05.01 00:11 
(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
|
| | Datum:16.05.01 09:18 
(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
|
| | Datum:16.05.01 11:50 
(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
|
| | Datum: 16.05.01 22:18 
(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
|
|
|