Code: procedure TForm1.FormCreate(Sender: TObject); var reg: TRegistry; i: integer; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('HKCU/Software/Microsoft/winmine',false); for i := 1 to 3 do begin if reg.ReadString('Time'+ IntToStr(i)) <> '' then begin Edit1.Text:=(reg.ReadString('Time'+ IntToStr(1)); Edit2.Text:=(reg.ReadString('Time'+ IntToStr(2)); Edit3.Text:=(reg.ReadString('Time'+ IntToStr(3)); end; end; reg.CloseKey; reg.free; end; Может кто подскажет нубу, что не так ? :Ъ
invlose, стукни мне сам =\ 99 999 + 1 + (328 723 * 12 873 621 * 0 * (126 712 + 1)) - 2 = 99 998 А он молчит суке...непраивльный
Isis Ansi юзать... что, где не так? давай кусок кода, разберем... Allbit что тебе надо??? что за игры?? кусок кода и "что-то тут не так??"
Allbit > Вместо этого Code: reg.OpenKey('HKCU/Software/Microsoft/winmine',false); делай без HKCU: Code: reg.OpenKey('Software/Microsoft/winmine',false);
как сменить иконку стороннего приложения? ничего вразумительного кроме этого не нашел. есть еще какие-то варианты?
это 1. http://forum.vingrad.ru/topic-87129/hl/extracticon/index.html это 2. http://discuss.joelonsoftware.com/default.asp?joel.3.8105.4
Копипаст: Code: var h: HWND; begin h := findwindow(nil, 'Безымянный - Блокнот'); if h <> 0 then SetWindowPos(h, HWND_BOTTOM, 1, 1, 20, 20, swp_nosize); end; Опять находим блокнот. Его дескриптор помещаем в переменную класса HWND[С английского Handle Window - дескриптор окна]. Далее используем функцию SetWindowPos для задания позиции. В качестве параметров нужно указать: Дескриптор окна, которое хотим переместить Идентификатор окна, которое предшествует перемещаемому окну в Z-последовательности. Z-последовательность это порядок, в котором формировались окна. Данный параметр указывает с какого именно окна необходимо начинать писк. В качестве значений может принимать либо дескриптор какого-либо окна в системе, либо одно из нижеследующих значений: HWND_BOTTOM Начало Z-последовательности HWND_NOTOPMOST Первое окно которое располагается не "поверх все окон" HWND_TOP Вершина Z-последовательности HWND_TOPMOST Первое окно которое располагается "поверх все окон" Позиция окна по горизонтали Позиция окна по вертикали Ширина окна Высота окна Спецификаторы изменения позиции и размеров окна[флаги]. Для задания значения можно комбинировать следующие константы SWP_DRAWFRAME Прорисовка фрейма вокруг окна. SWP_FRAMECHANGED Посылает сообщение WM_NCCALCSIZE окну, даже если размер его не был изменён. Если этот флаг не указан, сообщение WM_NCCALCSIZE будет посылаться, только после изменения размеров окна. SWP_HIDEWINDOW Скрывает окно. SWP_NOACTIVATE Не активизирует окно. Если же этот флаг не будет поставлен, окно активизируется и будет перемещено поверх всех окон. А вот встанет ли окно даже выше тех окон, которым задано HWND_TOPMOST или нет зависит от параметра hWndInsertAfter. SWP_NOCOPYBITS Если этот спецификатор не будет установлен, тогда содержимое клиентской области окна будет скопировано и вставлено во вновь отобразившееся окно после его перемещения. SWP_NOMOVE Сообщает, что нужно игнорировать параметры задания позиции окну. SWP_NOOWNERZORDER Сообщает, что не следует изменять позицию окна владельца в Z-последовательности. SWP_NOREDRAW Не перерисовывает окно. SWP_NOREPOSITION Такой же как и SWP_NOOWNERZORDER. SWP_NOSENDCHANGING Мешает окну получить сообщение WM_WINDOWPOSCHANGING. SWP_NOSIZE Сообщает, что нужно игнорировать параметры задания размеров окну. SWP_NOZORDER Сохраняет текущее положение в Z-последовательности (игнорирует сообщение hWndInsertAfter parameter). SWP_SHOWWINDOW Отображает окно.
