Process Priorität setzen - als Variable...

[DRPEnc]

Ich mal wieder, der Dauergast :-D

Ich hab paar Processe in mein Programm eingebaut welche eine batchdatei starten. Die Priorität dieser Batch will ich nun ändern können. Ich will aber keine fixe Priorität erzeugen sondern eine Funktion dem Programm hinzuzufügen damit der User selber entscheiden kann welche Priorität die Batch erhält.

Also hier mal ein Sourceschnippsel:

Delphi-Quellcode:

ProcID := 0;
RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID);

Zu diesem RunProcess-Befehl will ich nun eine Variable hinzufügen, sodass der Process eine Priorität erhält.
Wie mach ich das am Besten?

[Christian Seehase]

Moin DRPEnc,

wenn Dir die grobe Einteilung der API SetPriorityClass genügt, fügst Du diesen Wert einfach als Parameter hinzu, und ergänzt dann die RunProcess Routine um das setzen der Prioritäts Klasse.

[DRPEnc]

Ich will ja eine variable PritorityClass. Sozusagen eine Option die Pritorität zu setzen und dann den Process mit dieser zu starten.

Wie soll ich deiner Meinung deinen Vorschlag umsetzen?

Eine Variable setzen, die dann mit der Pritoritätsklasse belegt wird?
Falls dies geht müsste ich 'Normal' als Standart setzen.

[Christian Seehase]

Moin DRPEnc,

warum sollte das nicht gehen?
Du könntest z.b. eine ComboBox einbauen, die die Texte für die Prioritätsklassen enthält, und bei denen die Items noch die korrespondierenden Werte der Konstanten als Objekt enthalten. Mit dieser Methode könntest Du Dir sogar noch ein Umrechnung von Index in Wert ersparen.
Das Ganze dann noch mit dem Stil DropDownList, damit man nichts eingeben, sondern nur auswählen kann.

[DRPEnc]

K, habs mal aufgeschoben...

Delphi-Quellcode:

 H := GetCurrentProcess();
  SetPriorityClass(H, HIGH_PRIORITY_CLASS );

  // NORMAL_PRIORITY_CLASS   
  // IDLE_PRIORITY_CLASS             
  // HIGH_PRIORITY_CLASS

Sind ja die Prioritätsklassen.
Nun muss es ja ins programm eingebunden werden. Wie gesagt als variable...

Ich dachte mir das so:

Drobdownmenu mit den einzelnen Klassen die dann jeweils in ne Edit getextet werden.

Und dann folgenden Code ausführen:

Delphi-Quellcode:

A:= GetCurrentProcess();
        B:= form1.Edit1.text;

SetPriorityClass(A, B );
ShellExecute(0, Nil, PChar(form1.edit2.text), Nil, Nil, SW_NORMAL);

Oder liege ich da irgenwie falsch?

[Skiron]

du könntest die prioritäten als konstanten deklarieren:

Delphi-Quellcode:

var
  Priorities: array[0..3] of longint = 
    (REALTIME_PRIORITY_CLASS, HIGH_PRIORITY_CLASS, IDLE_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS);

Somit kannst du hier einfach mit dem Index zugreifen

[DRPEnc]

Delphi-Quellcode:

var
  Priorities: array[0..3] of longint =
    (REALTIME_PRIORITY_CLASS, HIGH_PRIORITY_CLASS, IDLE_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS);
  A:= GetCurrentProcess();
begin
SetPriorityClass(A, Priorities );
ShellExecute(0, Nil, PChar(form1.edit2.text), Nil, Nil, SW_NORMAL);

Und so einstetzen?

[Christian Seehase]

Moin DPREnc,

hast Du Dir meinen Vorschlag mit der ComboBox überhaupt mal angesehen? ;-)

[DRPEnc]

Wollt alle Möglichkeiten mal sehen. Das mit der Dropdowncombo gefällt mir auch am besten ...

[DRPEnc]

Hi Seehase. Kannst Du mir auf die Sprünge helfen?

So weit bin ich nun:

