| |
|
|
- Page 1 - |
|
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 ▲ |
|
|
|
| |
|
- Page 2 - |
|
|
Dieter Zornow | one must but then a great many left testing. circa a testimony To meet I had time to years a ähnlichen code into Program installed, the has with ca 95 % the Linkdateien too functions but even not all. have then to safety quizzed whether the Result existing before I it weiterverarbeitet have. i think the sicherste lane might his, one fetch the Description the Linkdateien and reads The then according the Description from. |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/21/08 ▲ |
|
|
|
|
| Dieter Zornow
...the sicherste lane might his, one fetch the Description the Linkdateien...
I faith soetwas there (unfortunately) not. |
|
|
| |
|
|
|
Frank Abbing | The OLE bid this the interface IShellLink::GetPath, the very for this object virtual is. |
|
|
| |
|
|
|
Dieter Zornow | still there's a Description and not yet time badly declared |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/21/08 ▲ |
|
|
|
|
Jörg Sellmeyer | an Description finds one under [...] by me can I only a Link not read and the Link can itself too with the iShellLink-method not read. its the "Programmkompatibilitäts-Assistent" and it verweist on a [...] in the directory %HOMEDRIVE%%HOMEPATH% The Information therein shine as Widestring stored To his, there always one Nullbyte between whom individual letters is.
Dieter Z.
one must but then a great many left testing. circa a testimony To meet
the was Yes my Why stay. has it because time someone ausprobiert? The Testcode investigating any left in the Startmenü. If the 20 people make, might it to some extent verläßlich his. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/21/08 ▲ |
|
|
|
|
Uwe ''Pascal'' Niemeier | Hi people!
The 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:documents and EinstellungenAll UsersStartmenüProgrammeubehörProgrammkompatibilitäts-assistant.lnk"
ocxInit()
var Shell&=ocxCreate("WScript.Shell")
var Link&=ocxMethod(Shell&,"CreateShortcut","*"+Lnk$)
--CreateShortcut öffnet too already existing Verknüpfungen
print "Arguments :",ocxGet(Link&,"Arguments")
print "Description :",ocxGet(Link&,"Description")
print "FullName :",ocxGet(Link&,"FullName")
print "Hotkey :",ocxGet(Link&,"Hotkey")
print "IconLocation :",ocxGet(Link&,"IconLocation")
print "TargetPath :",ocxGet(Link&,"TargetPath")
print "WindowStyle :",ocxGet(Link&,"WindowStyle")
print "WorkingDirectory:",ocxGet(Link&,"WorkingDirectory")
ocxRelease(Link&,Shell&)
ocxDeInit()
waitinput
SeeYou Pascal |
|
|
| |
|
|
|
Jörg Sellmeyer | Very beautiful! now must You only yet communicating, where one The Includes herbekommt.
...and the runs faith I really first ex XP or? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/21/08 ▲ |
|
|
|
|
| thanks Uwe! |
|
|
| |
|
|
|
Manfred Barei | Hello Jörg,
here the Ergebniss by me, see Screenshot. carryed out under windows Vista.
Greeting 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 | | 08/21/08 ▲ |
|
|
|
|
Frank Abbing | by me weg all Lnks, Jörg. without Error. |
|
|
| |
|
|
|
Dieter Zornow | by me weg The Handles for Assign from, because You give tappt im dunkeln not again spare. by me shine each crowd left unreadable To his, after I The Handles spare given have.
(See attachment) |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/21/08 ▲ |
|
|
|
|
Jörg Sellmeyer | Dieter Zornow
by me weg The Handles for Assign from, because You give tappt im dunkeln not again spare. by me shine each crowd left unreadable To his, after I The Handles spare given have.
(See attachment)
Dieter Zornow
Close hFile& the standing in my code. suitor can I The File not give. I see on the Image only spots and Striche. is there in the spending what verrutscht or comes the really out. Perhaps liegts on the Servicepack 3.
well, altogether shining the take action then Yes only To XP SP2 To functions. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/21/08 ▲ |
|
|
|