Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 243106 (4542)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Fachwissen - Ade' ...
Lars
| 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
Sascha
| 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
Uwe ''Pascal'' Niemeier
| 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
Lars
| 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
Bernhard Künzel
| 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

| Zurück zur Übersicht