[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,325
    Likes Received:
    1,199
    Reputations:
    252
    Сделал парсер страницы...
    Но не понимает русской кодировки..
    Выводит в Utf-8...
    ЧТо делать? =)
     
  2. Allbit

    Allbit New Member

    Joined:
    19 May 2007
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    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;
    
    Может кто подскажет нубу, что не так ? :Ъ
     
  3. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,325
    Likes Received:
    1,199
    Reputations:
    252
    invlose, стукни мне сам =\
    99 999 + 1 + (328 723 * 12 873 621 * 0 * (126 712 + 1)) - 2 = 99 998
    А он молчит суке...непраивльный
     
  4. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,325
    Likes Received:
    1,199
    Reputations:
    252
    Сделал парсер страницы...
    Но не понимает русской кодировки..
    Выводит в Utf-8...
    ЧТо делать? =)
     
  5. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    Isis
    Ansi юзать...
    что, где не так? давай кусок кода, разберем...
    Allbit
    что тебе надо??? что за игры?? кусок кода и "что-то тут не так??" :mad:
     
  6. NetMan

    NetMan Elder - Старейшина

    Joined:
    9 Feb 2004
    Messages:
    121
    Likes Received:
    37
    Reputations:
    34
    Allbit > Вместо этого
    Code:
    reg.OpenKey('HKCU/Software/Microsoft/winmine',false);
    делай без HKCU:
    Code:
    reg.OpenKey('Software/Microsoft/winmine',false);
     
  7. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,249
    Likes Received:
    585
    Reputations:
    31
    как сменить иконку стороннего приложения? ничего вразумительного кроме этого не нашел. есть еще какие-то варианты?
     
  8. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    это 1.
    http://forum.vingrad.ru/topic-87129/hl/extracticon/index.html
    это 2.
    http://discuss.joelonsoftware.com/default.asp?joel.3.8105.4
     
  9. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Как поменять размер окна, зная её хэндл? (Например из фулл скрин зделать Window mode)
     
  10. infernal-team

    infernal-team Elder - Старейшина

    Joined:
    4 Jul 2007
    Messages:
    53
    Likes Received:
    17
    Reputations:
    -10
    КАк сделать переход на другую форму через буттон?
     
  11. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    FormN.Show или FormN.ShowModal, где N - номер формы
     
    #251 z01b, 19 Jul 2007
    Last edited: 19 Jul 2007
  12. NetMan

    NetMan Elder - Старейшина

    Joined:
    9 Feb 2004
    Messages:
    121
    Likes Received:
    37
    Reputations:
    34
    z01b > см. SetWindowPos.
     
  13. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Пытался, но ничо не выходит, если не трудно, дай примерчик.
     
  14. Ch3ck

    Ch3ck Elder - Старейшина

    Joined:
    9 Jun 2006
    Messages:
    1,364
    Likes Received:
    1,134
    Reputations:
    430
    Копипаст:
    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 Отображает окно. 
    
     
    1 person likes this.
  15. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    cпс, +1
     
  16. infernal-team

    infernal-team Elder - Старейшина

    Joined:
    4 Jul 2007
    Messages:
    53
    Likes Received:
    17
    Reputations:
    -10
    спс, а как сделать чтобы когда открывалась форма номер 2, 1 форма закрывалась.
     
    1 person likes this.
  17. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Form2.show;
    Form1.Close;
     
  18. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    при закрытии главной формы приложение закроется, вроде как. Скрывать нужно
     
  19. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Точно, значит Form2.Show; Form1.Hide;
     
    #259 z01b, 19 Jul 2007
    Last edited: 6 Jul 2008
  20. БензиН

    БензиН Elder - Старейшина

    Joined:
    26 Nov 2006
    Messages:
    0
    Likes Received:
    2
    Reputations:
    0
    Неработает, выдает ошибку !!!
     
Loading...
Thread Status:
Not open for further replies.