Info-Fenster von Windows anzeigen

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

[DeddyH]

Jetzt sind wir uns endlich einig . Der Hinweis mit der Delphi-Version bezog sich auf den Screenshot.

[hathor]

Was ist das hier eigentlich?
Eine Hetzjagd?
SCHEISSGELABER !!!
Gibt es hier keinen Moderator, der den ganzen Scheiss mal rauswirft???!!!

[Sir Rufo]

Also uns geht es um die Fakten und die sachliche Richtigkeit.

Worum geht es dir? Ruhm, Ehre, Anerkennung, ...

[Willie1]

Hallo Leute,
der Ausgangspunkt meiner Frage war, eine About-Box für meine eigenen Programme. In dieser zeige ich zusätzlich meine eigene Ikone, die Windows-Version und die Größe des Arbeitsspeichers.
Ab Windows 8.1 lässt die Version nicht mehr mit GetWindowsVersion und seit W 10 auch nicht mehr über die Registry abfragen.
Meine Idee war ein Button auf der About-Box, mit der sich das Windows-Info Fenster öffnen lässt. (Bei Vista wird hier auch der Arbeitsspeicher angezeigt, nicht bei W 10).
Da kam mir Helmis Vorschlag mit ShellAbout gerade recht: About-Box Und Windows-Info zusammen! Ich stelle aber fest, dass Win 10 den individuellen Kopftext ignoriert und die
falsche Windows Version 6.2 9200 anzeigt. Wenn ich die Lösung von Hathor nehme, wird dagegen die richtige Version 10.0.10240 angezeigt.
Ihr könnt es ausprobieren.
Willie.