StatusBar erzeugen?

[Luckie]

Geht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateWindowEx(
    0,
    'msctls_statusbar32',
    nil,
    WS_CHILD or WS_VISIBLE,
    0,
    0,
    0,
    0,
    Handle,
    101,
    hInstance,
    nil
    );
end;

Fehler liegt wo anders. Was aagt denn GetLastError()?

Hast du InitCommonControls auch aufgerufen und die nötigen (richtigen Units) eigebunden?