| |
| |
|
| - 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 | | 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 ▲ |
|
| |
|
| |
| |
| - Page 3 - |
|
|
| | Dateihandle is with close not released, first with assign lever,"" |
|
| |
| |
| |
|
|
Dieter
Zornow | @Jörg
the comes really out, but this is only the last part the first walk Yes from the screen, there it zuviele are, here are too most readable, How I so in the vorbeiscrollen see can. i think but not, that it on the Servicepack 3 lying. On these point can not any left treffsicher read.
to the Handles has IF already said as goes. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/22/08 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | OK - I habs time korrigiert. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/22/08 ▲ |
|
| |
|
(507)
Deutsch
English
Français
Español
Italia