Combobox als Listbox mit den Prioritäten.
Werden in eine Edit geschrieben.
Nur weis ich nicht wohin die Priorität in den RunProcess kommen soll...

Delphi-Quellcode:

RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID);

[Christian Seehase]

Moin DRPEnc,

also kurz von Vorne:

Delphi-Quellcode:

// Einträge hinzufügen, z.B.
ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));

Aufruf von RunProcess

Delphi-Quellcode:

RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID,Cardinal(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));

Du musst natürlich die Funktion RunProcess auch intern dahingehend erweitern, dass sie die Priorität entsprechend berücksichtigt.

[DRPEnc]

Man ich steh mal wieder sehr stark auf dem Schlauch...

So siehts bei mir grad aus:

ComboBox17 mit

ItemIndex0 Idle
ItemIndex1 Normal
ItemIndex2 High

Edit153

Delphi-Quellcode:

var ProcID: Cardinal;
    P: TCaption;
begin

//RunBatch
if form1.ComboBox17.ItemIndex=0 then form1.Edit153.Text:='IDLE_PRIORITY_CLASS';
if form1.ComboBox17.ItemIndex=1 then form1.Edit153.Text:='NORMAL_PRIORITY_CLASS';
if form1.ComboBox17.ItemIndex=2 then form1.Edit153.Text:='HIGH_PRIORITY_CLASS';
ProcID := 0;
P := Edit153.text;
RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID {, Hier muss Priorität rein});

Kann aber nicht mal ne Variable in den RunProcess setzen.
Kommt immer diese Fehlermeldung:
To many actual parameters.

Irgendeine Idee. Deine Idee kann ich irgendwie nicht umsetzen.

Hier nochmal die Funktion von Luckie:

Delphi-Quellcode:

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartupInfo.wShowWindow := ShowCmd;
  if not CreateProcess(nil,
    @Filename[1],
    nil,
    nil,
    False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo)
    then
      Result := WAIT_FAILED
  else
  begin
    if wait = FALSE then
    begin
      if ProcID <> nil then ProcID^ := ProcessInfo.dwProcessId;
      exit;
    end;
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
  end;
  if ProcessInfo.hProcess <> 0 then
    CloseHandle(ProcessInfo.hProcess);
  if ProcessInfo.hThread <> 0 then
    CloseHandle(ProcessInfo.hThread);
end;

[Christian Seehase]

Moin DRPEnc,

woher hast Du denn RunProcess, wenn Du es nicht selber geschrieben hast?

Schau Dich hier doch mal nach CreateProcess oder ShellExecuteEx um.
Eines von beiden wird mit Sicherheit in der Funktion benutzt.

[EDIT]

Ach so, die Funktion ist das.
Dann könnte es so gehen:
(Ausschnitt)

Code:

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD;[color=red]const AdwProcessPriority : DWORD[/color]): Longword;   
    //...
    [color=red]SetPriorityClass(ProcessInfo.hProcess,AdwProcessPriority);[/color]
    if wait = FALSE then 
    begin 
      if ProcID <> nil then ProcID^ := ProcessInfo.dwProcessId; 
      exit; 
    end; 
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE); 
    GetExitCodeProcess(ProcessInfo.hProcess, Result); 
  end;

[EDIT2: Korrektur]
Natürlich vor die Abfrage ob gewartet werden soll oder nicht
[/EDIT]
[/EDIT]

[DRPEnc]

HMM, K jetzt ist es um die Funktion erweitert. Wie aber nun ausführen.
Hab mal ein Beispielproject als Attachment hinzugefügt.

[Christian Seehase]

Moin DRPEnc,

Zitat:

Zitat von DRPEnc

Wie aber nun ausführen

so wie vorher, nur dass Du jetzt noch die PriorityClass mit übergeben kannst.

BTW: Nur der Source würde i.d.R. auch genügen.

[DRPEnc]

Delphi-Quellcode:

ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));

Wie soll ich das denn verstehen? Habs vorher immer mit TStrings gemacht und dann in ne Edit geschrieben.
AddObject kenn ich noch nicht. :wiejetzt:

[DRPEnc]

Delphi-Quellcode:

unit Priority;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD;const AdwProcessPriority : DWORD): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartupInfo.wShowWindow := ShowCmd;
  if not CreateProcess(nil,
    @Filename[1],
    nil,
    nil,
    False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo)
    then
      Result := WAIT_FAILED
  else
  begin
    SetPriorityClass(ProcessInfo.hProcess,AdwProcessPriority);
    if wait = FALSE then
    begin
      if ProcID <> nil then ProcID^ := ProcessInfo.dwProcessId;
      exit;
    end;
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
  end;
  if ProcessInfo.hProcess <> 0 then
    CloseHandle(ProcessInfo.hProcess);
  if ProcessInfo.hThread <> 0 then
    CloseHandle(ProcessInfo.hThread);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
end;

procedure TForm1.Button1Click(Sender: TObject);
var ProcID, SetPriorityClass: Cardinal;
P: TCaption ;
    begin
//RunBatch

ProcID := 0;
P := Edit1.text;
//SetPriorityClass := 'NORMAL_PRIORITY_CLASS' ;
RunProcess('Test.bat', SW_SHOW, True, @ProcID, Cardinal(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) );
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if form1.ComboBox1.ItemIndex=0 then form1.Edit1.Text:='IDLE_PRIORITY_CLASS';
if form1.ComboBox1.ItemIndex=1 then form1.Edit1.Text:='NORMAL_PRIORITY_CLASS';
if form1.ComboBox1.ItemIndex=2 then form1.Edit1.Text:='HIGH_PRIORITY_CLASS';
end;

end.

Da ist noch fett der Wurm drin...

[Christian Seehase]

Moin DRPEnc,

könntest Du den Wurm vielleicht mal näher erläutern?

[DRPEnc]

Ich bekomm einfach die ADDOBJECT nicht in die combobox...

Nur das was ich als String drinstehen hab wird angezeigt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
end;

Irgendwas hab ich da noch vergessen.

Wie gesagt: AddObject ist mir noch fremd.

Es ist nun immer nur NORMAL.

Hab mal die Strings aus der Source entfernt...

[Christian Seehase]

Moin DRPEnc,

mit AddObject wird intern zu dem jeweiligen String der der ComboBox hinzugefügt wird noch ein Objekt hinzugefügt.
Das ist allerdings nichts weiter als die Adresse einer Objektinstanz, und somit ein simpler 32 Bit Wert, so dass man hier auch einfach beliebige 32 Bit Zahlen hinzufügen kann.
Dadurch musst Du keine zusätzliche Tabelle verwenden, deren Einträge mit denen der Einträge in der ComboBox korrespondieren, um die zu den Strings gehörigen Werte zuordnen zu können.

Hilft Dir das erstmal weiter?

[DRPEnc]

Irgendwie nicht...

Könntest du die Source ggf. umschreiben, damit ich weis was ich falsch gemacht hatte?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Style:=csDropDownList;
ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
end;

Delphi-Quellcode:

ProcID := 0;
RunProcess('Test.bat', SW_SHOW, True, @ProcID, Cardinal(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) );
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if form1.ComboBox1.ItemIndex=0 then form1.Edit1.Text:='IDLE';
if form1.ComboBox1.ItemIndex=1 then form1.Edit1.Text:='NORMAL';
if form1.ComboBox1.ItemIndex=2 then form1.Edit1.Text:='HIGH';
end;

Es bleibt immer NORMAL...

[DRPEnc]

Delphi-Quellcode:

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartupInfo.wShowWindow := ShowCmd;
  if not CreateProcess(nil,
    @Filename[1],
    nil,
    nil,
    False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo)
    then
      Result := WAIT_FAILED
  else
  begin
    if wait = FALSE then
    begin
      if ProcID <> nil then ProcID^ := ProcessInfo.dwProcessId;
      exit;
    end;
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
  end;
  if ProcessInfo.hProcess <> 0 then
    CloseHandle(ProcessInfo.hProcess);
  if ProcessInfo.hThread <> 0 then
    CloseHandle(ProcessInfo.hThread);
