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

Serhik_z

Дата 12.12.2004, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как закрыть приложение 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

Это сообщение отредактировал(а) p0s0l - 29.9.2005, 11:11

Stadler

Дата 29.12.2004, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

Код


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;

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »