XProfan

Einfach el *.lnk Expediente löschen

GDL

Hola Tomás,

bin ne bastante kleine Windowsleuchte, sagst me Por favor, todavía wo Yo el .lnk finde.Gracias.Posesiones ni idea bajo welcher Bezeichnung el Programas geführt y ser con suchen erhält uno soviele .lnk en verschiedenen Verzeichnissen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Also si el Link selber erstellt hast, wirste sí hoffentlich Wissen, en welchem Systemordner él erstellt wurde. Desktop y Startmenü hay sí siempre 2, para User y para AllUser. Im allgemeinen solltest Usted después de Möglichkeit el User-Variante wählen. Diese Ordner kannste z.B. con el File.pcu de IF ermitteln. Dann überprüfst Usted, si Su Link en diesem Ordner existiert y löscht ihn.
Z.B. DesktopUser WinXP meist: c

okumente y Einstellungen...UserName...Desktop (aber Por favor, ermitteln, no absoluten Pfade uso). Jetzt hängste todavía MeinProgramm.lnk a y löscht esta, si él existiert.
Hoffentlich war el verständlich.

Kompilieren Marca Separación

 {$cleq}
 $U file.pcu = f
cls
print fgetdir.startmenu()

if fchdir(fgetdir.startmenu())

    addfiles *"*.*"
    listbox$("",1)

else

    print "konnte nicht nach",fgetdir.startmenu(),"wechseln."
    waitkey

endif

end

GDL

Hola Tomás,

danke para deine Antwort.El Links Yo no incluso erstellt y había auch ni idea wo el en Windows hinkommen, después de nem Setup.
Komme sólo de nem techn.Zona y habe sólo Dos y Mikrocontroler qué a tun.Windows issn nen Buch con 7 Siegeln para mich.
Yo frage desshalb siempre, porque Hice gesundheitlichen Gründen nimmer el Nerv habe en mich aún en el Windowsumgebung einzuarbeiten.
Darum bin Yo Euch auch así dankbar,si Ihr me en mi Dateigenerator helft.Dafür darf auch cada Principiante( para Profis a simplemente) ihn nutzen,obwohl Yo el Programa eigentlich sólo para mich schrieb(kann no Unterstützung leisten).

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hola si,

danke auch dir.Warst con deinem Posting más rápido como Yo.

Servus
Georg(el Comunidad Nervensäge)

Windows7 Xprofan 8,9,10 [...]

Lol Communitynervensäge <-- algo como tener Yo sí todavía nie gehört.

hrm

Hab Usted ahora algo en rápido Zusammengebastelt, el Feinheiten mußte aber todavía selber erledigen
Kompilieren Marca Separación

Def SHGetSpecialFolderLocation(3) ! "SHELL32","SHGetSpecialFolderLocation"
Def SHGetPathFromIDList(2)        ! "SHELL32","SHGetPathFromIDListA"
Def DeleteFile(1) !"KERNEL32","DeleteFileA"
Def CSIDL_DESKTOP  0 Desktop Ordner
Def CSIDL_PROGRAMS 2 Startmenü
Def CSIDL_PERSONAL 5 Eigenen Dateien
Def CSIDL_STARTUP  7  Autostart
Def CSIDL_SENDTO   9  SendTo
Def CSIDL_FONTS   20  Fonts

Proc GetSpecialFolders

    parameters Folder&
    Declare itemid&, Result#, RetStr$
    Dim Result#, 261

    If SHGetSpecialFolderLocation(0, Folder&, Addr(itemid&)) = 0

        If SHGetPathFromIDList(itemid&, Addr(Result#)) = 0

            Clear Result#

        EndIf

    Else

        Clear Result#

    EndIf

    RetStr$ = String$(Result#,0)
    Dispose Result#
    Return RetStr$

EndProc

Declare Result$
Result$ = GetSpecialFolders(CSIDL_PROGRAMS)
Result$ = Result$ + "Mein Programm.lnk"

If FileExists(Result$)

    DeleteFile(Addr(Result$))

EndIf

Aber vorsichtig Testen, bevor Usted löscht. In Profano² bin Yo nämlich auch todavía una kleines Licht

18.06.2005 ▲

GDL

hallo ihr beiden,

danke euch beiden, tal vez schaffen lo el zwei pequeño Lichter nen bisschen heller a voluntad.

Servus
Georg

P.S. Thomas, si dies con el sfx packer klappt, darf Yo, el weitergeben?

Windows7 Xprofan 8,9,10 [...]

18.06.2005 ▲

[quote:d11a2820ae=GDL]
P.S. Thomas, si dies con el sfx packer klappt, darf Yo, el weitergeben?[/quote:d11a2820ae]Kannste hacer con, qué Usted möchtest, solange Usted el Exe no manipulierst, also mein © entfernst usw. Downloadlink dafür gibts auch no mehr, habs irgendwann tiempos de meiner alten Homepage gelöscht. Hauptsache es nützlich para Usted

18.06.2005 ▲