end;

if not CreateProcess(nil,
@Filename[1],
nil,
nil,
False,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo)
then

Ich muss die ROTE Zeile irgendwie als Variable haben. Nur wie? Wenn ich statt NORMAL_PRIORITY_CLASS IDLE_PRIORITY_CLASS schreibe ist die Anwendung in der IDLE_PRIORITY_CLASS. Nur will ich das per Combobox verändern können.

[Christian Seehase]

Moin DRPEnc,

also ich kann da nichts Falsches sehen und (allgemein unbeliebte Ergänzung ;-) ): Bei mir funktioniert's.

Was geht denn nicht?

BTW:
Ich hab' noch mal die FormCreate und ComboBox1Change etwas "überarbeitet"

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style:=csDropDownList;
  ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
  // Normal als Default auswählen
  ComboBox1.ItemIndex := 1;
  // die Ereignisroutine aufrufen, passiert bei Zuweisung an ItemIndex nicht
  ComboBox1Change(nil);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);

// Mit einer Liste wird's etwas übersichtlicher

const
  _asPriorities : array [0..2] of String = ('IDLE','NORMAL','HIGH');

begin
  Edit1.Text := _asPriorities[ComboBox1.ItemIndex];
  // Nur um zu zeigen, dass auch jeweils eine andere Konstante ausgewählt wird
  Edit2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;

[Christian Seehase]

Moin DRPEnc,

stimmt, an der Stelle kann man es auch festlegen. Da hab' ich gepennt :?

Code:

if not CreateProcess(nil, 
  @Filename[1], 
  nil, 
  nil, 
  False, 
  CREATE_NEW_CONSOLE or 
  [color=red]AdwProcessPriority,  <==== Statt der Konstanten, einfach den zusätzlichen Parameter angeben[/color]
  nil, 
  nil, 
  StartupInfo, 
  ProcessInfo) 
  then

Aber der andere Weg geht auch ;-)

[DRPEnc]

Irgendwie bekomm ichs nicht hin... Kannst Du mir Deine Source posten?

[Christian Seehase]

Moin DRPEnc,

ich hab's mal als Datei angehängt.
Du brauchst noch
einen Button
zwei Edit
eine ComboBox
einen OpenDialog (damit man die zu startende Datei auswählen kann)

[DRPEnc]

Ich habs mal zusammengebaut, aber läuft nicht...

Wenn ich nach der Zeile

Delphi-Quellcode:

nil,
  nil,
  False,
  CREATE_NEW_CONSOLE or

IDLE_PRITORITY_CLASS

schreibe läuft das Programm im IDLE-Mode. Steht aber AdwProcessPriority, passiert nichts.

Schaus Dir selber an. Anbei die Compilierung mit Source.

Was mir aufgefallen ist:

Edit2 zeigt tuschur NULL...

[DRPEnc]

Nur wenn ich den konstanten Wert verändere funtzts. Irgendwie wird AdwProcessPriority nicht aktiviert.
Irgendwas wurde noch vergessen. Wird die Funktion vor der Combobox erzeugt?

[Christian Seehase]

Moin DRPEnc,

Zitat:

Zitat von DRPEnc

Wird die Funktion vor der Combobox erzeugt?

Was meinst Du jetzt damit? :gruebel:

[Christian Seehase]

Moin DRPEnc,

in Deinem Code von 00:03 fehlt übrigens bei RunProcess der Parameter mit der ProcessPriority.
Wird der überhaupt übergeben?
Wenn nicht wäre das evtl. eine Erklärung dafür, warum es nicht funktioniert.

[DRPEnc]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style:=csDropDownList;
  ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
  // Normal als Default auswählen
  ComboBox1.ItemIndex := 1;
  // die Ereignisroutine aufrufen, passiert bei Zuweisung an ItemIndex nicht
  ComboBox1Change(nil);
