XProfan

- page 2 -

Jörg
Sellmeyer

Horst Horn

@Jörg !

Horst Horn

c'est ça pas! Selbst aus *.bmp-Fichiers peux Du avec cela Icônes Montrer. Dlls naturellement aussi.

je mon doch im Zusammenhang avec dem Quickstarter - qui hatte sich car beschwert, dass qui Buttons chez den LNK-Fichiers vide blieben et était ensuite so gentil, mir qui Solution trop envoyons ? - cela étais doch DU ou bien irre je mich là - hä ???

Horst, mon Antwort bezieht sich sur Dein zweites Codefragment: CreateIconButton:
avec cela laisser sich plan pas seulement Icônes aus Exe-Fichiers Montrer, mais aussi aus anderen Fichiers.
Erstellst Du etwa chaque la fois den Button récente? Es reicht, si Du avec SendMessage dem Button un nouveau Bild zuweist.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

03.05.2007 ▲

GDL

Kam malheureusement seulement aujourd'hui zum Testen. Stürzt chez mir sous WinME aussi ab.

salut
Georg

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

[...]

03.05.2007 ▲

@merci Dir Georg
suis déjà dabei, une schizophrenen Quickstarter trop écrivons. si qui soweit ist, melde je mich wieder. Allen Testern encore la fois Dankeschön !

04.05.2007 ▲

Nico
Madysa

Jupp, c'est oui c'est ca mon Fehlermeldung. je suis mich déjà sur den prochain Test, je serait cela Programme nämlich volontiers la fois voyons.

Nico Madysa

04.05.2007 ▲

à Alle (Genies et Normalos

)
qui ISL.DLL de MaiK Strohfeld ist une phantastische l'affaire, mais très gross et plan une DLL, qui mitgeliefert volonté muss.
mon Frage:
Gibt es irgendwo une Codefetzen sur irgendeiner Festplatte, avec dem on une LNK-Dossier dedans eines Programmes (dans den Einstellungen) erstellen peux ?
je veux une LNK-Dossier dans den Autostart eintragen peut (Anwenderabhängig) - cela Effacer ist ne...aucune Problem. qui peux aider ? -

Rolf
Koch

Hi Horst,
wieder une l'affaire de iF: Shortcut.pcu

@Rolf
Pour qui Aider de qui ShortCut.pcu suis je simple trop blöd !

paramètre: target_$,link_$,wdir_$,args_$,shcmd&,desc_$,icnfle_$,icid&

peux mir là nich la fois quelqu'un un praktisches Beispiel écrivons.

qui paramètre, qui ici verlangt volonté, dire mir rien (dans qui Aider)

Alfred
Wagner

allô Horst
cela sollte aider
Kompilieren Marque Séparation

######################################################
Eine Verknüpfung anlegen
######################################################
Original von Andreas Miethe * Juli 2002
######################################################
Geändert von Alfred Wagner * April 2007
######################################################
Definitionen
DEF MultiByteToWideChar(6) ! Kernel32,MultiByteToWideChar
DEF CoInitialize(1)        ! OLE32,CoInitialize
DEF CoUnInitialize(0)      ! OLE32,CoUninitialize
DEF CoCreateInstance(5)    ! OLE32,CoCreateInstance
Konstanten
DEF &PShell_Release     8
DEF &PShell_SetDescription 28
DEF &PShell_SetWorkingDirectory 36
DEF &PShell_SetArguments 44
DEF &PShell_SetIconLocation 68
DEF &PShell_SetPath 80
DEF &PFile_Release 8
DEF &PFile_Save 24
globale Variablen
Declare CLSID_IShellLink#
Declare IID_IShellLink#
Declare IID_IPersistFile#

