Form ile uygulama açma ve kapatma

[Rona]

Merhaba, form uygulaması içinde butonlar ile uygulama açmak ve kapatmak istiyorum. Uygulama açmada sorun yaşamıyorum ShellApi ile işimi görüyorum ama uygulama kapatma kısmını bir türlü bulamadım. Delphi 10.3 kullanıyorum. Daha önceki konuları da araştırdım ama bulamadım. Yardımlarınız için şimdiden teşekkürler

[Alpermete]

Şeklinde deneyebilirsin
Bu fonksiyonu gerekli bölgeye yazdıktan sonra
Kullanımı:

Kod: Tümünü seç

KillTask("C:\Kapatmakistediğinuygulama.exe");

Kod: Tümünü seç

uses
Tlhelp32;


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;