end;

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD;const AdwProcessPriority : DWORD): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartupInfo.wShowWindow := ShowCmd;
  if not CreateProcess(nil,
    @Filename[1],
    nil,
    nil,
    False,
    CREATE_NEW_CONSOLE or
    AdwProcessPriority,
    nil,
    nil,
    StartupInfo,
    ProcessInfo)
    then
      Result := WAIT_FAILED
  else
  begin
    if wait = FALSE then
    begin
      if ProcID <> nil then ProcID^ := ProcessInfo.dwProcessId;
      exit;
    end;
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
  end;
  if ProcessInfo.hProcess <> 0 then
    CloseHandle(ProcessInfo.hProcess);
  if ProcessInfo.hThread <> 0 then
    CloseHandle(ProcessInfo.hThread);
end;





procedure TForm1.ComboBox1Change(Sender: TObject);

// Mit einer Liste wird's etwas übersichtlicher

const
  _asPriorities : array [0..2] of String = ('IDLE ON','NORMAL ON','HIGH ON');

begin
  Edit1.Text := _asPriorities[ComboBox1.ItemIndex];
  // Nur um zu zeigen, dass auch jeweils eine andere Konstante ausgewählt wird
  Edit2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  ProcID : Cardinal;

begin
  if not OpenDialog1.Execute then exit;
  ProcID := 0;
  RunProcess(OpenDialog1.FileName, SW_SHOW, True, @ProcID, Cardinal(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) );
end;

Das ist der aktuelle Code. Leider wird die Priorität da nicht geändert...
Wo ist der Fehler? Ich finde ihn nicht...

[Christian Seehase]

Moin DRPEnc,

also ich habe ein neues Projekt gestartet, dann einen Button, zwei Edits, eine ComboBox und einen OpenDialog auf das Formular gelegt.
Anschliessend je einen Doppelklick auf Button, ComboBox und Formular, um die entsprechenden Ereignisbehandlungsroutinen zu erzeugen.
Danach habe ich diese alle markiert, und mit dem von Dir geposteten Source per Copy&Paste überschrieben (incl. der RunProcess Funktion).

Zum Testen habe ich das Programm dann, aus der IDE heraus, mit F9 gestartet, Idle Priorität eingestellt, die CALC.EXE aus dem System32 ausgewählt, und starten lassen.
Ein anschliessender Blick in den Taskmanager zeigte, das CALC.EXE mit niederiger Priorität, also Idle, lief. Auch mit den anderen beiden Einstellungen gab es das jeweils zu erwartende Ergebnis.
Auch ein Versuch mit der Einstellung Wait = false brachte dreimal das erwartete Ergebnis.

Zusammengefasst:
Der Code funktioniert bei mir einwandfrei.
Wenn ein Fehler im Code ist, dann nicht innerhalb des von Dir gezeigten.

Test unter W2K SP4.

[DRPEnc]

Dank dir. Werd' nochmal ein neues Project starten und nach deiner hervoragenden StepbyStepGuide machen.
BTW hast Du schon mal mein Project DRPEnc angeschaut?

Edit: Hab meinen Fehler gefunden. In der Combobox waren strings dirn. Du machst es ja ohne.
Fall gelöst. Danke nochmal.

[Christian Seehase]

Moin DRPEnc,

Zitat:

Zitat von DRPEnc

BTW hast Du schon mal mein Project DRPEnc angeschaut?

Jain.
Die Seite funktioniert mit Opera 6.05 nicht.

[bonanza]

Hi,
also ich habe es jetzt so wie DRPEnc gemacht, doch wenn ich z.b. Battlefield 1942 damit aufrufen möchte klappt das nicht, denn ich denke, dass es nicht in dem Installationsordner ausgeführt wird.

Denn wenn ich mein Programm dann in den installationsordner verschiebe und es dann von dort aus starte klappt es, das will ich aber nicht machen, denn ich wollte das programm für mehrer spiele machen und das wäre sehr lästig, wenn ich es dann immer verschieben müsste.

Kann man diese RunProcess-funktion dahingehend anpassen, dass die EXE in dem ordner ausgeführt wird ?

danke für eure Hilfe schonmal im voraus
mfg