[Non-VCL] System kann Datei nicht finden bei RegisterClassEx

[jfheins]

Warum bekomme ich bei folgendem Code die Fehlermeldung

Zitat:

---------------------------
Project1
---------------------------
Das System kann die angegebene Datei nicht finden
---------------------------
OK
---------------------------

???

Ich wollte in NonVCL einsteigen, hab' mir Luckie's Tut angeschaut, und dann sowas ... :cry:

Code grösstenteils direkt ausm Tut übernommen ...

Delphi-Quellcode:

program Project1;

uses
  Windows, SysUtils, Dialogs;

var
  WindowClass: TWndClassEx;
  Handle: Word;

function WndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam):lresult; stdcall;
begin
  Result := 0;
  Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
  {vereinfacht, da Fehlerunabhängig ... oder ?}
end;

begin
  WindowClass.cbSize := SizeOf(TWndClassEx);
  WindowClass.Style := CS_HREDRAW or CS_VREDRAW;
  WindowClass.lpfnWndProc := @WndProc;
  WindowClass.cbClsExtra := 0;
  WindowClass.cbWndExtra := 0;
  WindowClass.hbrBackground := COLOR_APPWORKSPACE;
  WindowClass.lpszMenuName := nil;
  WindowClass.lpszClassName := 'WndClass';
  WindowClass.hIconSm := 0;
  WindowClass.hInstance := hInstance;
  WindowClass.hIcon := LoadIcon(hInstance, MAKEINTRESOURCE(100));
  WindowClass.hCursor := LoadCursor(0, IDC_ARROW);

  SetLastError (0);

  Handle := RegisterClassEx(WindowClass);

  showmessage (SysErrorMessage (GetLastError));

  UnregisterClass (PChar (Handle), HInstance);
end.

[Luckie]

Die Variable Handle ist zu klein. Ich bin mir ziemlich sicher, dass ich sie nicht als WORD deklariert habe, sondern entweder als DWORD oder THandle. Aber ob es das ist, weiß ich nicht.

[jfheins]

Nein, das ist es nicht ... Der Fehler tritt sowohl bei LongWord, als auch bei THandle (was nix anderes ist) auf.

In deinen Beispiel verarbeitest du den Rückgabewert von Registerclassex nicht, sondern rufst createwindowex mitt dem klassennamen, statt dem atom auf, aber ob es daran liegt ... :gruebel:

[Christian Seehase]

Moin Julius,

schau Dir doch mal die Doku zu RegisterClassEx an.
Wenn die Funktion fehlschlägt ist der Rückgabewert 0.
Da er dies in diesem Falle nicht ist, ist der Wert von GetLastError uninteressant, bzw. er sagt nichts aus.

[Neutral General]

Hi,

Habe gerade das selbe Problem. Versuche eine Klasse zu registrieren, bekomme aber die selbe Meldung wie jfheins. Gibt es da keine Lösung? Muss doch. Mich wunderts vorallem was da für eine Datei gemeint ist o.O Das ganze hat doch nichts mit Dateien zu tun...

Gruß
Neutral General

[Luckie]

Welchen Wert bekommst du von RegisterClassEx?

[turboPASCAL]

GetLastError gibt in dem Beispiel oben 2 zurück. Keine Ahnung was das soll. :gruebel:

[Luckie]

Ich habe nicht nach GetLastError gefragt.

Zitat:

If the function succeeds, the return value is a class atom that uniquely identifies the class being registered.

Zitat:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

GetLastError wird also nur dann sinnvolle Werte liefern, wenn RegisterClassEx null zurückliefert.

[turboPASCAL]

RegisterClassEx liefert einen Wert > 0 zurück. zB.: 49558 ;)

[Luckie]

Dann ist der Wert von GetLastError unbestimmt, weil die Funktion erfolgreich war.

Delphi-Quellcode:

Handle := RegisterClassEx(WindowClass); 
if Handle = 0 then
  ShowMessage (SysErrorMessage (GetLastError));

So wäre es richtig.

[turboPASCAL]

Oda so: ;)

Delphi-Quellcode:

program SoUndSo;

uses
  Windows, Messages, SysUtils;

  // use SysUtils for Debug //

var
  WndClassEx: TWndClassEx;

// vereinfacht...
function WndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam):lresult; stdcall;
begin
  Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

begin
  Zeromemory(@WndClassEx, SizeOf(TWndClassEx) );

  With WndClassEx do
  begin
    cbSize := SizeOf(WndClassEx);
    Style := CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc := @WndProc;
    hbrBackground := COLOR_APPWORKSPACE;
    lpszMenuName := nil;
    lpszClassName := 'WndClass';
    hInstance := hInstance;
  end;

  if RegisterClassEx(WndClassEx) = 0 then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), '!', MB_OK);

  UnregisterClass (WndClassEx.lpszClassName, HInstance);
end.

[Luckie]

Das < kannst du weglassen - verwirrt nur.

[turboPASCAL]

Zitat:

Zitat von Luckie

Das < kannst du weglassen - verwirrt nur.

Kann man nicht nur weglassen, ist ja auch Sinnlos. DWORD, also Cardinal bzw. Longint's
sind sehr sehr selten kleiner Null. ;)

[mschaefer]

in welchem Unit-Gültigkeitsbereich liegt den

Delphi-Quellcode:

UnregisterClass (PChar (Handle), HInstance);

in Delphi XE3 ?

[Sir Rufo]

Zitat:

Zitat von mschaefer (Beitrag 1184085)

in welchem Unit-Gültigkeitsbereich liegt den

Delphi-Quellcode:

UnregisterClass (PChar (Handle), HInstance);

in Delphi XE3 ?

UnregisterClass

edit: upps, das ist die ja gar nicht :)

[mschaefer]

Mach Dir nichts drauss, in die Falle bin ich auch gegangen ...

[himitsu]

Da, wo sie früher auch schon war. :zwinker:

UnregisterClass , also Winapi.Windows