CPU-Auslastung eines Prozesses

[ustra]

Hallo,

mh, ich habe das Programm eigentlich nur genommen, um zu sehen, ob es geht. Nachher will ich Mechanical Desktop nehmen. Da wird sicherlich so was gemacht, dass irgendetwase im Kernel berechnet wird. Muss ich gleich mal ausprobieren.

Beste Grüße
Ulrich

[ustra]

Hallo,

Thema hat sich erledigt. Es klappt alles. Es lag daran,d ass ich gedacht hatte, dass die Usertime angibt, wie lange das Prog läuft (ist aber nicht so). Ich dachte, allein die Kernel-zeit gibt Aufschluss über die Aktivität eines Proggs.

Beste Grüße
Ulrich

[matthiasl]

Das Problem kann man auch anders angehen:

WaitForInputIdle(ProcessHandle,INFINITE);

Wo man Gutes in Frage stellt, kann Besseres entstehen...

[Luckie]

Nein, UserTiem gibt an wie wviel zeit das Programm tatsächlich damit beschäftigt ist Programmcode auszuführen. Ein Thread bekommt ja nur zeitscheibenweise CPU Zeit zugeteilt. Und mit GetProcessTimes / GetThreadTimes bekommst du die Zeit, die ein Prozess / Thread damit verbringt tatsächlich Code auszuführen.

[choose]

Zitat von ustra:

Hallo,
Thema hat sich erledigt. Es klappt alles.

Merkwürdig... Mit ShellExecute, klappt's bei mir nicht, gemäß der Reference, muss das Handle be created with the PROCESS_QUERY_INFORMATION access right und dieses Recht konnte ich nur mithilfe von OpenProcess erlangen oder indem ich den Process mit CreateProcess erzeuge...

Kannst Du noch einmal zeigen, wie Du den Prozess erzeugst? Danke.

Zitat von ustra:

Er zeigt mir auch alle Werte richtig an bis auf den Wert KernelTime

Nur wenig Zeit (API-Aufrufe, die vom Kernel beantwortet werden müssen, intensiver API-Gebraucht, weil diese Int-Aufrufe im Kernel-Mode ausgeführt werden, etc) verbringt ein "gewöhnlicher" Process im Kernel-Modus, diese Zahl bleibt oft nur sehr klein.

[Luckie]

shellexecute liefert weder ein Handle des Fensters zurück noch die ProcessID. Entweder CreateProcess oder ShellexecuteExe nehmen.

[ustra]

Hallo Choose,

da hast Du nicht genau gelesen. Ich habe die funktion ShellExecuteEx benutzt und nicht ShellExecute. Da Du so nett bist und mir geholfen hast, bekommst Du gleich noch den Code von mir:

Delphi-Quellcode:

var Info: TShellExecuteInfo;
FileName : string;
begin
  FileName := 'c:\2\Project2.exe';
  with Info do begin
    cbSize := SizeOf(Info);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    lpVerb := 'open';
    lpFile := pChar(FileName);
    lpParameters := nil;
    lpDirectory := nil;
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
  end;

  { Call indows to display the properties dialog. }
   ShellExecuteEx(@Info);
   //Das Handle des Prozesses auslesen
   handle2 := info.hProcess;
end;

Beste Grüße
Ulrich

[ustra]

Da war Luckie wieder ein Tick schneller. grins

Ulrich

[Luckie]

Ich bin immer schneller.

[choose]

Wer lesen kann, ist... und vielleicht gibt's auch mal jmd, der schneller schreiben kann als Luckie

Die Antwort ShellExecuteEx hätte mir gereicht, Ulrich. Hatte mich nur gewundert, weil ich es nur mit CreateProcess/OpenProcess und eben nicht mit (dem falsch gelesenen) ShellExecute hinbekommen habe...

Freut mich, dass Dein Problem nun keins mehr ist!

EDIT: Sag mal, gehörtest Du zu dieser Firma mit dem auffällig untechnischen Namen, nach dem ich mich auf der EKON beim Essen erkundigt habe?