Действия с посторонними окнами

[alexei7]

Всем привет!
Хочу закрыть другие приложения через delphi
ну например -opera- но неполучается
вот код он вобще недействует -->
postmessage( findwindow(nil,' заголовок окна '), wm_команда, парам3, парам4 );
ненаходит даже приложения --if findwindow(nil, ' 1.txt - Блокнот ') <>0 then showmessage ('Окно присутствует');
может надо чтото добовлять в uses.
Я уже облазил весь инет и просмотрел кучу книг, там такого нет.

Покажите пожалуйста полный листинг программы.
Очень нужно!!!

[Stilet]

Я уже облазил весь инет и просмотрел кучу книг, там такого нет

"Это Яндекс. Его расстраивает твоя фраза о то что там ничего нет"
Плохо искал:
http://www.programmersforum.ru/showthread.php?t=6334
И это первое попавшееся.

[alexei7]

супер, работае!!!

var
 h: hWnd;

begin

 h:=FindWindow(nil, 'Документ1 - Microsoft Word');
 if h=0 then exit;
 SendMessage(h, WM_DESTROY, 0,0);

end;

Большое спасибо!!!!
Я примерно чтото в таком роде делал но окна незакрывались, а это работает. еща раз спасибо!

Вот только нехочет закрывать программы - opera или Mozilla Firefox незакрывает, да и другие программы нехочет закрывать а вот документы nodepad и офис закрывает. Подскажи пожалуйста еще как можно закрыть opera или Mozilla Firefox

[MaxNik2009]

Подскажи пожалуйста еще как можно закрыть opera или Mozilla Firefox

ищи окна не о названию а по классу:

var
h: hWnd;

begin

h:=FindWindow('КлассОкна', Nil);
if h=0 then exit;
SendMessage(h, WM_quit, 0,0);

end;

а класс окна можешь получить программой SpyXXX.

[Stilet]

нехочет закрывать программы

Я вообще-то имел ввиду пост Tokolist #6...
там где SC_CLOSE используется.
http://www.programmersforum.ru/showp...48&postcount=6

[Grag]

Сообщение от alexei7

Хочу закрыть другие приложения через delphi

ИМХО! Лично я делаю так

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;

А в теле самой проги обращение к функции

//убиваю процесс...
  pe.dwSize:=SizeOf( pe );
  hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0 );
  if Process32First(hSnap,pe) then
    while Process32Next(hSnap,pe) do
      begin
        if pe.szExeFile='WorkTime.exe' then KillTask('WorkTime.exe');
        if pe.szExeFile='EXCEL.EXE' then KillTask('EXCEL.EXE')
      end

В секции описания переменных:
pe: TProcessEntry32;
hSnap: THandle;

[alexei7]

Спасибо!!! Разобрался, все работает.