/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1110
от 03.04.2008, 11:35

Вопрос № 129.423

Здравствуйте уважаемые эксперты. Я в сотый раз обращаюсь к Вам за помощью. Помогите мне пожалуйста....Есть Форма, на ней лежит TreeView1, который показывает компьютеры в сети. Ещё есть CheckBox1 который как предпологается будет производить действие над компьютером который находится в сети. Вот как бы мне сделать, чтоб когда выделяешь компьютер который в сети, и ставишь галочку действие былоб произведено.....скажем выключить компьютер. Спасибо заранее. С уважением sefiros......

Отправлен: 28.03.2008, 10:41 Вопрос задал: Sefiros (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Marked One Здравствуйте, Sefiros! Мы будем использовать событие OnClick у CheckBox'а. При клике мышкой по CheckBox'у мы выводим сообщение, если галочка поставлена, иначе ничего не делаем. Т.Е. если пользователь поставил галочку то выполнится какое-либо действие. Удачи!!! Приложение: procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then //Проверяем-поставлена ли галочка у CheckBox'а Application.MessageBox(PChar('Вы собираетесь что-то сделать с '+TreeView1.Selected.Text), 'Действие', MB_OK); //Если да, то выводим сообщение end;

Ответ отправил: Marked One (статус: 10-ый класс) Ответ отправлен: 28.03.2008, 15:44 Оценка за ответ: 5 Комментарий оценки: Спасиб.......работает....тока не подскажете, как его монитор потушить...........просто как мне прописать его компьютер, а монитор я тушить знаю как. SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1); мне бы его монитор потушить........помогите плиззззззз

Отвечает: Gladiator Здравствуйте, Sefiros! Вообще-то это реализовывается посредством установки на искомый компьютер серверной части вашего приложения. И управлять им посредством клиентской. Посылаете команды в серверную часть, а уж она и монитор и компьютер выключит. Для всего этого как минимум требуется получить физический доступ к компьютеру либо сетевой с правами администратора.

Ответ отправил: Gladiator (статус: Студент) Ответ отправлен: 31.03.2008, 09:29

Вопрос № 129.441

Добрый день уважаемые эксперты! Помогите пожалуйста составить алгоритм написания строки чисел в прописи. Спасибо.

