Форум Микро-Чип
Поиск и заказ электронных компонентов
 

Вернуться   Форум Микро-Чип > Своими руками

Своими руками Завершенные и текущие проекты, хард & софт

Ответ
 
Опции темы Опции просмотра
Старый 06.07.2016, 07:27   #101
HJV
Senior Member
 
Регистрация: 25.02.2007
Адрес: Чита
Возраст: 36
Сообщений: 209
Вес репутации: 325/43
HJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the rough
Отправить сообщение для HJV с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Маилрушники-уроды, аську испоганили. Старая версия удобная была, но начались настойчивые предложения обновиться. Обновился, сдержал рвотные позывы и поставил обратно восьмую версию, а чтоб апдейтер глаза не мозолил накидал в делфях свой велосипед с треугольными колесами (гасит процесс icqsetup.exe)
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
  StdCtrls, ExtCtrls, Tlhelp32;//Graphics, Dialogs, 

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const FN_Kill:string = 'icqsetup.exe'; //Имя супостата
implementation

{$R *.dfm}

function FindTask(ExeFileName: string): integer;
 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 := 1;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
   end;
  CloseHandle(FSnapshotHandle);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if FindTask(FN_Kill)=1
    then WinExec(PANsiChar('TASKKILL /F /IM '+FN_Kill), SW_HIDE);

end;

end.
HJV вне форума   Ответить с цитированием
Старый 06.07.2016, 12:57   #102
Vovka
Senior Member
 
Аватар для Vovka
 
Регистрация: 27.12.2007
Адрес: недалеко от г.Белгорода
Возраст: 49
Сообщений: 1,761
Вес репутации: 2479/76
Vovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond repute
Отправить сообщение для Vovka с помощью ICQ
По умолчанию Re: Полезный софт своими руками

С одной стороны да, испоганили, но с другой - сообщения не пропадают! (QIP тоже теряет, но реже)
У них теперь на сообщения подтверждения по принципу Скайпа. Я с ними "воюю", но на удивление адекватные люди... Так что надеюсь доведут до ума!
HJV, экзешник скинь, а то на си переводить влом...
__________________
Настройся на хороший день и он таким будет!
Vovka вне форума   Ответить с цитированием
Старый 06.07.2016, 13:32   #103
HJV
Senior Member
 
Регистрация: 25.02.2007
Адрес: Чита
Возраст: 36
Сообщений: 209
Вес репутации: 325/43
HJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the rough
Отправить сообщение для HJV с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Цитата:
Сообщение от Vovka Посмотреть сообщение
HJV, экзешник скинь, а то на си переводить влом...
Переписывался с ними, сказали юзайте новую. Ага, щаз
Вложения
Тип файла: zip ICQUPD_Kill.zip (198.6 Кб, 5 просмотров)
HJV вне форума   Ответить с цитированием
Старый 06.07.2016, 13:39   #104
pasha_zv
Senior Member
 
Аватар для pasha_zv
 
Регистрация: 17.04.2010
Адрес: Ставрополь
Возраст: 46
Сообщений: 371
Вес репутации: 612/35
pasha_zv is a name known to allpasha_zv is a name known to allpasha_zv is a name known to allpasha_zv is a name known to allpasha_zv is a name known to allpasha_zv is a name known to all
По умолчанию Re: Полезный софт своими руками

да что там переводить то?
по таймеру ишет процесс и киляет его.
ЗЫ, тем паче с WINAPI на дельфях на порядок труднее работать, чем на сях...
(переводы ANSI <-> Char)

pS. а я бы TForm убрал бы.
timer:=TTimer.Create....
Timer.Dealy:=1000;
Timer.Enabled:=true;
......

ЗЫЫ. хотя что на современных тачках память экономить...
__________________
не спится, не спится, не спиться бы мне ...

Последний раз редактировалось pasha_zv; 06.07.2016 в 13:53.
pasha_zv вне форума   Ответить с цитированием
Старый 06.07.2016, 13:47   #105
Vovka
Senior Member
 
Аватар для Vovka
 
Регистрация: 27.12.2007
Адрес: недалеко от г.Белгорода
Возраст: 49
Сообщений: 1,761
Вес репутации: 2479/76
Vovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond repute
Отправить сообщение для Vovka с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Так если есть уже прога, то смысл пол часа на это тратить?
Кстати, глянул в диспетчере - кроме icq.exe ничего ихнего нет. Либо прячут, либо в аську встроили. Но Аська сама без предупреждения обновляется: писал им, что не хорошо так делать - промолчали...
__________________
Настройся на хороший день и он таким будет!
Vovka вне форума   Ответить с цитированием
Старый 06.07.2016, 13:54   #106
HJV
Senior Member
 
Регистрация: 25.02.2007
Адрес: Чита
Возраст: 36
Сообщений: 209
Вес репутации: 325/43
HJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the rough
Отправить сообщение для HJV с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Цитата:
Сообщение от Vovka Посмотреть сообщение
Так если есть уже прога, то смысл пол часа на это тратить?
Кстати, глянул в диспетчере - кроме icq.exe ничего ихнего нет. Либо прячут, либо в аську встроили. Но Аська сама без предупреждения обновляется: писал им, что не хорошо так делать - промолчали...
У меня появляется процесс Icqsetup.exe и окно с предложением установки, но это восьмая версия, более свежие не ставил
HJV вне форума   Ответить с цитированием
Старый 06.07.2016, 14:33   #107
ampersant
Senior Member
 
