| |
| |
|
| - page 1 - |
|
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 ▲ |
|
| |
|
| |
| |
| - page 2 - |
|
|
Dieter
Zornow | on muss mais ensuite très viele à gauche testen. um une Aussage trop rendez-vous
je hatte la fois avant Jahren une ähnlichen Code dans un Programme incorporé, qui hat chez ca 95 % qui Linkdateien aussi funktioniert mais plan pas chez allen. Habe ensuite zur Sicherheit abgefragt si cela Ergebnis existiert bevor je es weiterverarbeitet habe. je denke qui sicherste Weg pourrait son, on holt sich qui Beschreibung qui Linkdateien et liest qui ensuite gemäß qui Beschreibung aus. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
 | Dieter Zornow
...qui sicherste Weg pourrait son, on holt sich qui Beschreibung qui Linkdateien...
je crois soetwas gibt es (malheureusement) pas. |
|
| |
| |
| |
|
|
Frank
Abbing | | qui OLE bietet hierfür cela Interface IShellLink::GetPath, cela oui c'est ca pour cette Zweck gedacht ist. |
|
| |
| |
| |
|
|
Dieter
Zornow | | Doch il y a une Beschreibung et encore pas la fois mal erklärt |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | une Beschreibung findet on sous [...] 
chez mir peux je seulement une Link pas auslesen et qui Link läßt sich aussi avec qui iShellLink-Methode pas auslesen. c'est qui "Programmkompatibilitäts-Assistent" et il verweist sur une [...] im Verzeichnis %HOMEDRIVE%%HOMEPATH%
qui Informationen y sembler comme Widestring abgelegt trop son, là toujours un Nullbyte entre den individuel Buchstaben ist.
Dieter Z.
on muss mais ensuite très viele à gauche testen. um une Aussage trop rendez-vous
cela était oui mon Anregung. Hat es car la fois quelqu'un ausprobiert? qui Testcode untersucht alle à gauche im Startmenü. si cela 20 gens faire, pourrait es einigermaßen verläßlich son. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi gens!
qui 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:Dokumente et EinstellungenAll UsersStartmenüProgrammeubehörProgrammkompatibilitäts-Assistent.lnk"
ocxInit()
var Shell&=ocxCreate("WScript.Shell")
var Link&=ocxMethod(Shell&,"CreateShortcut","*"+Lnk$)
--CreateShortcut öffnet aussi bereits existierende Verknüpfungen
imprimer "Arguments :",ocxGet(Link&,"Arguments")
imprimer "Description :",ocxGet(Link&,"Description")
imprimer "FullName :",ocxGet(Link&,"FullName")
imprimer "Hotkey :",ocxGet(Link&,"Hotkey")
imprimer "IconLocation :",ocxGet(Link&,"IconLocation")
imprimer "TargetPath :",ocxGet(Link&,"TargetPath")
imprimer "WindowStyle :",ocxGet(Link&,"WindowStyle")
imprimer "WorkingDirectory:",ocxGet(Link&,"WorkingDirectory")
ocxRelease(Link&,Shell&)
ocxDeInit()
waitinput
SeeYou
Pascal |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | très joli! maintenant dois Du seulement encore mitteilen, wohin on qui Comprend herbekommt.
...et cela fonctionne glaube je wirklich seulement ab XP ou bien? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
|
| merci Uwe!  |
|
| |
| |
| |
|
|
Manfred
Barei | allô Jörg,
ici cela Ergebniss chez mir, siehe Screenshot.
Ausgeführt sous Windows Vue.
Salut
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 | | 21.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | | chez mir aller espace Lnks, Jörg. sans faute. |
|
| |
| |
| |
|
|
Dieter
Zornow | chez mir aller qui Handles pour Assign aus, car du gibst vous pas wieder libre. chez mir sembler chacun la quantité à gauche pas lesbar trop son, après que je qui Handles libre gegeben habe.
(Siehe Anhang) |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 21.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Dieter Zornow
chez mir aller qui Handles pour Assign aus, car du gibst vous pas wieder libre. chez mir sembler chacun la quantité à gauche pas lesbar trop son, après que je qui Handles libre gegeben habe.
(Siehe Anhang)
Dieter Zornow
Fermer hFile&
cela steht dans mon Code. Freier peux je qui Dossier pas donner.
je vois sur dem Bild seulement Punkte et Striche. Ist là dans qui Ausgabe quoi verrutscht ou bien venez cela wirklich raus. peut-être Il se trouve am Servicepack 3.
Na, en tout scheint cela procéder ensuite oui seulement jusqu'à XP SP2 trop marcher.  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.08.2008 ▲ |
|
| |
|
(1.117)
Deutsch
English
Français
Español
Italia
