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

[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