Модераторы: Akella, bartram
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> FAR 
:(
    Опции темы
Akella
Дата 12.3.2005, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Каким образом в FAR`е можно выйти с помощью ключа, т.е. что-то типа Far -x или Far -q, нужно Far закрывать программно.

Это сообщение отредактировал(а) dsergey - 12.3.2005, 10:38
PM MAIL   Вверх
NiJazz
Дата 12.3.2005, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
dsergey
Сделай bat-файл и укажи путь к этому файлу через path в autoexec.bat или в переменных окружения.
Вот текст внутри этого файла:
Цитата
taskkill -f -im far.exe

Запускай из-под Far'a и он очень мило закроется. smile
PM MAIL   Вверх
NiJazz
Дата 12.3.2005, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
dsergey
Слушай, а чем F10 не угодила?
F9 -> Параметры -> Подтверждения. Убери галочку с ВЫХОД.
PM MAIL   Вверх
Akella
Дата 14.3.2005, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Цитата(NiJazz @ 12.3.2005, 22:08)
Слушай, а чем F10 не угодила?
F9 -> Параметры -> Подтверждения. Убери галочку с ВЫХОД.


В том-то все и дело, что все открывается и должно закрываться через *.bat

Хотелось бы корректно закрывать.

Это сообщение отредактировал(а) dsergey - 14.3.2005, 10:13
PM MAIL   Вверх
Akella
Дата 14.3.2005, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
NiJazz
Цитата(NiJazz @ 12.3.2005, 21:10)
taskkill -f -im far.exe

taskkill - нет такой прогаммы или внутренней команды (WinXPSP2 - Home Ed/)
PM MAIL   Вверх
NiJazz
Дата 14.3.2005, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
dsergey
Как сюда файл выложить для скачивания? Это ехе, который убивает фар при запуске.
Должно работать в любой ОС.
Добавлено @ 13:15
Только правда он убивает все фары, открытые в данный момент. smile
PM MAIL   Вверх
Akella
Дата 15.3.2005, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Внизу есть кнопка ответить
Написать программу не проблемма, я сам пишу на Delphi.
Я думал, что у FAR`а, как у большинства программ подобного типа есть ключи запуска

Это сообщение отредактировал(а) dsergey - 15.3.2005, 11:43
PM MAIL   Вверх
NiJazz
Дата 15.3.2005, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
Цитата
Написать программу не проблемма, я сам пишу на Delphi.

Что верно - то верно. smile

Оставлю свой простенький код, может, пригодится кому.
Код

#include <windows.h>
#include <Tlhelp32.h>

int main(int argc, char* argv[])
{
    HANDLE            hSnp = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, TH32CS_SNAPALL);
    HANDLE            hProcess = NULL;
    PROCESSENTRY32    p32;

    p32.dwSize = sizeof(PROCESSENTRY32);
    Process32First(hSnp, &p32);
    if (!stricmp(p32.szExeFile, "far.exe"))
    {
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, p32.th32ProcessID);
        TerminateProcess(hProcess, 0);
    }

    while (Process32Next(hSnp, &p32))
    {
        if (!stricmp(p32.szExeFile, "far.exe"))
        {
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, p32.th32ProcessID);
            TerminateProcess(hProcess, 0);
        }
    }
    
    CloseHandle(hSnp);
    CloseHandle(hProcess);
    return 0;
}


Это сообщение отредактировал(а) NiJazz - 15.3.2005, 12:20
PM MAIL   Вверх
Akella
Дата 15.3.2005, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Для меня этот код мало,что говорит, я в C++ не "шурупаю"

Это сообщение отредактировал(а) dsergey - 15.3.2005, 12:26
PM MAIL   Вверх
NiJazz
Дата 15.3.2005, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
dsergey
А у меня на машине делфы нет. smile
PM MAIL   Вверх
NiJazz
Дата 15.3.2005, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 3
Всего: 23
dsergey
Код

program kill_far;

uses
  Windows,
  Tlhelp32,
  SysUtils;

var hSnp: THandle;
    hProcess: THandle;
    p32: PROCESSENTRY32;

begin
 hSnp := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, TH32CS_SNAPALL);
 p32.dwSize := sizeof(PROCESSENTRY32);
 Process32First(hSnp, p32);
 if StrIComp(p32.szExeFile, 'far.exe') = 0 then begin
   hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE, p32.th32ProcessID);
   TerminateProcess(hProcess, 0);
 end;
 while Process32Next(hSnp, p32) do
  if StrIComp(p32.szExeFile, 'far.exe') = 0 then begin
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE, p32.th32ProcessID);
    TerminateProcess(hProcess, 0);
  end;
  CloseHandle(hSnp);
  CloseHandle(hProcess);
end.


Это сообщение отредактировал(а) NiJazz - 15.3.2005, 19:38
PM MAIL   Вверх
Akella
Дата 19.3.2005, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Код

procedure TForm1.Button1Click(Sender: TObject);
VAR
  Wnd : hWnd;
  buff: ARRAY [0..127] OF Char;
begin
  Wnd := GetWindow(Handle, gw_HWndFirst);
  WHILE Wnd <> 0 DO BEGIN
    IF (Wnd <> Application.Handle) AND //не трогаем собственное окно
    (IsWindowVisible(Wnd)) AND //не трогаем спрятанные окна
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) THEN
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      //Закрываю, только нужный мне Far
      if StrPas(buff) = '{C:\KVARTAL\Квартиры} - Far' then
        CloseWindow(Wnd)
    end;
   Wnd := GetWindow(Wnd, gw_hWndNext);
  END;//While
end;


Мы, кажется, далего заходит, относительно этого раздела

Это сообщение отредактировал(а) dsergey - 19.3.2005, 10:12
PM MAIL   Вверх
Deface
Дата 30.3.2006, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


def
****


Профиль
Группа: Экс. модератор
Сообщений: 2041
Регистрация: 22.11.2002
Где: г. Дубна, МО

Репутация: 12
Всего: 21
FAR 1.70
http://www.farmanager.com/download.php?l=ru


--------------------
Когда я умер, не было никого, кто бы это опроверг 
(с)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программное обеспечение"
Deface
Akella

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, Akella, bartram.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программное обеспечение | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1251 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.