Español
Foro

Desktop Verknüpfung

 

Thomas
Freier
Como incluso kein WIN7 y nichts probieren kann: Tiene una una Code, con el todos Desktopverknüpfungen ermittelt voluntad puede?
Anlegen y el Ziel ggf. ändern, Yo ya con Andreas Ole_ShellLink.inc, bajo WIN7 en una erfolgreich testen dejar.
Nur el Auflisten ging gegenüber XP voll daneben.
 
Gruß Thomas
Windows XP SP2, XProfan X2
14.12.2012  
 



Hab kein Win7 a Hand -

hast Usted sinngemäß aber con XProfan ya folgendes Versucht... ?
cd desktoppfad
cd ..
cd ..
dir /a:D// verzeichnisse auflisten

y luego simplemente en todos gelisteten Verzeichnisse\Desktop ir.
 
14.12.2012  
 




Thomas
Freier
Yo denke.
'Rekursive Búsqueda después de Archivos
'aufgeschrieben por Thomas Glockmann bajo Mithilfe
'de David Strutz y Frank Abbing
Def FindFirstFile(2) !"kernel32","FindFirstFileA"
Def FindNextFile(2) !"kernel32","FindNextFileA"
Def FindClose(1) !"kernel32","FindClose"
Def Desktop(0) ReadIni$("Hkey_1","Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Programs")
Struct WIN32_FIND_DATA=dwFileAttributes&,ftCreationTime#(8),ftLastAccessTime#(8),\
ftLastWriteTime#(8),nFileSizeHigh&,nFileSizeLow&,dwReserved0&,dwReserved1&,\
cFileName#(260),cAlternate#(14)
Declarar Pos&
Declarar HandleA&[]
Declarar HandleA$[]
Declarar Verz&
Declarar Datei&
Declarar FH&
Declarar FindData#
Declarar PM$
Dim FindData#, Win32_Find_Data
Declarar Pfad$
Declarar Maske$

Proc DateiListe

    Parámetros Pfad$,Maske$
    PM$ = Pfad$ + "\\" + Maske$
    FH& = FindFirstFile(Addr(PM$),FindData#)

    Mientras que (Pos& >= 1) And (FH& >= 0) = 1

        Repeat

            If (@String$(FindData#,44) <> ".") And (@String$(FindData#,44) <> "..")

                If (FindData#.dwFileAttributes& & $10) = $10

                    Inc Verz&
                    HandleA&[Pos&] = FH&
                    HandleA$[Pos&] = Pfad$
                    Pfad$ = Pfad$ + "\\" + @String$(FindData#,44)
                    Inc Pos&
                    Dateiliste(Pfad$,Maske$)

                Más

                    Inc Datei&
                    AddStrings(DAT_LV%,Pfad$ + "\\" + @String$(FindData#,44))

                EndIf

            EndIf

        Until FindNextFile(FH&,FindData#) = 0

        Dec Pos&

        If Pos& >= 1

            FH& = HandleA&[Pos&]
            Pfad$ = HandleA$[Pos&]
            Case FindNextFile(FH&,FindData#) = 0 : Romper

        Más

            Romper

        EndIf

    EndWhile

ENDPROC

Pos& = 1
Cls
var font&=CreateFont(Arial,16,0,0,0,0)
var DAT_LV%=CreateListBox(%hwnd,"",10,30,610,376)
SetFont DAT_LV%,font&
var a$=translate$(Desktop(0),"\","\\")
Imprimir "Suche..."+a$
DateiListe(a$,"*")
FindClose(FH&)
WaitInput
DeleteObject font&
end
 
Gruß Thomas
Windows XP SP2, XProfan X2
15.12.2012  
 



¿Por qué sol höllenkompliziert o. qué spricht dagegen ... ?
chdir $AppDataDir
chdir "../../"
addfiles "*"
listbox$("",1)

Windows-Versionen con UAC puede esta natürlich el Wechseln en el Verzeichnisse
verhindern.
 
15.12.2012  
 




Thomas
Freier
Geht en una Actualización en una DAU. Hatte ya früher antes Ort mehrere Altversionen gefunden. Zukünftig Yo quería via Email y Programa updaten. Also sólo una vez todos alten ***.exe suchen y umbennen.
Um el gültigen Arbeitsordner a erfahren entonces el Ziel el Verknüpfung en el Desktop ermitteln. . Deshalb el algo "höllenkomplizierte" Code, el, hier lejos, todos gefundenen Verknüpfungen y ***.exe en un **.txt schreibt, el Yo entonces bekomme para el Updateanpassung.

Apéndice
Im Principio debería lo así ser
Windows 7: Pfad para Desktop

Der Desktop des gerade angemeldeten Benutzers es en el folgenden Ordner para encontrar:

Original-Windows-7-Pfad:
C:\Users\[Benutzername]\Desktop
Pfad-Bezeichnung en el Alemán Windows-7-Versión:
C:\Benutzer\[Benutzername]\Desktop

Pfad bajo Windows XP, 2000, 2003 (dt.):
C:\Dokumente y Einstellungen\[Benutzername]\Desktop



In el erzeugten **.txt fand Yo entonces una Línea, el vermutlich el gesuchte Verknüpfung ser podría
C:\Users\Lund\AppData\Roaming\\\\\\\Microsoft\Windows\Recent\JLKurier.lnk

Damit kann Yo vermutlich el alte ***.lnk no löschen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
15.12.2012  
 




Andreas
Miethe


Wenn Yo el correcto verstehe willst Usted todos *.lnk auflisten y el Pfad extrahieren ?

Anbei una Incluir y una kleiner Testcode

1 kB
Hochgeladen:15.12.2012
Ladeanzahl146
Descargar
6 kB
Hochgeladen:15.12.2012
Ladeanzahl157
Descargar
 
XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
15.12.2012  
 




Thomas
Freier
Gracias Andreas, en WIN7 hast du lo sicher getestet. En me con XP kommt alles como esperado (no).....una Endlosschleife....como no *.lnk disponible. Bitte una vez adaptar:
Var I& = -1
 
Gruß Thomas
Windows XP SP2, XProfan X2
15.12.2012  
 




Andreas
Miethe


Dann versuch doch veces el Pfad para todos Benutzer
GSFP(0,ADDR(Desktop$),25,0)'Pfad Alle Benutzer-Desktop

Lo son sí mehrere Möglichkeiten.

En me funktioniert el de paso auch con XP
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
15.12.2012  
 




Thomas
Freier
Andreas, es doch alles super. Yo habe no *.lnk . El gängigen Programas son en el Launcher . Und el Bucle endet no en:
Var Count& = GetCount(0)
Var I& =0' hier mejor -1

Repeat

    Imprimir GetDir$("@")+"\\"+GetString$(0,I&)
    Imprimir
    Imprimir "Das Programa befindet se hier :"
    Imprimir GetLinkPath(GetString$(0,I&))
    Inc I&

Until I& = count&


Gönnst du deiner Ole_ShellLink.inc todavía una pequeña Referencia en el letzten Stand.


28 kB
Hochgeladen:16.12.2012
Ladeanzahl187
Descargar
 
Gruß Thomas
Windows XP SP2, XProfan X2
16.12.2012  
 




Andreas
Miethe


Ok, Tengo el veces para X2 adaptado. El Incluir sowie el Beispiele.

En Usted Ahora debe auch algo beim Auslesen adecuado voluntad, como en el Ejemplo el Startmenü ausgelesen se.

3 kB
Hochgeladen:16.12.2012
Ladeanzahl190
Descargar
 
XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
16.12.2012  
 




Thomas
Freier
Gracias, se ejecuta alles como se.
 
Gruß Thomas
Windows XP SP2, XProfan X2
17.12.2012  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

11.378 Views

Untitledvor 0 min.
Uwe Lang29.01.2022
funkheld15.01.2022
Stringray05.01.2022
maroro15.06.2018
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie