Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Wieder mal Shellexecute (https://www.delphipraxis.net/34923-wieder-mal-shellexecute.html)

sminds 30. Nov 2004 09:54


Wieder mal Shellexecute
 
Habe mir einige Posts angeschaut, jedoch will das Shellexecute auf Windows 98 - Rechnern nicht funktionieren :wall:

z.B.

Delphi-Quellcode:
ShellExecute(Application.Handle, 'open',
                     pchar('test.doc'),
                     nil,
                     PChar('c:\'),
                     sw_ShowNormal);

ShellExecute(0, 'open',
                     pchar('c:\test.doc'),
                     nil,
                     '',
                     sw_ShowNormal);

ShellExecute(Application.Handle, '',
                     pchar('c:\test.doc'),
                     nil,
                     '',
                     sw_ShowNormal);
funktioniert unter Windows XP ohne Probleme, unter Windows 98 jedoch nicht (es öffnet sich nichts).
Wenn ich im Explorer die Dateien anklicke, öffnen sie sich mit Word. Laut Microsoft müßte Shellexecute ab Windows 95 und NT 3.5 funktionieren, ....

Wäre Dankbar, wenn mir jemand helfen könnte... vielleicht gibt es eine alternative Funktion, Dateien in Delphi 7.x zu öffnen.

Egon.

mh166 30. Nov 2004 10:05

Re: Wieder mal Shellexecute
 
sVielleicht liegts daran:

Zitat:

Zitat von Der PSDK
Windows 95/98/Me: ShellExecute is supported by the Microsoft Layer for Unicode. To use this, you must add certain files to your application, as outlined in Microsoft Layer for Unicode on Windows 95/98/Me Systems.

Keine Ahnung, obs das is, aber such einfach mal im PSDK/MSDN danach.

mfg, mh166

MathiasSimmack 30. Nov 2004 10:13

Re: Wieder mal Shellexecute
 
Daran liegt´s nicht. "ShellExecute" geht auch unter 9x/ME problemlos.

sminds 30. Nov 2004 10:19

Re: Wieder mal Shellexecute
 
Laut Microsoft sind dies die Voraussetzungen und diese habe ich überprüft.

Minimum DLL Version shell32.dll version 3.51 or later
Custom Implementation No
Header shellapi.h
Import library shell32.lib
Minimum operating systems Windows NT 3.1, Windows 95
Unicode Implemented as ANSI and Unicode versions

@MathiasSimmack: kannst Du mir bitte sagen, welche shell32.dll Du bei Windows 98 verwendest?


Danke,
Egon.

MathiasSimmack 30. Nov 2004 10:50

Re: Wieder mal Shellexecute
 
Kann ich dir nicht sagen. Ich habe gerade keinen 98er-Rechner zur Hand. Das spielt aber auch keine Rolle, weil ich bisher noch nie Probleme mit "ShellExecute" hatte. Die Nummer ist aber 4.noch was, AFAIK.

Andere Fehlerquellen kannst du mit Sicherheit ausschließen?

sminds 30. Nov 2004 10:58

Re: Wieder mal Shellexecute
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von MathiasSimmack
Kann ich dir nicht sagen. Ich habe gerade keinen 98er-Rechner zur Hand. Das spielt aber auch keine Rolle, weil ich bisher noch nie Probleme mit "ShellExecute" hatte. Die Nummer ist aber 4.noch was, AFAIK.

Andere Fehlerquellen kannst du mit Sicherheit ausschließen?


Habe z.B. das Program Exelnk getestet, das freundlicherweise hier gepostet wurde. Unter XP werden alle LNK geöffnet, unter 98 nicht. :wall:


:gruebel: :gruebel: :gruebel:

MathiasSimmack 30. Nov 2004 11:15

Re: Wieder mal Shellexecute
 
Schon mal das ausprobiert. Nur zum Testen. Wenn das auch nicht geht, dann würde ich mal behaupten, stimmt entweder mit deinem Windows oder mit deiner Delphi-Version was nicht.

sminds 30. Nov 2004 12:17

Re: Wieder mal Shellexecute
 
Zitat:

Zitat von MathiasSimmack
Schon mal das ausprobiert. Nur zum Testen. Wenn das auch nicht geht, dann würde ich mal behaupten, stimmt entweder mit deinem Windows oder mit deiner Delphi-Version was nicht.

Vielen Dank :thumb: , damit geht es bei mir auf NT, 98 & XP. :lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz