(1.109)  S'inscrire

Français
Forum

Quickstart - un Ladeprogramm

 
- page 1 -


malheureusement était pas vorgesehen, dass qui Fil Prog_Loader de mir so belegt wurde. Sorry Alfred ! - à sich voulais je seulement un kleines Beispiel posten. ensuite mais hat Jörg Sellmeyer meinen Ergeiz angestachelt. - je s'il te plaît
iF ou bien une anderen Admin ,
mon Posts aus dem dessus genannten Fil trop effacer. ici habe je une neuen aufgemacht.
qui neue Version de Quickstart - 1.07 steht ici zum Télécharger. c'est seulement une EXE-Dossier. on sollte un Verzeichnis erstellen et qui EXE là hinein kopieren. Beim ersten Start volonté deux Fichiers angelegt et ensuite ist es besser, on hat un Verzeichnis. - Pour qui, qui cela Programme déjà avons: simple qui EXE-Dossier sur qui Vorgängerversion kopieren. So rester alle Einstellungen conservé.

WICHTIG ! Dringend un Tester avec dem Betriebssystem Windows-ME gesucht !!!

323 kB
Kurzbeschreibung: exe-Dossier 1.07...
Hochgeladen:02.05.2007
Downloadcounter: 29
Download
 
02.05.2007  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -


à 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 ? -
 
06.05.2007  ▲
 




Rolf
Koch
Hi Horst,
wieder une l'affaire de iF: Shortcut.pcu
 
06.05.2007  ▲
 



@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)
 
06.05.2007  ▲
 




Alfred
Wagner
allô Horst
cela sollte aider
KompilierenMarqueSé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 :  [...] 
06.05.2007  ▲
 



@allô Alfred
...es hilft !
merci
 
06.05.2007  ▲
 




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



@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  ▲
 



 
- page 3 -


@Jörg
Du devrait mir déjà zutrauen, dass je avec Textdateien tourner autour de peux

Wahrscheinlich habe je mich mais faux ausgedrückt:
KompilierenMarqueSéparation
but$ =  create(ITextbutton,%hwnd,Hilfe ,icon_dll&,#1, 10,25,60,25,10,R)
but1& = val(substr$(but$,1,|))e>

So comment ici avec qui Variable icon_dll& aus einer DLL-Dossier qui Icônes gelesen volonté peut (#1) voudrais je aus einer EXE-Dossier cela Programme-Icon lesen peut. qui Gag dabei wäre qui, dass je ensuite Icon et EXE-Dossier einem Button Montrer pourrait. Pour cette muss mais un Handle her et comment bekomme je cela ???

air serait qui Button ensuite so comment im Beispiel...

4 kB
Kurzbeschreibung: seulement un Beispiel...
Hochgeladen:07.05.2007
Downloadcounter: 169
Download
 
07.05.2007  ▲
 




Jörg
Sellmeyer
Horst Horn
@Jörg
Du devrait mir déjà zutrauen, dass je avec Textdateien tourner autour de peux


J'ai pensé so pour qui OP...

cela sollte Dir weiterhelfen:
KompilierenMarqueSéparation
 $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 ...
07.05.2007  ▲
 



@Jörg


J'ai pensé so pour qui OP...


Irgendwann viens je toi la fois chez
[web]https://wuestensand.info[/web]
besuchen et spiele à qui grossen Pauke chez Euch avec -

quand même merci - je werde la fois versuchen, weiterzukommen
 
07.05.2007  ▲
 




Frank
Abbing

So comment ici avec qui Variable icon_dll& aus einer DLL-Dossier qui Icônes gelesen volonté peut (#1) voudrais je aus einer EXE-Dossier cela Programme-Icon lesen peut. qui Gag dabei wäre qui, dass je ensuite Icon et EXE-Dossier einem Button Montrer pourrait. Pour cette muss mais un Handle her et comment bekomme je cela ???


Den Handle einer Exe ou bien Dll bekommst du avec qui API LoadLibrary(). cela Icon erhälst du ensuite avec ExtractAssociatedIcon().
tu peux aussi ExtractIconEx() benutzen, cela funktioniert seulement avec dem Dateinamen. Liefert mais la plus part du temps Icônes avec niedrigen Auflösungen zurück. je denke, dass Profans DrawExtIcon cet API (malheureusement) benutzt.
qui optimalen Icônes (beste Auflösung) gibt mais qui API SHGetFileInfo() zurück, weswegen je selber es daher verwende.
 
07.05.2007  ▲
 



◄

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

5.551 Views

Untitledvor 0 min.
mene22.12.2012
Julian Schmidt28.07.2011

Themeninformationen

cet Thema hat 9 participant:

unbekannt (11x)
Jörg Sellmeyer (5x)
Rolf Koch (4x)
Nico Madysa (3x)
Frank Abbing (1x)
Alfred Wagner (1x)
Manfred Barei (1x)
Dieter Zornow (1x)
GDL (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie