| |
| |
|
Jörg
Sellmeyer |
de Jörg Sellmeyer zur freien Disposition
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Proc ReadLinkPath
Paramètres File$
Déclarer Pos&,Size&,hFile&
Déclarer Link#
hFile& = Assign(File$)
Openrw hFile&
Size&=GetFileSize(hFile&)
Faible Link#,Size&
BlockRead(hFile&,Link#,0,Size&)
Fermer hFile&
Assign hFile&,»
Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
File$=String$(Link#,Pos&)
Dispose Link#
Retour File$
ENDPROC
ChDir Desktop()
Var lnk$ = Desktop() + "\" + $ FindFirst("*.lnk")
Imprimer lnk$
Imprimer ReadLinkPath(lnk$)
WaitInput
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.08.2008 ▲ |
|
| |
|
|
 | Pour Frank quoi?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Wenns ihm hilft. ensuite hatte plus Zeit pour XIDE  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | Bräuchte cela dans Assembler...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Wennde cela la hâte, kannste cela aussi la fois posen  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | | si je mich droite erinnere, gibt es aussi une Solution sans Registry. après wurde je ce soir d'abord chercher. Dateizugriffe faire alles tout de suite lente. |
|
| |
| |
| |
|
|
| ici wird eh bien wirklich aucun Performance abverlangt... selten bewegt quelqu'un 50.000 LNK-Fichiers dans un Listbox - dans qui espoir, dass cet opération seulement une seconde dauern wird.
je peux mir mais présenter cela Jörgs Code la plus part du temps funktioniert - vlt. encore une kleine Sicherheitsprüfung einbauen. |
|
| |
| |
| |
|
|
Frank
Abbing | qui chance ist pas hoch, mais besteht!
Hab im anderen Fil encore grössere Nachteile aufgelistet: [...]  |
|
| |
| |
| |
|
|
| Frank Abbing
qui chance ist pas hoch, mais besteht! Hab im anderen Fil encore grössere Nachteile aufgelistet.
chez solchen Aussagen am Besten toujours qui Fil-ID ou bien URL angeben là später einmal niemand plus savons peux welchen Fil Du gemeint avons könntest et cela Hineinkopieren qui URL selten erheblichen Aufwand bedeutet. (Schliesslich konvertiert qui Community URLs automatisch dans à gauche, aussi sans cela on avec ifbbs ou bien htmls umsich werfen muss.) |
|
| |
| |
| |
|
|
Frank
Abbing | oui, j'étais encore pas soweit. Du musst De toute façon hetzen...  |
|
| |
| |
| |
|
|
| | là aider probablement aussi aucun (ca.) 8.500KM Distanz. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Es könnten oui la fois alle, qui sur cette Fil stolpern, kurz testen et cela 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
Paramètres File$
Déclarer Pos&,Size&,hFile&
Déclarer Link#
hFile& = Assign(File$)
Openrw hFile&
Size&=GetFileSize(hFile&)
Faible Link#,Size&
BlockRead(hFile&,Link#,0,Size&)
Fermer hFile&
Assign hFile&,»
Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
File$=String$(Link#,Pos&)
Dispose Link#
Retour File$
ENDPROC
Déclarer lnk$
ChDir StartMenueProgramme()
AddFiles *"*.lnk"
Fenêtre 0,0 - %maxx,%maxy
WhileLoop %getcount
lnk$ = ReadLinkPath(ListBoxItem$(&Boucle))
$ FindFirst(lnk$)
Imprimer lnk$,%ioresult
Wend
WaitInput
chez mir venez allerdings aussi déjà un faute raus, alors wohl pas so optimal  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.08.2008 ▲ |
|
| |
|
(1.125)
Deutsch
English
Français
Español
Italia