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

Выпуск № 1070
от 20.02.2008, 20:05

Вопрос № 123.188

Здрасти всем! Мой вопрос не сложный но всёже : по нажатии 1кнопки в ресторе ставилось HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem SetValue "DisableTaskMgr"=dword:00000000 (0) а по нажатию 2 кнопки HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem SetValue "DisableTaskMgr"=dword:00000001 (1) как ето реализовать в коде.

Отправлен: 14.02.2008, 22:11 Вопрос задал: Мокроусов Алексей Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Мокроусов Алексей Сергеевич! Посмотрите вот эти статьи про работу с реестром: Как работать с реестром Работа с реестром в Delphi Работа с реестром в Delphi Также в приложении нужный Вам код. Удачи! Приложение: uses registry; procedure TForm1.Button1Click(Sender: TObject); var reg : TRegistry; begin //HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem //SetValue "DisableTaskMgr"=dword:00000000 (0) reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('software',true); reg.OpenKey('microsoft',true); reg.OpenKey('windows',true); reg.OpenKey('currentversion',true); reg.OpenKey('policies',true); reg.OpenKey('system',true); reg.WriteInteger('DisableTaskMgr',0); reg.CloseKey; reg.Free; end; procedure TForm1.Button2Click(Sender: TObject); var reg : TRegistry; begin //HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem //SetValue "DisableTaskMgr"=dword:00000001 (1) reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('software',true); reg.OpenKey('microsoft',true); reg.OpenKey('windows',true); reg.OpenKey('currentversion',true); reg.OpenKey('policies',true); reg.OpenKey('system',true); reg.WriteInteger('DisableTaskMgr',1); reg.CloseKey; reg.Free; end;

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 14.02.2008, 22:21 Оценка за ответ: 5 Комментарий оценки: Спасибки большое! 5 беспорно

Вопрос № 123.225

Здравствуйте, уважаемые эксперты!!! Подскажите пожалуйста, как отсортировать в StringGrid строки по содержимому определенного столбца (мне нужно 3 – го). Например: Символ Количество М 6 Е 10 Р 2 Ж 4 А потом: Символ Количество Е 10 М 6 Ж 4 Р 2 Я нашла код, но он почему-то у меня не срабатывает, ошибка происходит. Приложение: procedure TForm1.BitBtn1Click(Sender: TObject); var c,r:integer; // номер колонки и строки таблицы m:integer; // номер строки с максимальным количеством очков buf:array[0..3] of string; // буфер для обмена строк i:integer; // номер строки. Используется во время сортировки begin // сортировка таблицы по убыванию в соответствию // с вероятностью (по содержимому 3-го столбца) // сортировка методом выбора for r:=1 to StringGrid1.rowcount-1 do begin m:=r; // максимальный элемент — в r-й строке for i:=r to StringGrid1.rowcount-1 do if StrToInt(StringGrid1.cells[3,i])>StrToInt(StringGrid1.cells[3,m]) then m:=i; if r <> m then begin // обменяем г-ю и m-ю строки таблицы for c:=0 to 3 do begin buf[c]:=StringGrid1.Cells[c,r]; StringGrid1.Cells[c,r]:=StringGrid1.Cells[c,m]; StringGrid1.Cells[c,m]:=buf[c]; end; end; end; end;

