Multi-Core Launcher (v1.02)

[Corpsman]

hi xX0815Xx,

also hab mir mal deinen Source Runtergeladen.

Und nach dem ich die Fehlenden Units auch gefunden hatte liefs dann.

Aber der Compiler spuckt ne Menge Warnungen aus.

Du Initialisierst deine Variable für die Cores nicht.

Dabei geht das doch so einfach :

Delphi-Quellcode:

Procedure TForm1.Launch1Click(Sender: TObject);
Var
  Core: Cardinal;
Begin
  core := 0;
  If checkbox1.checked Then Core := 1;
  If checkbox2.checked Then Core := 2;
  If checkbox3.checked Then Core := 3;
  If checkbox4.checked Then Core := 4;
  If Core <> 0 Then Begin
    CreateProcessCPUKernel(PChar(File1.Text), PChar(Param1.Text), Core);
    If checkbox21.Checked Then Application.Minimize;
  End;
End;

Wäre Cool wenn du das noch nachbesserst.

Wie die Trayicon sache aussieht konnte ich allerdings nicht Testen, wollte die Komponenten nicht Registrieren ..