[Fun-Tool] EKG-PC-Monitor

[turboPASCAL]

Tja, was soll ich sagen, halt ein EKG-PC-Monitor. Das ist kein so ernst gemeintes Programm, ebend etwas für den kleinen Spass zwischen durch.

Das Programm entstand aus diesem Thread. Um Zuriff auf den Source zu haben habe ich hier mal ein Thread eröffnet.

Die Routine der Sounderzeugung ist ein abgewandelter Code von hier.
Die CPU Auslastung unter Windows NT/2000/XP ermitteln von hier.

Wie immer Opensource zum gucken und nachmachen.

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

[turboPASCAL]

Übrigens:

Delphi-Quellcode:

function IsWindowsXP: Boolean;
begin
  Result := (Win32MajorVersion = 5) and (Win32MinorVersion = 1);
end;

// ---------------------------------------------------------------------------

procedure TfrmPcEkg.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if IsWindowsXP then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  Caption := Application.Title;
  DoubleBuffered := True;

reicht, da muss nicht noch:

Delphi-Quellcode:

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);

so ein Doppelmoppel.

Zitat:

[edit] Was bringt schatten? [/edit]

Schatten!
Damit ist die Form nicht so platt auf dem Desktop.

[3_of_8]

Also da wir uns bei den Versionen gar ned mehr auskennen, machen wirs wie bei Linux, fangen wir mit Version 4.2 an.

[xZise]

Zitat von turboPASCAL:

Zitat:

[edit] Was bringt schatten? [/edit]

Schatten!
Damit ist die Form nicht so platt auf dem Desktop.

Ja klar, nur bei mir ist kein unterschied

@ 3 of 8: Einfach ganz weglassen ^^ Und die anderen Atts löschen

[turboPASCAL]

Guckst du:

[xZise]

Jo ich weiß ^^ Und der ist bei mir immer!

[JWeis]

Zitat von inherited:

Kompiliert mit BDS 2006 unter WinXP SP2
€dit muss an win2k liegen vermut ich mal

jo es liegt an 2k zuhause kann ichs öffnen und ausführen. habs noch nicht fertiggestellt probiert mein bild einzufügen kommt aber bald