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 ..