помогите, плз

У приложения есть handle?

Может, хэндл его главного окна? тогда пошли ему wm_close...

(1) Есть

(2) хм....

(1) понял, спс

Тупо
CloseHandle()

Не перепутал PID и Handle ?

(6) получен с помощью ShellExecute

(0) Ну и жестоко:
TerminateProcess()

(7) Да, Handle

TerminateProcess(processHandle, 0);
CloseHandle(ProcessHandle);

вываливается в external exception

(5) этого не достаточно
(10) после TerminateProcess вываливаться процессу вроде поздно, похоже ошибку выдаёт какое-то другое приложение с ним связанное.

(11) Если привелегии есть - достаточно.

Закоментил CloseHandle
ошибок не даёт, но и не закрывает

(2) есть, если оно писано на делфи

BOOL TerminateProcess(
   IN HANDLE hProcess,        // описатель процесса
   IN DWORD dwExitCode        // код завершения процесса
   );

(11) Хотя нет.
Вы правы.
http://msdn.microsoft.com/en-us/library/ms724211(VS.85).aspx

Closing a thread handle does not terminate the associated thread or remove the thread object. Closing a process handle does not terminate the associated process or remove the process object. To remove a thread object, you must terminate the thread, then close all handles to the thread. For more information, see Terminating a Thread. To remove a process object, you must terminate the process, then close all handles to the process. For more information, see Terminating a Process.

(12) CloseHandle закроет твой процесный дескриптор объекта, сам объект в ядре закроется только с последним закрытым дескриптором, а этот дескриптор держит закрываемый процесс сам на себя. Более того в каждом процессе дескрипторы одного объекта ядра обычно различаются.

(17) так как его прибить?

(18) так как это делает taskkill ?

(19) просто послать команду закрытия

закрыть дерево процессов...

вообще TerminateProcess() - прокатить должен

http://www.rsdn.ru/article/qna/baseserv/killproc.xml

Может, как-то Alt-F4 послать?

TerminateProcess привилегированная функция. она должна выполняться при установленной привилегии SE_DEBUG_NAME

Еще можно тупо:

PostMessage(Handle,WM_QUIT,0,0);

(25) а если у процесса будет окно "вы действительно хотите закрыть программу"?

(26) точно знаю, не будет

(26) Этому процессу тоже ничего не поможет.

Чезез терминайтед

Procedure TMainForm.RunGame;
Begin
  SetCurrentDir(ExtractFileDir(Programs[GameList.ItemFocused.ImageIndex+1]));
  EmulHandle:=ShellExecute( MainForm.Handle, 'open',
  PChar(Programs[GameList.ItemFocused.ImageIndex+1]), PChar('"'+FullNames.Strings[GameList.ItemFocused.Index]+'"'), nil,
  SW_SHOWNORMAL);
  DXTimer.Interval:=10000;
  CurrentMode:=1;
end;

procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
begin
   DXInput.Update;
   if CurrentMode=0 then
   Begin
       ...
   End Else
   Begin
       DXTimer.Interval:=20;
       CurrentMode:=0;
       showmessage('111');
       PostMessage(EmulHandle,WM_QUIT,0,0);
       //sendmessage(EmulHandle, wm_close,0,0);
       //TerminateProcess(EmulHandle, 0);
       //CloseHandle(EmulHandle);
   End;
end;

(25) ShellExecute возвращает HINSTANCE, а для сообщений используется HWND, или действительно можно сообщение в HINSTANCE отправлять?

http://support.microsoft.com/kb/178893/en-us

(0) Если нужно дополнительно выгонять пользователей, то вот у меня здесь есть с оповещением (есть исходник на Дельфи):
Книга знаний: Альтернативное стартовое окно для 1С:Предприятие 7.7

(33)  нет, спасибо, это  с 1с не связано

(30) Скинь прогу, которую закрываешь

(30) убей нафиг ShellExecute, используй CreateProcess + жди без таймера
var
 si: STARTUPINFO;
 pi: PROCESS_INFORMATION;
begin
 ZeroMemory(@si, sizeof(si));
 si.cb := SizeOf(si);
 if not CreateProcess(nil,
   Programs[GameList.ItemFocused.ImageIndex+1]
   nil,
   nil,
   False,
   0,
   nil,
   nil,
   si,
   pi)
   then
 begin
   ShowMessage('Неудачный запуск объекта');
   Exit;
 end;
 WaitForSingleObject(pi.hProcess, 10000);
 CloseHandle(pi.hProcess);
 CloseHandle(pi.hThread);

фух, победил...

Получаю хэндл по имени exe-файла функцией:

function search(name:string): Cardinal;
var ExeFile    : String;
   PE         : TProcessEntry32;
   FSnap: THandle;
begin
result:= 0;
FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
PE.dwSize:= SizeOf(PE);
if (Tlhelp32.Process32First(FSnap,PE)) Then
 Repeat
  ExeFile:= PE.szExeFile;
  if pos(pchar(lowercase(name)), lowercase(ExeFile))>0 then
   Begin
    result:= PE.th32ProcessID;
    EmulHandle:= OpenProcess(PROCESS_ALL_ACCESS,False,PE.th32ProcessID);
    break
   End;
  Until Not Process32Next(FSnap,PE)
end;

и 10 отрабатывает

(37) извращение и уродство. Искать созданный самим собой процесс

(36) что такое STARTUPINFO?

и что делает WaitForSingleObject(pi.hProcess, 10000); ?

(39) (40) Это он херь написал, не разобравшись в задаче

(41) оно запускается, но не закрывается

(36) Чуть допилил, заработало. Спасибо