Отправлен: 15.02.2008, 09:40 Вопрос задала: Cholito (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Cholito! Программа в приложении. Удачи! Приложение: procedure TForm1.Button1Click(Sender: TObject); const COL = 1; // номер колонки по которой надо сортировать (считается от нуля!) var r, k, max : integer; begin k := 0; // начиная с какой строки ищем максимальный while k < stringgrid1.RowCount-1 do begin max := k; // ищем максимальное значение for r := k+1 to StringGrid1.rowcount-1 do if StrToInt(stringgrid1.Cells[COL,r]) > StrToInt(stringgrid1.Cells[COL,max]) then max := r; // меняем строки максимальным элементом и текущую местами stringgrid1.RowCount := stringgrid1.RowCount +1; stringgrid1.Rows[stringgrid1.RowCount-1].Assign(stringgrid1.Rows[k]); stringgrid1.Rows[k].Assign(stringgrid1.Rows[max]); stringgrid1.Rows[max].Assign(stringgrid1.Rows[stringgrid1.RowCount-1]); stringgrid1.RowCount := stringgrid1.RowCount -1; inc(k); end; end;

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 15.02.2008, 09:59 Оценка за ответ: 5 Комментарий оценки: Николай Владимирович! Спасибо, что помогаете мне! Очень ценю ваши советы!Спасибо за всё!

Отвечает: Drbear Здравствуйте, Cholito! В дополнение предлагаю такую связку (в приложении). На форме StringGrid, кнопка и CheckBox. Приложение: procedure SortGrid(sg: TStringGrid; Column: Integer; Mode: Boolean; Start: Integer = 0); var MinR, RId1, RId2, ColId: Integer; Temp1, Temp2: string; begin for RId1 := Start to sg.RowCount - 2 do begin Temp1 := GetLong(sg.Cells[Column , RId1]); MinR:= RId1; for RId2 := RId1 + 1 to sg.RowCount - 1 do begin Temp2 := GetLong(sg.Cells[Column, RId2]); if (Mode = True) then if Temp2 < Temp1 then begin Temp1 := GetLong(sg.Cells[Column, RId2]); MinR := RId2; end; if (Mode = False) then if Temp2 > Temp1 then begin Temp1 := GetLong(sg.Cells[Column, RId2]); MinR := RId2; end; end; for ColId := 1 to SG.ColCount - 1 do begin Temp2 := sg.Cells[ColId, RId1]; sg.Cells[ColId, RId1] := sg.Cells[ColId, MinR]; sg.Cells[ColId, MinR] := Temp2; end; end; end; function GetLong(s: String): String; begin Result := TriM(GetLongHint(s)); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin // что сортируем; по какой колонке; возр/убыв; строка SortGrid(StringGrid1, StringGrid1.Col, CheckBox1.Checked, 1); end;

Ответ отправил: Drbear (статус: 7-ой класс) Ответ отправлен: 15.02.2008, 11:30 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!В данной задаче мне конечно checkbox не нужен. (но в будущем думаю может пригодиться)я ваш код немного переделала под свои нужды. Все работает!Спасибо!!!!

Вопрос № 123.233

Здрасти всем! У меня несложненький вопрос но всёже: Нужно чтобы положение Edita1 было на форме посередине(!даже при изменении размера!) и Button1 тоже всегда был под Edit'oм Как это реализовать в коде

Отправлен: 15.02.2008, 11:15 Вопрос задал: Мокроусов Алексей Сергеевич (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Selya Здравствуйте, Мокроусов Алексей Сергеевич! Надо использовать событие формы OnResize. И в нём вычислять положение Edita на форме: Edit1.Left := (Form1.Width div 2 ) - (Edit1.Width div 2)

Ответ отправил: Selya (статус: 8-ой класс) Ответ отправлен: 15.02.2008, 11:28 Оценка за ответ: 5 Комментарий оценки: Спс это больше всего подходит мне

Отвечает: BlackRaider Здравствуйте, Мокроусов Алексей Сергеевич! для этого напишите в обработчике формы OnResize вот это: procedure TForm1.FormResize(Sender: TObject); begin edit1.Top:=trunc((form1.ClientHeight-edit1.Height)/2); edit1.left:=trunc((form1.ClientWidth-edit1.Width)/2); button1.Top:=edit1.Top+edit1.Height; button1.left:=trunc((form1.ClientWidth-button1.Width)/2); end; Если надо учитывать высоту и Edit'a и кнопки (т.е. выставляя как бы середину блока Edit+button) то первую строчку поменяйте на: edit1.Top:=trunc((form1.ClientHeight-edit1.Height-button1.Height)/2);

Ответ отправил: BlackRaider (статус: 3-ий класс) Ответ отправлен: 15.02.2008, 11:29 Оценка за ответ: 4 Комментарий оценки: спс тоже очень хороший вариант

Отвечает: Дегтярев Антон Александрович Здравствуйте, Мокроусов Алексей Сергеевич! У любого компонента есть св-во Left и Top. Для того чтобы компонент был ровно посередине формы используйте следующую конструкцию Edit1.Left := (form1.ClientWidth div 2)- (Edit1.Width div 2); // form1.ClientWidth - это ширина рабочего поля у формы. Edit1.Top := (form1.ClientHeight div 2)- (Edit1.Top div 2); а для кнопки Button1.Top := (form1.ClientHeight div 2) - (Edit1.Top div 2) + //Число на которое необходимо отступить от верхней границы Edit1 (можно написать Edit1.Height); Напишите этот код в событии на форме в OnCanResize --------- И дым отечества нам сладок и приятен

Ответ отправил: Дегтярев Антон Александрович (статус: 4-ый класс) Ответ отправлен: 15.02.2008, 11:33 Оценка за ответ: 5

Отвечает: Примак Руслан Николаевич Здравствуйте, Мокроусов Алексей Сергеевич! Все гораздо проще. Для этого в свойствах большинства визуальных компонентов есть т.н. якоря - Anchors. Это опции привязки контрола к границам формы или другого компонента, на котором расположен данных контрол. Вот список комбинаций и получаемый результат: 1) akLeft = True; akRight = False - Компонент привязывается к левой стороне и при изменении размеров формы контейнера не изменяет дистанцию от контрола к левой кгранице контейнера 2) akLeft = False; akRight = True - Тоже, что и для предыдущего пункта, только по отношению к правой стороне 3) akLeft = True; akRight = True - компонент привязывается к правой и левой стороне и при изменении размера формы контейнера - контрол изменяет свою ширину, чтобы оставаться на однаковом расстоянии от левой и правой сторон; 4) akLeft = False; akRight = False - компонент ни привязан ни к левой, ни к правой сторонам - контрол сохраняет пропорции отношения к сторонам формы контейнера, не изменяя своей ширины. Т.е. если растояние до левой границы было x1, x2 - до правой стороны, то при изменении ширины формы-контейнера на коефф-т k, новые значения расстояний будут x1*k, x2*k Для вас необходим вариант №4. В дополнение, теже соотношения касаются и akTop и akBottom, только по отношению к верхней и нижней границам. Преимуществом данного метода является то, что слежение за размерами происходит на этапе отрисовки контрола, что позволяет снизить эффект мерцания при ресайзе формы.

