| |
|
|
- 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 | 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 ▲ |
|
|
|
| |
|
- page 3 - |
|
|
| Dateihandle wird avec close pas freigegeben, seulement avec assign handle,» |
|
|
| |
|
|
|
Dieter Zornow | @Jörg cela venez wirklich raus, mais c'est seulement qui dernier partie qui ersten courir oui aus dem Bildschirm, là es zuviele sommes, ici sommes aussi qui meisten lesbar, comment je so im vorbeiscrollen voyons peux. je denke mais pas, dass es am Servicepack 3 liegt. sur cet Weise peux on pas alle à gauche treffsicher auslesen. trop den Handles hat IF oui déjà dit comme allez. |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 22.08.2008 ▲ |
|
|
|
|
Jörg Sellmeyer | Ok - je habs la fois korrigiert. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.08.2008 ▲ |
|
|
|