Аватар для ampersant
 
Регистрация: 26.02.2008
Адрес: IgorV
Сообщений: 2,230
Вес репутации: 4257/98
ampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond reputeampersant has a reputation beyond repute
По умолчанию Re: Полезный софт своими руками

Цитата:
Сообщение от HJV Посмотреть сообщение
У меня появляется процесс Icqsetup.exe и окно с предложением установки, но это восьмая версия, более свежие не ставил
qip2005 пока только призывает изредка
ampersant вне форума   Ответить с цитированием
Старый 06.07.2016, 14:42   #108
HJV
Senior Member
 
Регистрация: 25.02.2007
Адрес: Чита
Возраст: 36
Сообщений: 209
Вес репутации: 325/43
HJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the rough
Отправить сообщение для HJV с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Цитата:
Сообщение от ampersant Посмотреть сообщение
qip2005 пока только призывает изредка
Дык еслиб он один раз в день выводил, я бы и не стал заморачиваться, а тут задалбывает просто
HJV вне форума   Ответить с цитированием
Старый 06.07.2016, 14:47   #109
HJV
Senior Member
 
Регистрация: 25.02.2007
Адрес: Чита
Возраст: 36
Сообщений: 209
Вес репутации: 325/43
HJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the roughHJV is a jewel in the rough
Отправить сообщение для HJV с помощью ICQ
По умолчанию Re: Полезный софт своими руками

Цитата:
Сообщение от pasha_zv Посмотреть сообщение
pS. а я бы TForm убрал бы.
timer:=TTimer.Create....
Timer.Dealy:=1000;
Timer.Enabled:=true;
......

ЗЫЫ. хотя что на современных тачках память экономить...
Была такая мысль, но победила твоя ЗЫЫ
HJV вне форума   Ответить с цитированием
Старый Сегодня, 08:25   #110
IgorK12345
Junior Member
 
Регистрация: 19.06.2007
Сообщений: 6
Вес репутации: 100/0
IgorK12345 will become famous soon enoughIgorK12345 will become famous soon enough
По умолчанию Re: Полезный софт своими руками

Еще один создатель текста 7-и сегментного знакогенератора для С. Как-то давно делал для себя, сейчас облагородил и решил выложить. Позволяет привязывать сегменты индикатора к произвольным битам порта или к нескольким портам (для удобства разводки). Формирует файл "zg.h", который можно подключить к своему проекту.

В таблице перекодировки: P0..P7 - порты, D0..D7 - биты соответствующего порта (Хотя не думаю, что кто-то будет больше двух портов использовать). Флажок "Инверсия разрядов" - в отмеченном состоянии включенному сегменту соответствует 0 в бите порта. Если флажок не отмечен, то включенному сегменту соответствует 1.

"Формировать текст С" - просто добавление нового текста в конец редактора текста. "Заголовочный файл" - новый текст заменяет предыдущий в редакторе текста, плюс появляется кнопка для сохранения текста в файл.

Ссылка:
IgorK12345 вне форума   Ответить с цитированием
Старый Сегодня, 08:42   #111
Vovka
Senior Member
 
Аватар для Vovka
 
Регистрация: 27.12.2007
Адрес: недалеко от г.Белгорода
Возраст: 49
Сообщений: 1,761
Вес репутации: 2479/76
Vovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond repute
Отправить сообщение для Vovka с помощью ICQ
По умолчанию Re: Полезный софт своими руками

IgorK12345, т.е. получается, если что-то забыл, то нужно за справкой сюда обращаться? F1 для чего?
Запустил прогу, нажал сохранить в файл. В какой кодировке сишный файл?
Нажмите на изображение для увеличения
Название: Screenshot_1.png
Просмотров: 7
Размер:	19.5 Кб
ID:	10811
__________________
Настройся на хороший день и он таким будет!
Vovka вне форума   Ответить с цитированием
Старый Сегодня, 08:47   #112
Vovka
Senior Member
 
Аватар для Vovka
 
Регистрация: 27.12.2007
Адрес: недалеко от г.Белгорода
Возраст: 49
Сообщений: 1,761
Вес репутации: 2479/76
Vovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond reputeVovka has a reputation beyond repute
Отправить сообщение для Vovka с помощью ICQ
По умолчанию Re: Полезный софт своими руками

В догонку: есть, например, такая программа upx.exe для сжатия экзешников - MakeZG.exe сжала почти в 4 раза!
__________________
Настройся на хороший день и он таким будет!
Vovka вне форума   Ответить с цитированием
Ответ

Метки
софт, утилиты


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PicKit2 своими руками gontharov Инструментарий 25 18.11.2012 07:41
Метализация контактных площадок своими руками Artyuha Печатный монтаж 7 10.11.2009 00:36


Часовой пояс GMT +3, время: 23:34.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. Перевод: zCarot