| |
| |
|
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 ▲ |
|
| |
|
|
 | Für Franco qué?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Wenns ihm hilft. Dann hatte mehr Tiempo para XIDE  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | Bräuchte el en Ensamblador...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Wennde el hast, kannste el auch veces posen  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | | Wenn Yo mich bastante erinnere, hay auch una solución sin Registry. Danach wurde Yo heute abend zuerst suchen. Dateizugriffe hacer alles inmediatamente langsam. |
|
| |
| |
| |
|
|
| Hier se nun wirklich no Performance abverlangt... selten bewegt alguien 50.000 LNK-Archivos en un Listbox - en el Hoffnung, dass esta Operation sólo una Sekunde dauern se.
Puedo me aber vorstellen el Jörgs Code meistens funktioniert - vlt. ni kleine Sicherheitsprüfung einbauen. |
|
| |
| |
| |
|
|
Frank
Abbing | El Chance es no hoch, aber besteht!
Hab en el otro Hilo todavía grössere Nachteile aufgelistet: [...]  |
|
| |
| |
| |
|
|
| Frank Abbing
El Chance es no hoch, aber besteht! Hab en el otro Hilo todavía grössere Nachteile aufgelistet.
En solchen Aussagen al Besten siempre todavía el Hilo-ID oder URL angeben como später una vez niemand mehr wissen kann welchen Hilo Usted gemeint haben könntest y el Hineinkopieren el URL selten erheblichen Aufwand bedeutet. (Schliesslich konvertiert el Comunidad URLs automáticamente en Links, auch sin el uno con ifbbs oder htmls umsich werfen muss.) |
|
| |
| |
| |
|
|
Frank
Abbing | Sí, Yo war todavía no soweit. Usted musst De todos modos hetzen...  |
|
| |
| |
| |
|
|
| | Como helfen vermutlich auch no (ca.) 8.500KM Distanz. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Lo könnten sí veces todos, el encima esta Hilo stolpern, kurz testen y el Ergebnis mitteilen.
D:DatenProfanVerknüpfungen
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Programs")
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
Declarar lnk$
ChDir StartMenueProgramme()
AddFiles *"*.lnk"
Ventana 0,0 - %maxx,%maxy
WhileLoop %getcount
lnk$ = ReadLinkPath(ListBoxItem$(&Loop))
FindFirst$(lnk$)
Imprimir lnk$,%ioresult
Wend
WaitInput
En me kommt allerdings auch ya una Fehler fuera, also probablemente no así optimal  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
(513)
Deutsch
English
Français
Español
Italia