Ответ отправил: Примак Руслан Николаевич (статус: 4-ый класс) Ответ отправлен: 15.02.2008, 12:51 Оценка за ответ: 3 Комментарий оценки: спс за расписку но это мне кажется все знают и я втомчисле

Вопрос № 123.236

Здравствуйте, уважаемые Эксперты! Очень надеюсь на Вашу помощь в следующем вопросе: необходимо определить минимальные системные требования программы к ОЗУ и процессору. Исходный код программы у меня есть. Возможно, есть какие-то программы, позволяющие построить графики использования ОЗУ программой? В общем, предлагайте любые идеи, любые программы - буду разбираться. Заранее благодарен за любой ответ!

Отправлен: 15.02.2008, 11:28 Вопрос задал: Николай Владимирович / Н.В. (статус: Профессионал) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Marked One Здравствуйте, Николай Владимирович / Н.В.! В диспетчере задач можно посмотреть сколько программа вместе со всеми потоками и т.д. занимает места в ОЗУ компьютера.(Найдите на вкладке процессы процесс Вашей программы и в столбце "Память" будет кол-во занимаемой памяти в килобайтах). Других способов не знаю:(. Удачи!

Ответ отправил: Marked One (статус: 5-ый класс) Ответ отправлен: 15.02.2008, 11:48 Оценка за ответ: 3 Комментарий оценки: Вы думаете, что эксперт со статусом "Специалист" не умеет пользоваться Диспетчером задач и не пытался в нем наблюдать за работой программы? Конечно, я смотрел в нем! К сожалению, данный метод мне не подходит... PS: сначала хотел за такой ответ вообще кол поставить!

Отвечает: Sergiu !!! Здравствуйте, Николай Владимирович / Н.В.! Дело в том, что это зависит и от системы (95, 98, xp, vista) Если Вы знаете аппетиты Вашей программы (ram+virtual memory) , то примерно можно рассчитать ее минимальные требования… Я думаю, что они будут такие же, как и на саму операционную систему +- пара мб. Исправлено 17 грамматических ошибок. Устное предупреждение эксперту. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 15.02.2008, 22:26

Ответ отправил: Sergiu (статус: 1-ый класс) Ответ отправлен: 15.02.2008, 18:10 Оценка за ответ: 3 Комментарий оценки: Вопрос в том и заключается как определить

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