XProfan

- Page 2 -

on any (Genies and Normalos

)
The ISL.DLL of MaiK Strohfeld is a fantastic thing, but very tall and even a DLL, The included go must.
my question:
gives it somewhere a Codefetzen on anybody Festplatte, the one with a LNK-File within one Program (into Settings) create can ?
i will a LNK-File in whom Autostart present can (Anwenderabhängig) - the Delete is no trouble. who can help ? -

Rolf
Koch

Hi Horst,
again a thing of iF: Shortcut.pcu

@Rolf
for the Using the ShortCut.pcu be I simply To stupid !

Parameter: target_$,link_$,wdir_$,args_$,shcmd&,desc_$,icnfle_$,icid&

can me there Nich time someone one praktisches example write.

The Parameter, The here desires go, say me nothing (in the Help)

Alfred
Wagner

Hello Horst
the ought to help
Compile Mark Separation

######################################################
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$
Erase #1
End

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

@Hello Alfred
...it helps !

thanks

Rolf
Koch

Hi Horst,
in the Ordner of iF, there a File: shortcut-demonstration.src.prf
there sees one still The Parameter

@Hi Rolf

there sees one still The Parameter

well hopefully I see the

an further question standing in the space:

with dll&=USEDLL(....) can I a handle for a DLL create.
If I but the handle of an File having would like, How make I the ???

Jörg
Sellmeyer

what want Thou with the File make? If you something reinschreiben want, or so, is Assign your friend.

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

- Page 3 -

@Jörg
you should me already zutrauen, I with Text files bypass can

probably have I but wrong framed:
Compile Mark Separation

but$ =  create(ITextbutton,%hwnd,Hilfe ,icon_dll&,#1, 10,25,60,25,10,R)
but1& = val(substr$(but$,1,|))e>

so as here with the Variable icon_dll& a DLL-File The Icons red go can (#1) would like I a EXE-File the program-Icon reading can. The Joke thereby would the, I then Icon and EXE-File one Button Show could. For this must but a handle since and How I get the ???

Appearance would the Button then so How in the example...

beispiel01.jpg	4 kB

Kurzbeschreibung:	only an example...

Hochgeladen:	05/07/07

Downloadcounter:
		Download

Jörg
Sellmeyer

Horst horn

@Jörg
you should me already zutrauen, I with Text files bypass can

I thought so to the OP...

the ought to you help on:
Compile Mark Separation

 $H messages.ph
 $H windows.ph
Def ExtractIcon(3) !SHELL32,ExtractIconA
Declare Prog$,hIcon&,index%,Btn&
Prog$=$SysPath + \calc.exe
index%=0
Cls
hIcon&=ExtractIcon(%hinstance,Addr(Prog$),index%)
Btn& = Create(IconButton,%hwnd,,100,100,40,40)
Sendmessage(Btn&,~BM_SETIMAGE,~IMAGE_ICON,hIcon&)
Wai

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

@Jörg

I thought so to the OP...

Sometime come I you time with
[web]https://wuestensand.info[/web]
visit and Games on the grossen Pauke with you with -

nevertheless thanks - i'll time try, weiterzukommen

Frank
Abbing

whom lever of/ one Exe or Dll get You with the API LoadLibrary(). the Icon erhälst You then with ExtractAssociatedIcon().
You can also ExtractIconEx() using, the functions only with the Filenames. supply but usually Icons with niedrigen Auflösungen back. i think, that Profans DrawExtIcon these API (unfortunately) using.
The optimalen Icons (best dissolution) gives but the API SHGetFileInfo() back, and so I yourself it therefore use.