| |
| |
|
Jörg
Sellmeyer |
of Jörg Sellmeyer to disengaged Disposal
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Proc ReadLinkPath
Parameters File$
Declare Pos&,Size&,hFile&
Declare Link#
hFile& = Assign(File$)
Openrw hFile&
Size&=GetFileSize(hFile&)
Dim Link#,Size&
BlockRead(hFile&,Link#,0,Size&)
Close hFile&
Assign hFile&,""
Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
File$=String $(Link#,Pos&)
Dispose Link#
Return File$
ENDPROC
ChDir Desktop()
Var lnk$ = Desktop() + "\" + FindFirst$("*.lnk")
Print lnk$
Print ReadLinkPath(lnk$)
WaitInput
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/20/08 ▲ |
|
| |
|
|
 | for Frank what?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | If it helps. then having More Time for XIDE  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/20/08 ▲ |
|
| |
|
|
Frank
Abbing | Bräuchte the in Assembler...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Wennde the have, kannste the too time poses  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/20/08 ▲ |
|
| |
|
|
Frank
Abbing | | if i remember rightly, there too a Solution without Registry. thereafter watts I tonight first search. Dateizugriffe make everything immediate slow. |
|
| |
| |
| |
|
|
| here becomes now really no performance demanded... seldom moving someone 50.000 LNK-Files a Listbox - in the hope, that these operation only a second last becomes.
I can but present the Jörgs code usually functions - vlt. another small Sicherheitsprüfung install. |
|
| |
| |
| |
|
|
Frank
Abbing | The chance isn't high, but exists!
Have in the others Thread yet larger ones detriments aufgelistet: [...]  |
|
| |
| |
| |
|
|
| Frank Abbing
The chance isn't high, but exists! Have in the others Thread yet larger ones detriments aufgelistet.
with such testify on the best still The Thread-ID or URL indicate there later once nobody More know can whom Thread You meant having could and the Hineinkopieren the URL seldom vastly hoisted means. (ultimately konvertiert the community URLs automatically in left, too without the one with ifbbs or htmls umsich throwing must.) |
|
| |
| |
| |
|
|
Frank
Abbing | Yes, i was not yet so far. You must too always badger...  |
|
| |
| |
| |
|
|
| | there help presumably too no (ca.) 8.500KM distance. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | it could Yes time any, The over this Thread stumbling, short testing and the Result communicating.
D:DatenProfanVerknüpfungen
Def Desktop(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders","Programs")
Proc ReadLinkPath
Parameters File$
Declare Pos&,Size&,hFile&
Declare Link#
hFile& = Assign(File$)
Openrw hFile&
Size&=GetFileSize(hFile&)
Dim Link#,Size&
BlockRead(hFile&,Link#,0,Size&)
Close hFile&
Assign hFile&,""
Pos&=MemPos(Link#,MemPos(Link#,0,":\") + 1,":\") + MemPos(Link#,0,":\")
File$=String $(Link#,Pos&)
Dispose Link#
Return File$
ENDPROC
Declare lnk$
ChDir StartMenueProgramme()
AddFiles *"*.lnk"
Window 0,0 - %maxx,%maxy
WhileLoop %getcount
lnk$ = ReadLinkPath(ListBoxItem$(&Loop))
FindFirst$(lnk$)
Print lnk$,%ioresult
Wend
WaitInput
by me comes though already one Error out, means well not so optimal  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/20/08 ▲ |
|
| |
|
(504)
Deutsch
English
Français
Español
Italia