Lukke et program

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('IEXPLORE.EXE');
end.

for at lukke IE self :)

OK, tak for det.
Er det den eneste måde at gøre det på ??
Jeg havde regnet med at der fantes en simpel måde at på.

Det kan måske gøres med FindWindow og SendMessage i user32.dll
Få fat i handle til det pågældende vindue med Findwindow og send det en "close" med SendMessage

Jeg beklager, men jeg forstår ikke helt hvad du mener med det sidste.

Når jeg forsøger at køre ovenstående, så kommer følgende fejl:
[Error] Unit1.pas(35): Undeclared identifier: 'TProcessEntry32'
[Error] Unit1.pas(38): Undeclared identifier: 'CreateToolhelp32Snapshot'
[Error] Unit1.pas(38): Undeclared identifier: 'TH32CS_SNAPPROCESS'
[Error] Unit1.pas(39): Missing operator or semicolon
[Error] Unit1.pas(40): Undeclared identifier: 'Process32First'
[Error] Unit1.pas(44): ')' expected but identifier 'szExeFile' found

Jeg har fundet ud af hvad fejlen var, så nu virker det. Der manglede Tlhelp32 i uses.
Er der en simpel måde at fjerne iconet for det lukkede program i processlinien (ved siden af uret) ??

Er ikke sikker, men tror du vil kunne bruge
UpdateWindow(taskbarhandle)
Så skal du bare lige finde handlet for taskbaren (mener det er det den hedder)

OK, det må jeg kigge lidt på. Tak for hjælpen.

Var så lidt!
og tak for point.

-Ge3k