Info-Fenster von Windows anzeigen

[DeddyH]

Zitat von hathor:

Zitat von DeddyH:

Zitat von EWeiss:

Zitat:

Hallo Hathor, dass klappt auch, danke.

Und auch nur das dein Lösungsansatz.

U.U. stimmen die Parametertypen aber nicht, je nach Delphi-Version.
ShellExecuteA -> PAnsiChar
ShellExecuteW -> PWideChar
ShellExecute -> PChar

Gelaber!

Dann mach dasselbe doch mal mit Delphi <= 2007.

[Sir Rufo]

Zitat von DeddyH:

Dann mach dasselbe doch mal mit Delphi <= 2007.

Kann man bei Delphi vor der Version 2007 das hier nicht schreiben?
function GetFileVersionInfoSize; external version name 'GetFileVersionInfoSizeA'; Wäre mir jetzt neu ...

[DeddyH]

Und das hat genau was mit meinem Post zu tun? ShellExecute ist in Delphi <= 2007 als ShellExecuteA deklariert und erwartet PAnsiChar-Parameter (entspricht PChar in diesen Versionen). Ab Delphi 2009 ist es ShellExecuteW mit PWideChar-Parametern (entspricht dann hier PChar). Der Compiler weiß natürlich, von welchem Ursprungstyp PChar ist und zeigt diesen dann im Hint an. Von daher hat der gepostete Screenshot keine "Beweiskraft".

[Sir Rufo]

Wenn man es vernünftig haben will, dann nimmt erstellt man sich eine Unit, wo man a) die Api-Aufrufe korrekt deklariert und b) UNICODE / ANSI safe ist.

So sähe das dann aus:

Delphi-Quellcode:

unit myWindows,

interface

uses
  Windows;

type
  LPCTSTR = PChar;
  LPCSTR = PAnsiChar;
  LPCWSTR = PWideChar;

{$EXTERNALSYM GetFileVersionInfoSize}
function GetFileVersionInfoSize(lptstrFilename: LPCTSTR; lpdwHandle: LPDWORD): DWORD; stdcall;
{$EXTERNALSYM GetFileVersionInfoSizeA}
function GetFileVersionInfoSizeA(lptstrFilename: LPCSTR; lpdwHandle: LPDWORD): DWORD; stdcall;
{$EXTERNALSYM GetFileVersionInfoSizeW}
function GetFileVersionInfoSizeW(lptstrFilename: LPCWSTR; lpdwHandle: LPDWORD): DWORD; stdcall;

implementation

function GetFileVersionInfoSize; external version name {$IFDEF UNICODE} 'GetFileVersionInfoSizeW' {$ELSE} 'GetFileVersionInfoSizeA' {$ENDIF};
function GetFileVersionInfoSizeA; external version name 'GetFileVersionInfoSizeA';
function GetFileVersionInfoSizeW; external version name 'GetFileVersionInfoSizeW';

end.

Das dieses so in den Delphi-Versionen vor Delphi 2007 nicht gemacht wurde, dafür kann ich auch nichts, aber man hat es eben selber in der Hand, ob man es vernünftig, korrekt und sicher hat

[DeddyH]

Aber auch dann muss man die richtigen Parametertypen verwenden.

[Sir Rufo]

Zitat von DeddyH:

Aber auch dann muss man die richtigen Parametertypen verwenden.

Ja, immer den richtigen, je nachdem welche Version ich brauche:

• Das was die Entwicklungsumgebung kann: GetFileVersionInfoSize -> nimm PChar
• Ich will UNICODE: GetFileVersionInfoSizeW -> nimm PWideChar
• Ich will ANSI: GetFileVersionInfoSizeA -> nimm PAnsiChar

Update
Genau das steht auch in der MSDN-Doku zum Datentyp LPCTSTR

Zitat:

LPCTSTR

An LPCWSTR if UNICODE is defined, an LPCSTR otherwise. For more information, see Windows Data Types for Strings.

This type is declared in WinNT.h as follows:

Code:

#ifdef UNICODE
 typedef LPCWSTR LPCTSTR; 
#else
 typedef LPCSTR LPCTSTR;
#endif

Somit ist also

Delphi-Quellcode:

type
  LPCTSTR = PChar;
  LPCSTR  = PAnsiChar;
  LPCWSTR = PWideChar;

[DeddyH]

Das ist doch exakt das, was ich vorher gesagt habe und was als Quatsch abgetan wurde, weil die IDE im Hint ja den Ursprungstypen anzeigt. Wir drehen uns im Kreis.