XProfan

Deutsch

Leider war nicht vorgesehen, dass der Thread Prog_Loader von mir so belegt wurde. Sorry Alfred !

- An sich wollte ich nur ein kleines Beispiel posten. Dann aber hat Jörg Sellmeyer meinen Ergeiz angestachelt. - Ich bitte

iF oder einen anderen Admin ,
meine Beiträge aus dem oben genannten Thread zu löschen. Hier habe ich einen neuen aufgemacht.
Die neue Version von Quickstart - 1.07 steht hier zum Download. Es ist nur eine EXE-Datei. Man sollte ein Verzeichnis erstellen und die EXE da hinein kopieren. Beim ersten Start werden zwei Dateien angelegt und dann ist es besser, man hat ein Verzeichnis. - Für die, die das Programm schon haben: Einfach die EXE-Datei über die Vorgängerversion kopieren. So bleiben alle Einstellungen erhalten.

WICHTIG ! Dringend ein Tester mit dem Betriebssystem Windows-ME gesucht !!!

quickstart_1.7.zip	323 kB

Kurzbeschreibung:	exe-Datei 1.07...

Hochgeladen:	02.05.2007

Ladeanzahl:
		Herunterladen

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nico
Madysa

Ich werds mir ansehen, sobald ich Zeit habe.

Nico Madysa

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hallo an Alle:
Den Registryeintrag, um in das Verzeichnis Desktop zu kommen, habe ich von Jörg (Danke) - Jetzt suche ich den Eintrag, um in das VerzeichnisAutostart zu gelangen. Wer kann helfen ?

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Hi Horst, hab zwar nicht mehr ME, aber kann Dir sagen, dass es unter Vista einwandfrei funktioniert.

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Achso: Alle erweiterten Pfade wie Autostart, Startmenü, Sendto, Mülleimer und Co lassen sich absolut praktisch mit der FILEUNIT von iF schnell und einfach auslesen.

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Das hier funktioniert seit Win95:
Kompilieren Markieren Separieren

Def StartMenueAutostart(0) readini$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Startup)
Def EigeneDateien(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Personal)
Print StartMenueAutostart()
Print EigeneDateien()
WaitInput

Ansonsten such mal im Forum nach SHGetSpecialFolderLocation. Da findest Du noch mehr.

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

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Manfred
Barei

Hallo Horst,

wen ich es schaffe werde ich es am Wochenende mal unter ME testen.

Grus
Manfred

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

02.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nico
Madysa

Also bei mir stürzt Quickstart sofort beim Starten ab. Zugriffsverletzung in der Shell32.dll ...

Nico Madysa

03.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

@Leider Nico

Das gleiche Ergebnis wie bei meinem Freund

- Quickstart läuft nicht unter ...ME

- Sch.... Windows

Wahrscheinlich liegt es daran:
Kompilieren Markieren Separieren

Proc ExtractAssociatedIcon

    Parameters file$,i&
    Return External(SHELL32.dll,ExtractAssociatedIconA,%hinstance,Addr(file$),Addr(i&))

EndProc

Mit diesem Text (von Jörg Sellmeyer) können alle Icons dargestellt werden. Allerdings anscheinend nur unter ....XP (wahrscheinlich auch ...NT und ...2000)

Mit diesem Text können nur EXE-Icons dargestellt werden:
Kompilieren Markieren Separieren

DEF ExtractIcon(3) !SHELL32,ExtractIconA
DEF LoadImage(6) ! USER32,LoadImageA
DEF &BM_SETIMAGE $0F7
DEF &IMAGE_ICON $01
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = Control(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

EndProc

D.h., ich muss zwei Proceduren schreiben. Das Programm muss zuerst nach der Windows-Version suchen und dann entscheiden, mit welchem Code gearbeitet wird

In der Abbildung siehst Du die Fehlermeldung auf dem System meines Freundes (...ME) - Deine dürfte ähnlich sein

quick_error01.jpg	119 kB

Hochgeladen:	03.05.2007

Ladeanzahl:
		Herunterladen

03.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Horst Horn

Mit diesem Text können nur EXE-Icons dargestellt werden:

Das stimmt nicht! Selbst aus *.bmp-Dateien kannst Du damit Icons anzeigen. Dlls natürlich auch.

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

03.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

@Jörg !

Das stimmt nicht! Selbst aus *.bmp-Dateien kannst Du damit Icons anzeigen. Dlls natürlich auch.

Ich meine doch im Zusammenhang mit dem Quickstarter - Wer hatte sich denn beschwert, dass die Buttons bei den LNK-Dateien leer blieben und war dann so nett, mir die Lösung zu schicken ? - Das warst doch DU oder irre ich mich da - hä ???

03.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Hallo,

versuchs mal mit Def und lass das External weg ich habe auch mal ein Programm
gemacht, das hat zwar unter ME nur ein Standard Icon für lnk angezeigt ist aber nicht
abgestürtzt. Ich habe auch eine Imagelist benutzt.
Kompilieren Markieren Separieren

.Proc GetAssociatedIcon
Parameters source$,index&
Declare hdl&,x#,index#
Dim index#,2
Dim x#,len(source$)+1
String x#,0=source$
word index#,0 = index&
Let index&=1
Let hdl&=ExtractAssociatedIcon(%hinstance,x#,index#)
Dispose x#
Dispose index#
@ImageList_AddIcon(I_list&,hdl&) Icon in Imagelist einfügen
Return hdl&

EndProc