XProfan

Hab ne...aucune Win7 zur main -

la hâte Du sinngemäß mais avec XProfan déjà folgendes Versucht... ?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

cd desktoppfad
cd ..
cd ..
dir /a:D// verzeichnisse auflisten

et ensuite simple dans alle gelisteten Verzeichnisse\Desktop aller.

14.12.2012 ▲

Thomas
Freier

je denke.

'Rekursive cherche pour Fichiers
'aufgeschrieben de Thomas Glockmann sous Mithilfe
'de David Strutz et 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)
Déclarer Pos&
Déclarer HandleA&[]
Déclarer HandleA$[]
Déclarer Verz&
Déclarer Datei&
Déclarer FH&
Déclarer FindData#
Déclarer PM$
Faible FindData#, Win32_Find_Data
Déclarer Pfad$
Déclarer masque$

Proc DateiListe

    Paramètres Pfad$,masque$
    PM$ = Pfad$ + "\\" + masque$
    FH& = FindFirstFile(Addr(PM$),FindData#)

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

        Repeat

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

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

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

                D'autre

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

                EndIf

            EndIf

        Until FindNextFile(FH&,FindData#) = 0

        Décembre Pos&

        Si Pos& >= 1

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

        D'autre

            Pause

        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),"\","\\")
Imprimer "Suche..."+a$
DateiListe(a$,"*")
FindClose(FH&)
WaitInput
DeleteObject font&
end

Gruß Thomas
Windows XP SP2, XProfan X2

pourquoi sol höllenkompliziert bzw. quoi spricht dagegen ... ?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

chdir $AppDataDir
chdir "../../"
addfiles "*"
listbox$(»,1)

Windows-Versionen avec UAC peut dabei naturellement cela échanger dans qui Verzeichnisse
verhindern.

Thomas
Freier

allez um un Update chez einem DAU. Hatte déjà früher avant lieu plusieurs Altversionen trouvé. Zukünftig voulais je via Email et Programme updaten. alors seulement einmal alle alten ***.exe chercher et umbennen.
Um den gültigen Arbeitsordner trop erfahren ensuite cela but qui Verknüpfung sur dem Desktop ermitteln. . c'est pourquoi qui quelque chose "höllenkomplizierte" Code, qui, ici entfernt, alle gefundenen Verknüpfungen et ***.exe dans un **.txt écrit, qui je ensuite bekomme pour qui Updateanpassung.

Nachtrag
Im Prinzip sollte es so son

Windows 7: Pfad zum Desktop

qui Desktop des justement angemeldeten Benutzers ist im folgenden Dossier pour trouver:

Original-Windows-7-Pfad:
C:\Users\[Benutzername]\Desktop
Pfad-Bezeichnung dans qui deutschen Windows-7-Version:
C:\Benutzer\[Benutzername]\Desktop

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

dans qui erzeugten **.txt fand je ensuite une la ligne, qui probablement qui gesuchte Verknüpfung son pourrait

C:\Users\Lund\AppData\Roaming\\\\\\\Microsoft\Windows\Recent\JLKurier.lnk

avec cela peux je probablement qui vieille ***.lnk pas effacer.

Gruß Thomas
Windows XP SP2, XProfan X2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

si je cela richtig verstehe veux Du alle *.lnk auflisten et den Pfad extrahieren ?

Anbei une Include et un kleiner Testcode

readlnkpath.prf

1 kB

Hochgeladen:

15.12.2012

Downloadcounter:

Download

ole_shelllink.inc

6 kB

Hochgeladen:

15.12.2012

Downloadcounter:

Download

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 : [...]

Thomas
Freier

merci Andreas, sur WIN7 la hâte du es sûrement getestet. chez mir avec XP venez alles comment erwartet (pas).....une Endlosschleife....là aucun *.lnk vorhanden. s'il te plaît einmal anpassen:

Var I& = -1

Gruß Thomas
Windows XP SP2, XProfan X2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

ensuite versuch doch la fois den Pfad pour alle Benutzer

GSFP(0,ADDR(Desktop$),25,0)'Pfad Alle Benutzer-Desktop

il y a oui plusieurs Opportunités.

chez mir funktioniert cela incidemment aussi avec 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 : [...]

Thomas
Freier

Andreas, mais est alles super. j'ai aucun *.lnk . qui gängigen Programme sommes im Launcher . et qui Boucle endet pas chez:

Var Count& = GetCount(0)
Var I& =0' ici besser -1

Repeat

    Imprimer GETDIR $("@")+"\\"+GetString$(0,I&)
    Imprimer
    Imprimer "Das Programme est sich ici :"
    Imprimer GetLinkPath(GetString$(0,I&))
    Inc I&

Until I& = count&

Gönnst du deiner Ole_ShellLink.inc encore une kleinen Hinweis sur den letzten Stand.

screen1.jpg	28 kB

Hochgeladen:	16.12.2012

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

16.12.2012 ▲

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Ok, j'ai cela la fois pour X2 angepasst. qui Include sowie qui Beispiele.

chez Dir sollte maintenant aussi quelque chose beim Lecture angezeigt volonté, là im Beispiel cela Startmenü ausgelesen wird.

shelllink.zip	3 kB

Hochgeladen:	16.12.2012

Downloadcounter:
		Download

16.12.2012 ▲

Thomas
Freier

merci, fonctionne alles comme soll.

Gruß Thomas
Windows XP SP2, XProfan X2

17.12.2012 ▲