Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871373 Fri, 30 Sep 2005 06:52:03 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871373 Цитата Rouse_ @
RemouteAdmin?

Ага]]> Arazel Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871353 Fri, 30 Sep 2005 06:38:07 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871353 Цитата zubr, 30.09.2005, 8:24:40, 871332
причем такая ситуация даже на предприятиях

Я бы сказал, что такая ситуация в основном на предприятиях. К тому же сравните цену на 98 и 2000 или XP, разница заметна невооруженным взглядом. Так что отказаться от поддержки ОСей прошлого тысячелетия отказаться не выйдет еще очень долго.]]> Domino Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871332 Fri, 30 Sep 2005 06:24:40 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871332 Цитата P.O.D @
Microsoft уже давно отказалась от поддержки Win95/98. Когда уже от нее откажутся остальные программисты ?

Да проблема в том, что у многих еще машины типа 1-2 го пентиума с оперативкой 64МБ, а то и меньше, причем такая ситуация даже на предприятиях, по крайней мере у нас в Беларуси.]]> zubr Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871197 Thu, 29 Sep 2005 21:07:11 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871197 Цитата P.O.D @
Microsoft уже давно отказалась от поддержки Win95/98. Когда уже от нее откажутся остальные программисты ?

Только тогда - когда от нее откажуться пользователи. :)
Мне самому с трудом удалось убедить начальство от поддержки чистого 98 (не 98 SE) и четвертой NT...
Решал радикальным способом - второй лайер винсока там не стабильно работает ;) (хитрость, но цель достигнута ;) )

Добавлено
ЗЫ: Кстати для 98 мелкомягкие еще производят поддержку... Могу дать линк с офсайта...]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871163 Thu, 29 Sep 2005 19:55:49 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871163 P.O.D Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871103 Thu, 29 Sep 2005 18:13:57 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=871103 Троян чтоль пишешь или типа RemouteAdmin?]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870903 Thu, 29 Sep 2005 14:50:40 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870903 Цитата Rouse_ @
Только начиная с Win 2000

:o А мне надо для всех WINXX]]> Arazel Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870846 Thu, 29 Sep 2005 13:46:41 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870846
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    var
      MouseHook: HHOOK;
     
    function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
    begin
      Result := CallNextHookEx(MouseHook, nCode, WParam, LParam);
      case WParam of
        WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась левой кнопкой.');
        WM_LBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась левой кнопкой.');
        WM_LBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась левой кнопкой.');
        WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась правой кнопкой.');
        WM_RBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась правой кнопкой.');
        WM_RBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась правой кнопкой.');
        WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась средней кнопкой.');
        WM_MBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась средней кнопкой.');
        WM_MBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась средней кнопкой.');
        WM_MOUSEMOVE: Form1.Memo1.Lines.Add('Мыша побежала.');
        WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Мыша тащиться.');
      else
        Form1.Memo1.Lines.Add('Мыша сошла с ума, купите новую мышу.');
      end;
    end;
     
     
    procedure TForm1.FormCreate(Sender: TObject);
    const
      WH_MOUSE_LL = 14;
    begin
      MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, HInstance, 0);
    end;
     
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      UnhookWindowsHookEx(MouseHook);
    end;
     
    end.


Тож самое и на клавиатуру, код хука - Цыфира 13 :) Соответственно принимай уже мессаги от клавиатуры...
Только начиная с Win 2000]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870816 Thu, 29 Sep 2005 13:21:55 +0000 Как можно узнать что было изменениие https://forum.sources.ru/index.php?showtopic=116407&view=findpost&p=870816 Arazel Delphi: Система, Windows API