English
Source / code snippets

Reading way link

 
- 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.
 
08/21/08  
 




Frank
Abbing
The OLE bid this the interface IShellLink::GetPath, the very for this object virtual is.
 
08/21/08  
 




Dieter
Zornow
still there's a Description and not yet time badly declared

39 kB
Hochgeladen:08/21/08
Downloadcounter189
Download
 
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
 
08/21/08  
 




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!
 
08/21/08  
 




Manfred
Barei
Hello Jörg,

here the Ergebniss by me, see Screenshot.
carryed out under windows Vista.

Greeting
Manfred

28 kB
Hochgeladen:08/21/08
Downloadcounter249
Download
 
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.
 
08/21/08  
 




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)

5 kB
Hochgeladen:08/21/08
Downloadcounter236
Download
 
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  
 




Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

23.143 Views

Untitledvor 0 min.
E.T.06/12/23
Uwe Lang01/29/22
Sven Bader09/24/21
Thomas Freier01/26/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie