| |
| |
|
| - 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 | | 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 ▲ |
|
| |
|
| |
| |
| - Página 3 - |
|
|
| | Dateihandle es con close no freigegeben, sólo con assign handle,"" |
|
| |
| |
| |
|
|
Dieter
Zornow | @Jörg
Das kommt wirklich fuera, aber el es sólo el letzte Teil el ersten laufen sí de el Bildschirm, como lo zuviele son, hier son auch el meisten lesbar, Yo así en el vorbeiscrollen sehen kann. Yo denke pero no, dass lo al Servicepack 3 liegt. Auf esta Weise puede ser no todos Links treffsicher auslesen.
Zu el Handles ha IF sí ya dijo como va. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 22.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Ok - Yo habs veces korrigiert. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.08.2008 ▲ |
|
| |
|
(940)
Deutsch
English
Français
Español
Italia
