| |
| |
|
| - Página 1 - |
|
Jörg
Sellmeyer |
de Jörg Sellmeyer a freien Disposición
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Proc ReadLinkPath
Parámetros File$
Declarar Pos&,Size&,hFile&
Declarar Link#
hFile& = Asignar(File$)
Openrw hFile&
Size&=GetFileSize(hFile&)
Dim Link#,Size&
BlockRead(hFile&,Link#,0,Size&)
Cerrar hFile&
Asignar hFile&,""
Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
File$=String$(Link#,Pos&)
Disponer Link#
Volver File$
ENDPROC
ChDir Desktop()
Var lnk$ = Desktop() + "\" + FindFirst$("*.lnk")
Imprimir lnk$
Imprimir ReadLinkPath(lnk$)
WaitInput
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.08.2008 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
Dieter
Zornow | Man muss aber entonces muy viele Links testen. una Aussage a treffen
Tuve veces antes de Jahren una ähnlichen Code en una Programa instalado, el ha en ca 95 % el Linkdateien auch funktioniert aber eben no en allen. Posesiones entonces a Sicherheit abgefragt si el Ergebnis existiert bevor Yo weiterverarbeitet habe. Yo denke el sicherste Weg dürfte ser, uno recupera el Descripción el Linkdateien y liest el entonces gemäß el Descripción de. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
 | Dieter Zornow
...el sicherste Weg dürfte ser, uno recupera el Descripción el Linkdateien...
Yo glaube soetwas hay (desafortunadamente) no. |
|
| |
| |
| |
|
|
Frank
Abbing | | El OLE bietet esta el Interface IShellLink::GetPath, el genau para esta Zweck pensamiento es. |
|
| |
| |
| |
|
|
Dieter
Zornow | | Doch lo son una Descripción y todavía no veces schlecht erklärt |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Un Descripción findet uno bajo [...] 
En me kann Yo sólo una Link no auslesen y Link läßt se auch con el iShellLink-Método no auslesen. Es el "Programmkompatibilitäts-Assistent" y él verweist en una [...] en el Directorio %HOMEDRIVE%%HOMEPATH%
El Informationen en él scheinen como Widestring abgelegt a ser, como siempre una Nullbyte zwischen el individual Buchstaben es.
Dieter Z.
Man muss aber entonces muy viele Links testen. una Aussage a treffen
Das war sí mi Anregung. Sombrero lo porque veces alguien ausprobiert? Der Testcode untersucht todos Links en el Startmenü. Si el 20 Personas hacer, dürfte lo einigermaßen verläßlich ser. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Personas!
Der Vollständigkeit halber  :
--XProfan 10 + Windows XP SP2
$H Windows.ph
$H ocx2.ph
$I ocx2.inc
var Lnk$="C:1TestInternet Explorer.lnk"
var Lnk$="C:Dokumente y EinstellungenAll UsersStartmenüProgrammeubehörProgrammkompatibilitäts-Assistent.lnk"
ocxInit()
var Shell&=ocxCreate("WScript.Shell")
var Link&=ocxMethod(Shell&,"CreateShortcut","*"+Lnk$)
--CreateShortcut öffnet auch ya existierende Verknüpfungen
imprimir "Arguments :",ocxGet(Link&,"Arguments")
imprimir "Description :",ocxGet(Link&,"Description")
imprimir "FullName :",ocxGet(Link&,"FullName")
imprimir "Hotkey :",ocxGet(Link&,"Hotkey")
imprimir "IconLocation :",ocxGet(Link&,"IconLocation")
imprimir "TargetPath :",ocxGet(Link&,"TargetPath")
imprimir "WindowStyle :",ocxGet(Link&,"WindowStyle")
imprimir "WorkingDirectory:",ocxGet(Link&,"WorkingDirectory")
ocxRelease(Link&,Shell&)
ocxDeInit()
waitinput
SeeYou
Pascal |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Sehr schön! Jetzt mußt Usted sólo todavía mitteilen, wo uno el Incluye herbekommt.
...y el se ejecuta glaube Yo wirklich sólo de XP oder? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
|
| Gracias Uwe!  |
|
| |
| |
| |
|
|
Manfred
Barei | ¡Hola Jörg,
hier el Ergebniss en me, siehe Screenshot.
Ausgeführt bajo Windows Vista.
Saludo
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 21.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | | En me ir all Lnks, Jörg. Ohne Fehler. |
|
| |
| |
| |
|
|
Dieter
Zornow | En me ir el Handles para Asignar de, porque du gibst ellos no otra vez frei. En me scheinen jede Menge Links no lesbar a ser, después de que el Handles frei gegeben habe.
(Siehe Anhang) |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Dieter Zornow
En me ir el Handles para Asignar de, porque du gibst ellos no otra vez frei. En me scheinen jede Menge Links no lesbar a ser, después de que el Handles frei gegeben habe.
(Siehe Anhang)
Dieter Zornow
Cerrar hFile&
Das es en mi Code. Freier kann Yo el Expediente no geben.
Yo sehe en el Bild sólo Punkte y Striche. Ist como en el Edición qué verrutscht oder kommt el wirklich fuera. Tal vez liegts al Servicepack 3.
Na, total scheint el Verfahren entonces sí sólo a XP SP2 a trabajo.  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
(1.518)
Deutsch
English
Français
Español
Italia
