Форум: "Потрепаться";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];
ВнизЗачем клаве Scroll Lock? Найти похожие ветки
← →
WondeRu © (2004-08-24 13:25) [0]Мне нужен только для того чтобы какая-нить прога могла им поморгать и не более того! Зачем она??? Может когда-то была полезна?
← →
Kerk © (2004-08-24 13:28) [1]давным-давно... далеко-далеко в галактике...
насколько я понимаю, это запрет скроллинга в консоли
← →
wicked © (2004-08-24 13:29) [2]включи Scroll Lock и поиграй клавишами стрелок в екселе... ;)
← →
Layner © (2004-08-24 13:36) [3]wicked © (24.08.04 13:29)
А зачем так сделали, не в курсе?
← →
wicked © (2004-08-24 13:37) [4]> Layner [3]
без понятия...
← →
clickmaker © (2004-08-24 13:41) [5]
> [2] wicked © (24.08.04 13:29)
> включи Scroll Lock и поиграй клавишами стрелок в екселе...
> ;)
Ишь ты! Вот ведь!..
← →
nasty © (2004-08-24 13:44) [6]в нормальных продуктах для этого служит ctrl-up/down
← →
YurikGL © (2004-08-24 13:47) [7]в юнихе он нужен...
← →
YurikGL © (2004-08-24 13:51) [8]При светящимся scroll lock клавиши вниз-вверх скролируют экран...
Не помню, где читал, но на этот же вопрос был следующий ответ: "У меня, например, scroll lock компьютер выключает"
← →
Piter © (2004-08-24 13:56) [9]для ноутов полезно, когда текст читаешь... За touchpad"ом тянуться лень...
← →
WondeRu © (2004-08-24 14:50) [10]короче бесполезная вещица! я ее ща отверткой выковыряю, потому что в экселе не работаю и линуха у меня нет! ;-)
← →
Cincinnut (2004-08-24 15:06) [11]у меня "следующий трек"
← →
REA (2004-08-24 15:09) [12]И в винчестере тоже отверткой поковыряй - там много лишних файлов. Также можно вырвать архаичный флопповод, COM порт и кнопку Power.
← →
VID © (2004-08-24 15:15) [13]REA (24.08.04 15:09) [12]
Кто сказал что COM-порт не нужен ?!
← →
WondeRu © (2004-08-24 15:30) [14]VID © (24.08.04 15:15) [13]
согласен! Scroll - к черту, а СОМ - не трогать!!!
← →
Anatoly Podgoretsky © (2004-08-24 15:38) [15]VID © (24.08.04 15:15) [13]
Cмотри стандарт на PC-99
Компортов и паралельных портов в компьютере быть не должно. Я уже не помню когда последний раз использовал.
← →
WondeRu © (2004-08-24 15:42) [16]Anatoly Podgoretsky © (24.08.04 15:38) [15]
откройте странички с оборудованием систем безопасности: там почти все оборудование через СОМ-порты работает, даже новейшее! Т.к. стандарты RS485 и RS232 - одни из самых распространенных в спецэлектронике! Правда щас тенденция перехода на TCP-сети, но это будет лишь через лет 5
← →
Ega23 © (2004-08-24 15:47) [17]WondeRu © (24.08.04 15:42) [16]
:о)
Коллега! "Узнаю брата Колю!!!" (с)
← →
WondeRu © (2004-08-24 15:53) [18]Олег, так что будем вместе выкорчевывать scroll lock?
или кто чего путного по этой пимпе скажет?
← →
Ega23 © (2004-08-24 16:17) [19]Олег, так что будем вместе выкорчевывать scroll lock?
или кто чего путного по этой пимпе скажет?
Я бы, (пи-и-ип), лучше все эти (пи-и-ип) протоколы, да вместе с (пи-и-ип) компами, и вообще (пи-и-ип) напьюсь я сегодня (пи-и-ип). Депрессняк (пи-и-ип) у меня (пи-и-и-и-и-и-и-и-и-и-и-и-и-и-ип).
← →
Prohodil Mimo © (2004-08-24 16:18) [20]zachem vikorchovivat"? dirka ostaneca... vi jejo luchshe pajal"nikom vplavte :o)
← →
WondeRu © (2004-08-24 16:36) [21]Ega23 © (24.08.04 16:17) [19]
чего это такое? Жена?
← →
Ega23 © (2004-08-24 16:38) [22]чего это такое? Жена?
ГДЕ-Е-Е?????? :о)
← →
Cosinus © (2004-08-24 16:38) [23]Да вы чЁ??? Пиши прогу, вешай глобальный хук и ФФФсе! "Мастера DELPHI" одной кнопкой ;) Как на ноутах.
Ну или любой другой сайт в настройках;))))
← →
Ega23 © (2004-08-24 16:39) [24]Не, начальник настроение испортил. Поорали друг на друга...
← →
Prohodil Mimo © (2004-08-24 16:45) [25][24] Ega23 , lopatoj jego, lopatoj1!!! :o)
← →
WondeRu © (2004-08-24 17:02) [26]Prohodil Mimo © (24.08.04 16:45) [25]
не надо! потом лопату от крови кто отмывать будет? естественно Олег!
← →
Ega23 © (2004-08-24 17:12) [27]WondeRu © (24.08.04 17:02) [26]
А вот и не угадал! Для этого у нас в штате специальный человек есть, уборщица. :о)
← →
DeadMeat © (2004-08-24 18:30) [28]Дык потом ее тоже придется... Как свидетеля... А потом другую, и другую и д....
Короче лучше самому, а то потом столько трупов вывозить надо будет... Для этого нужен грузчик...... И все по новой....
---
...Death Is Only The Begining...
← →
Копир © (2004-08-24 22:10) [29]А я однажды использовал эту вполне бесполезную клавишу,
чтобы одним нажатием ScrollLock сделать экран черным,
(ScreenSaverы при этом уже не...) и потом ея же нажав,
опять все увидеть вновь:))
Удобно. Приперся начальник - темный экран.
Если очень озабоченный, пусть жмет чего хочет?
Всегда можно сказать, что комп вдруг завис :@
Разве начальнику придет в голову ScrLOck нажимать?
unit Unit4;
interface
uses
Windows, Messages, Graphics, SysUtils, Classes, Controls, Forms, RXShell;
const
ScrollKey = 101;
type
TForm1 = class(TForm)
RxTrayIcon1: TRxTrayIcon;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
procedure HideApplication;
var
Form1: TForm1;
p: byte;
CState:integer;
implementation
{$R *.DFM}
procedure HideApplication;
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
procedure TForm1.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
begin
inherited;
with msg.MinMaxInfo^.ptMaxTrackSize do begin
X := GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth);
Y := GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight );
end;
end;
procedure TForm1.WMHotKey (var Msg : TWMHotKey);
const
Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
FullScreen: Boolean = False;
begin
p:=p-1;
if (Msg.HotKey = ScrollKey) then begin
if p=1 then begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0);
Cstate := ShowCursor(True);
while CState >= 0 do CState:=ShowCursor(False);
FullScreen := not FullScreen;
if FullScreen then begin
Rect := BoundsRect;
SetBounds( Left - ClientOrigin.X,
Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle, HORZRES )
+ (Width - ClientWidth), GetDeviceCaps( Canvas.handle, VERTRES )
+ (Height - ClientHeight ));
end
else BoundsRect := Rect;
end;
if p=0 then begin
CState:= ShowCursor(True);
while Cstate < 0 do Cstate := ShowCursor(True);
FormActivate(Form1);
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,0);
end;
p:=2;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
HideApplication;
ShowWindow(Application.Handle,sw_Hide);
Form1.Color:=clBlack;
Form1.Width:=116;
Form1.Height:=32;
Form1.Top:=Screen.Height;
Form1.Left:=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle:=bsNone;
RegisterHotKey(Handle, ScrollKey, 0, VK_SCROLL);
p:=2;
end;
procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Close;
end;
end.
← →
WondeRu © (2004-08-25 08:48) [30]Копир © (24.08.04 22:10) [29]
извращенство, но ... прикольно!)))
← →
Style © (2004-08-25 08:57) [31]
> Копир © (24.08.04 22:10) [29]
Лучше бы ты сделал экран Синим :)
← →
WondeRu © (2004-08-25 09:18) [32]Style © (25.08.04 8:57) [31]
Лучше бы ты сделал экран Синим :)
BSOD ))) У меня и без Scroll Lock"a удавалось далать BSOD - дрова когда криво пишешь! ;-)
← →
Ega23 © (2004-08-25 09:23) [33]WondeRu © (25.08.04 09:18) [32]
Ты дрова пишешь?
← →
WondeRu © (2004-08-25 09:39) [34]Ega23 © (25.08.04 9:23) [33]
эээээ... нуууу... так скажем умею, но не пишу! ))) Практики маловато!)
← →
Ega23 © (2004-08-25 09:41) [35]WondeRu © (25.08.04 09:39) [34]
У тебя адрес тот-же остался?
← →
WondeRu © (2004-08-25 10:05) [36]Ega23 © (25.08.04 9:41) [35]
У тебя адрес тот-же остался?
ага!) wonderu(at)mail.ru
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.036 c