Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как закрыть приложение SynCor.exe

Автор: Serhik_z 12.12.2004, 13:11

Как закрыть приложение SynCor.exe
при закрытии окна (Выход).

Код

procedure TForm1.BitBtn3Click(Sender: TObject);
 const
  FileName = 'C:\01.mid';
begin
  MCISendString(PChar('play ' + FileName), nil, 0, 0); - проигрыш мелодии
end;
-------------------------------------------------------------------------------
procedure TForm1.BitBtn4Click(Sender: TObject);
const  
  FileName = 'C:\01.mid';
begin  
  MCISendString(PChar('stop ' + FileName), nil, 0, 0); - останов мелодии
end;
----------------------------------------------------------------
begin
 Close;
end;

При проигрывании мелодии запускается приложение SynCor.exe из Windows
Подскажите как написать код, чтоб при закрытии окна
Закрывалось и приложение (SynCor.exe): с ним остается шум в динамиках.
smile

Автор: Stadler 29.12.2004, 14:02

Код


procedure KillProgram(Classname: string; WindowTitle: string);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
  ProcessID: Integer;
  TheWindow : HWND;
begin
  TheWindow := FindWindow(Classname, WindowTitle);
  GetWindowThreadProcessID(TheWindow, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
  TerminateProcess(ProcessHandle,4);
end;

Незнаю будет работать или нет, но попробовать стоит