Proc CreateLink

    Declare Pshell&,PFile&,Command&
    Declare WideFile$
    Parameters LinkFile$,Datei$,Beschreibung$,Arbeitsordner$,Argumentenliste$,IconFile$,IconNo&
    Dim CLSID_IShellLink#,16
    Long CLSID_IShellLink#,0 = $00021401
    Word CLSID_IShellLink#,4 = $0000
    Word CLSID_IShellLink#,6 = $0000
    Byte CLSID_IShellLink#,8 = $C0
    Byte CLSID_IShellLink#,9 = $00
    Byte CLSID_IShellLink#,10 = $00
    Byte CLSID_IShellLink#,11 = $00
    Byte CLSID_IShellLink#,12 = $00
    Byte CLSID_IShellLink#,13 = $00
    Byte CLSID_IShellLink#,14 = $00
    Byte CLSID_IShellLink#,15 = $46
    Dim IID_IShellLink#,16
    Long IID_IShellLink#,0 = $000214EE
    Word IID_IShellLink#,4 = $0000
    Word IID_IShellLink#,6 = $0000
    Byte IID_IShellLink#,8 = $C0
    Byte IID_IShellLink#,9 = $00
    Byte IID_IShellLink#,10 = $00
    Byte IID_IShellLink#,11 = $00
    Byte IID_IShellLink#,12 = $00
    Byte IID_IShellLink#,13 = $00
    Byte IID_IShellLink#,14 = $00
    Byte IID_IShellLink#,15 = $46
    Dim IID_IPersistFile#,16
    Long IID_IPersistFile#,0 = $0000010b
    Word IID_IPersistFile#,4 = $0000
    Word IID_IPersistFile#,6 = $0000
    Byte IID_IPersistFile#,8 = $C0
    Byte IID_IPersistFile#,9 = $00
    Byte IID_IPersistFile#,10 = $00
    Byte IID_IPersistFile#,11 = $00
    Byte IID_IPersistFile#,12 = $00
    Byte IID_IPersistFile#,13 = $00
    Byte IID_IPersistFile#,14 = $00
    Byte IID_IPersistFile#,15 = $46
    CoInitialize(0)
    CoCreateInstance(CLSID_IShellLink#,0,1,IID_IShellLink#,Addr(PShell&))
    Command& = Long(Pshell&,0)
    CALL(LONG(COMMAND&,0),PShell&,IID_IPersistFile#,Addr(PFile&))QueryInterface ermitteln
    CALL(LONG(COMMAND&,&PShell_SetPath),PShell&,Addr(Datei$))Datei
    CALL(LONG(COMMAND&,&PShell_SetDescription),PShell&,Addr(Beschreibung$))Beschreibung
    CALL(LONG(COMMAND&,&PShell_SetWorkingDirectory),PShell&,Addr(Arbeitsordner$))Arbeits-Ordner
    CALL(LONG(COMMAND&,&PShell_SetArguments),PShell&,Addr(Argumentenliste$))Argumentenliste
    CALL(LONG(COMMAND&,&PShell_SetIconLocation),PShell&,Addr(IconFile$),IconNo&)IconLocation
    WideFile$ = Space$(Len(LinkFile$)*2)
    MultiByteToWideChar(0,1,addr(LinkFile$),-1,addr(WideFile$),Len(WideFile$))LinkFile umwandeln
    Command& = Long(PFile&,0)
    CALL(LONG(COMMAND&,&PFile_Save),PFile&,Addr(WideFile$),1)LinkFile speichern
    Command& = Long(PShell&,0)
    CALL(LONG(COMMAND&,&PShell_Release),PShell&)
    Command& = Long(PFile&,0)
    CALL(LONG(COMMAND&,&PFile_Release),PFile&)
    CoUnInitialize()
    Dispose CLSID_IShellLink#
    Dispose IID_IShellLink#
    Dispose IID_IPersistFile#

EndProc

DEF @GSFP(4) ! Shell32,SHGetSpecialFolderPathA
Declare LinkFile$,Datei$,Beschreibung$,Arbeitsordner$,Argumentenliste$,IconFile$,IconNo&,Inifile$
Def Home(0) Translate$(Upper$(Par$(0)),Upper$(FindFirst$(Par$(0))),)
IniFile$ = Home()+ Profan.exe

Proc Desktop

    Datei$ = IniFile$
    Beschreibung$ =
    IconFile$ =
    IconNo& = 1
    Arbeitsordner$ =
    Argumentenliste$ =
    LinkFile$ = Space$(255)
    GSFP(0,ADDR(LinkFile$),0,0)Pfad zu Desktop
    LinkFile$ = Trim$(LinkFile$)+\Profan.exe.lnk
    Link anlegen
    CreateLink LinkFile$,Datei$,Beschreibung$,Arbeitsordner$,Argumentenliste$,IconFile$,IconNo&

Endproc

Desktop
GSFP(0,ADDR(LinkFile$),2,0)Pfad zu Startmenü-Programme
GSFP(0,ADDR(LinkFile$),5,0)Pfad zu Eigene Dateien
GSFP(0,ADDR(LinkFile$),6,0)Pfad zu Favorieten
GSFP(0,ADDR(LinkFile$),7,0)Pfad zu Autostart
GSFP(0,ADDR(LinkFile$),8,0)Pfad zu Recent
GSFP(0,ADDR(LinkFile$),9,0)Pfad zu Senden an
GSFP(0,ADDR(LinkFile$),11,0)Pfad zu Startmenü
Cls
Print IniFile$ +
Verknüpfung der Profan.exe auf dem Desktop erstellen
Print
Print Bitte Beachten !
Print Das zu verknüpfende Programm muß sich im selben Ordner befinden wie
das ausführende (hier die Profrun32.exe)
Print
Print Die Verknüpfung wird bei einem beliebigen Tastendruck wieder gelöscht
Waitinput
Link löschen
Assign #1, LinkFile$
Effacer #1
Fin

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

@allô Alfred
...es hilft !

merci

Rolf
Koch

Hi Horst,
im Dossier de iF, gibt es une Dossier: shortcut-demo.src.prf
là sieht on doch qui paramètre

@Hi Rolf

là sieht on doch qui paramètre

na hoffentlich vois je cela

une weitere Frage steht im espace:

avec dll&=USEDLL(....) peux je un Handle pour une DLL erstellen.
si je mais cela Handle einer Dossier avons voudrais, comment fais je cela ???

07.05.2007 ▲

Jörg
Sellmeyer

quoi veux Du car avec qui Dossier faire? si Du quelque chose reinschreiben veux, ou bien so, ist Assign Dein ami.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07.05.2007 ▲