evet kardeş aynen doğru anlamışsın program ismini bilmen yeterli bu fonksiyon

arkadaşalr öncelikle uses e shellapi ve Tlhelp32 eklemeniz gerekmekdedir Programınızdan başka bir programı çalıştırmak istiyorsanız ShellExecute(Form1. Handle, nil, 'c:\windows\notepad. exe', nil, nil, SW_SHOWNORMAL); komudu ile yapabilirsiniz. gelelim daha önemlisine yani çalışan bir programı kapattırmak istiyorsunuz işte fonksiyonu function KillTask : 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 <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32. szExeFile)) = UpperCase or (UpperCase(FProcessEntry32. szExeFile) = UpperCase then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32. th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle ; end; kullanımı ise şu şekilde; killtask ; Orien

simdi bu programi kullanarak calisan baska bir programi sonlandiriyoruz yani kapatiyoruz doru annamismiyim