CPU-Auslastung

[Matze]

Laut diesem Code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  tl: HWnd;
  rah: TRect;
begin
  tl := FindWindow('Shell_TrayWnd', nil);
  GetWindowRect(tl, rah);
  tl := FindWindow('Shell_TrayWnd', nil);
  GetWindowRect(tl, rah);
  ShowMessage('Die Taskleiste fängt Links bei ' + IntToStr(rah.Left) +
              ' an, geht Rechts bis ' + IntToStr(rah.Right) +
              ', von Oben aus gesehen, fängt sie bei ' + IntToStr(rah.Top) +
              ' an und endet Unten bei ' + IntToStr(rah.Bottom));
end;

hab ich eine Bildschirmbreite von 1026, obwohl ich 1024 hab.
Ich geh dann mal offline, bis morgen.

Gruß Matze