Отправлен: 28.03.2008, 11:47 Вопрос задал: Asyll (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: -=Dr. Штопор=- Здравствуйте, Asyll! По адресу http://drshtopor.ucoz.ru/Files/chisla.rar лежит архив с программкой, которая пишет прописью числа от 1 до 999. При желании можно модифицировать её для бо'льших чисел. Для этого число надо разделить на триады. Младшая - единиц, дальше тысяч и т.д. Определять падеж слова "тысяча" нужно по младшему разряду триады. Удачи! Если будут вопросы, пишите в личку. В приложение на всякий случай положу подобную программу на Pascal также своего сочинения. ____________________________ Tantum possumus, quantum scimus Приложение: program chisla; uses crt; var a,d100,d10,d1:integer; s:string; begin clrscr; writeln('Введите число'); readln(a); d100:=a div 100; d10:=a div 10 mod 10; d1:=a mod 10; case d100 of 1:s:=s+'Сто '; 2:s:=s+'Двести '; 3:s:=s+'Триста '; 4:s:=s+'Четыреста '; 5..9: begin case d100 of 5:s:=s+'Пять'; 6:s:=s+'Шесть'; 7:s:=s+'Семь'; 8:s:=s+'Восемь'; 9:s:=s+'Девять'; end; s:=s+'сот '; end; end; if d10=1 then begin case d1 of 1:s:=s+'один'; 2:s:=s+'две'; 3:s:=s+'три'; 4:s:=s+'четыр'; 5:s:=s+'пят'; 6:s:=s+'шест'; 7:s:=s+'сем'; 8:s:=s+'восем'; 9:s:=s+'девят'; end; if d1=0 then s:=s+'десять' else s:=s+'надцать'; end; case d10 of 2:s:=s+'двадцать '; 3:s:=s+'триццать '; 4:s:=s+'сорок '; 5:s:=s+'пять'; 6:s:=s+'шесть'; 7:s:=s+'семь'; 8:s:=s+'восемь'; 9:s:=s+'девяносто '; end; if (d10>=5) and (d10<=8) then s:=s+'десят '; if d10<>1 then case d1 of 1:s:=s+'один'; 2:s:=s+'два'; 3:s:=s+'три'; 4:s:=s+'четыре'; 5:s:=s+'пять'; 6:s:=s+'шесть'; 7:s:=s+'семь'; 8:s:=s+'восемь'; 9:s:=s+'девять'; end; writeln(s); end. --------- Tantum possumus, quantum scimus

Ответ отправил: -=Dr. Штопор=- (статус: 7-ой класс) Ответ отправлен: 28.03.2008, 12:15 Оценка за ответ: 4 Комментарий оценки: Спасибо

Вопрос № 129.453

Добрый день ! Ув. эксперты, кто подскажет, как определить факт нажатия каких-либо клавиш в другом окне из программы на Delphi7. К примеру, клавиш ESC, ENTER, цифровых или алфавитных. Т.е. важен сам факт нажатия(отжатия) этих клавиш. Что конкретно нажималось(по к-либо смыслу или без него) - не имеет значения. Предполагаю, что нужно использовать HOOK'и, но не могу нигде найти толкового примера. Т.е. зная Handle окна, как распознать нажатия указанных клавиш в этом окне... Помогите, пожалуйста. Может у кого-то есть кусок кода(или ссылка на него) - был бы весьма признателен. Пересмотрел в Инете кучу всего и именно нужного (см. проблему выше) не нашел. Мне нужно просто определять "простОй" приложения, т.е. окно открыто но никто в нем, в течение некоторого времени не работает... и нужно его закрывать. Находить окно и закрывать я уже умею, а вот определять нажатия каких-либо клавиш в найденном окне ...пока не придумал как... :-(( Нажатия мышки обрабатывать не нужно. Заранее благодарен всем за помощь. Сергей Д.

Отправлен: 28.03.2008, 13:20 Вопрос задал: Дылда Сергей Григорьевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: AndreyZotov Здравствуйте, Дылда Сергей Григорьевич! Для отслеживания каких-то событий во всей Windows нужно установить ловушку (hook). Например, такая ловушка может отслеживать все события, связанные с мышью, где бы ни находился курсор. Можно отслеживать и события клавиатуры. Для ловушки нужна функция, которая, после установки ловушки при помощи SetWindowsHookEx, будет вызываться при каждом нужном событии. Эта функция получает всю информацию о событии. UnhookWindowsHookEx уничтожает ловушку. Приложение: Как перехватывать события, посланные другим приложениям -------------------------------------------------------------------------------- Автор: Даниил Карапетян WEB сайт: http://program.dax.ru Для отслеживания каких-то событий во всей Windows нужно установить ловушку (hook). Например, такая ловушка может отслеживать все события, связанные с мышью, где бы ни находился курсор. Можно отслеживать и события клавиатуры. Для ловушки нужна функция, которая, после установки ловушки при помощи SetWindowsHookEx, будет вызываться при каждом нужном событии. Эта функция получает всю информацию о событии. UnhookWindowsHookEx уничтожает ловушку. Эта программа отслеживает все сообщения, связанные с мышью и клавиатурой. CheckBox1 показывает состояние левой клавиши мыши, CheckBox2 показывает состояние правой клавиши мыши, а CheckBox3 показывает, нажата ли какая-либо клавиша на клавиатуре. var HookHandle: hHook; function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall; var msg: PEVENTMSG; begin if Code >= 0 then begin result := 0; msg := Pointer(LParam); with Form1 do case msg.message of WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr(msg.ParamH); WM_LBUTTONDOWN: CheckBox1.Checked := true; WM_LBUTTONUP: CheckBox1.Checked := false; WM_RBUTTONDOWN: CheckBox2.Checked := true; WM_RBUTTONUP: CheckBox2.Checked := false; WM_KEYUP: CheckBox3.Checked := false; WM_KEYDOWN: CheckBox3.Checked := true; end; end else result := CallNextHookEx(HookHandle, code, WParam, LParam); end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.FormStyle := fsStayOnTop; CheckBox1.Enabled := false; CheckBox1.Caption := 'left button'; CheckBox2.Enabled := false; CheckBox2.Caption := 'right button'; CheckBox3.Enabled := false; CheckBox3.Caption := 'keyboard'; HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0); end; procedure TForm1.FormDestroy(Sender: TObject); begin if HookHandle <> 0 then UnhookWindowsHookEx(HookHandle); end; Проект Delphi World © Выпуск 2002 - 2003 Автор проекта: ___Nikolay

Ответ отправил: AndreyZotov (статус: 1-ый класс) Ответ отправлен: 28.03.2008, 13:43

Вопрос № 129.463

ЛЮДИ ПОМОГИТЕ ПЛИЗ.......Как можно запустить и отключить программу, если знаешь её только имя? Эсли это возможно Internet Explorer. Памагите пожалуста

Отправлен: 28.03.2008, 15:20 Вопрос задал: Sefiros (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Yumark Здравствуйте, Sefiros! Очень интересная статейка про Internet Explorer: http://www.interface.ru/home.asp?artId=9697 Про другие программы не подскажу :-(

Ответ отправил: Yumark (статус: 3-ий класс) Ответ отправлен: 28.03.2008, 15:40

Вопрос № 129.519

Помогите пожалуйста написать прогу,а то ничего уже не получается,сил нету.Зарание большое спасибо. Задание: Даны натуральное k, символьный файл f и текстовый файл f1).Файл f содержит 30 слов, каждое из которых будем называть ключевым. Сформировать файл g, который содержит строки файла f1, циклически сдвинутые так, чтобы каждое ключевое слово, входящее в строку, начиналось с k-й позиции. Строки, не содержащие ключевых слов, в файл g не включаются. Строки, которые содержат n ключевых слов, записываются в файл g n раз.

Отправлен: 28.03.2008, 23:56 Вопрос задал: Arias (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mo-skin Здравствуйте, Arias! Код с комментариями и примеры файлов в приложении. Работать в лабораторных условиях будет, т.е. слова должны быть разделены одним пробелом, нельзя ставить два переноса строки, "к" не может быть больше длинны строки. Приложение: {******* c:f.txt ******* один два три черыре пять первый второй третий четвертый пятый 1 2 3 4 5 i ii iii iv v слов человек флаг имя война день снег пол небо люди ******* c:f1.txt ******** Даны натуральное k, символьный файл f и текстовый файл f1).Файл f содержит 30 слов, каждое из которых будем называть ключевым. Сформировать файл g, который содержит строки файла f1, циклически сдвинутые так, чтобы каждое ключевое слово, входящее в строку, начиналось с k-й позиции. Строки, не содержащие ключевых слов, в файл g не включаются. Строки, которые содержат n ключевых слов, записываются в файл g n раз ********** Код *************} unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var k, n ,i, p: integer; f : file of char; f1, g: textfile; sl : array[0..29] of string; s, buf: string; c: char; begin k:=20; // задаём к // Связываем файлы с именами AssignFile(f,'c:f.txt'); AssignFile(f1,'c:f1.txt'); AssignFile(g,'c:g.txt'); // открываем файлы Reset(f); Reset(f1); Rewrite(g); s:=''; while not eof(f) do // читаем f.txt удаляя переносы строк begin read(f,c); if (c<>#13)and (c<>#10) then s:= s+c; if (c=#13) then s:=s+' '; end; n:=0; buf:=''; for i:=1 to Length(s) do // разбиваем строку на слова и заносим в массив begin if s[i]<>' ' then begin buf := buf+s[i]; end else begin sl[n]:=buf; inc(n); buf:=''; end; sl[n]:=buf; end; while not eof(f1) do // читаем f1.txt begin readln(f1,s); for i:=0 to 29 do begin p := Pos(sl[i],s) ; // ищем вхождение ключевого слова if p>0 then // циклический сдвиг и запись в g.txt begin if p>k then begin s:= Copy(s,p-k+1,length(s))+Copy(s,1,p-k); writeln(g,s); end else if p<k then begin s:= Copy(s,length(s)-k+p+1,k-p+1)+Copy(s,1,length(s)-k+p); writeln(g,s); end else begin writeln(g,s); end; end; end; end; // закрываем файлы CloseFile(f); CloseFile(f1); CloseFile(g); end; end. --------- ...Любая дурь, любое помутнение рассудка лечится всего двумя способами: лопатой и голодом

Ответ отправил: Mo-skin (статус: 4-ый класс) Ответ отправлен: 29.03.2008, 02:09 Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.72.6 beta от 22.03.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru