Info-Fenster von Windows anzeigen

[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.

[Sir Rufo]

Zitat von 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.

Du sagst, mann muss bei den Delphi-Versionen aufpassen, und wir sagen, das ist Quatsch, wenn man es richtig definiert hat, dann definiert sich das durch die Verwendung von PChar und GetFileVersionSize von ganz alleine.

[DeddyH]

Zitat von Sir Rufo:

Du sagst, mann muss bei den Delphi-Versionen aufpassen, ...

Wo soll ich das denn gesagt haben?

[Sir Rufo]

Zitat von DeddyH:

Zitat von Sir Rufo:

Du sagst, mann muss bei den Delphi-Versionen aufpassen, ...

Wo soll ich das denn gesagt haben?

Uppps, ich glaube ich habe da den Kontext deiner Beanstandung verwechselt. Du hast dich wohl auf den Beitrag

Zitat von hathor:

Parameter von WINVER.exe gibt es bis WIN8.1 nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  strParams,FN : String;
begin                                          // uses Winapi.ShellAPI
 strParams:= ''; // für Programme MIT Parameter
 FN:='winver.exe';
ShellExecute(Application.Handle,NIL,PWChar(FN), PWChar(strParams),NIL, SW_Normal);
end;

bezogen, und das ist definitiv falsch, womit du natürlich recht hast.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  strParams,FN : String;
begin                                          // uses Winapi.ShellAPI
 strParams:= ''; // für Programme MIT Parameter
 FN:='winver.exe';
ShellExecute( Application.Handle, NIL, {PWChar ist hier FALSCH}PChar(FN), {PWChar}PChar(strParams), NIL, SW_Normal );
end;