[ 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. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,190
    Reputations:
    430
    http://drcheck.narod.ru/keygen.rar
     
  2. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    handle = FindWindow(nil,'Имя заголовка')
     
  3. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    не 7 а BDS 2007 :)
     
  4. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    FindWindow не то, тк не известен заголовок (его и надо поймать), а GetForegroundWindow() - возвращает чисто, ну сам тип HWND то LongWord...
    Мне надо при смене окна получать заголовок активного окна.
    Например, текущий блокнот, нодо получить его заголовок. как?
     
  5. Joker-jar

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

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    Ставь хук wh_shell, сможешь отлавливать смену активного окна и узнавать его заголовок
     
  6. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    по-подробнее, или линк если не в лом
     
  7. da_ff

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

    Joined:
    11 Jul 2006
    Messages:
    118
    Likes Received:
    22
    Reputations:
    26
    2 vladest
    int GetWindowText(HWND hWnd, LPTSTR lpString, int nMaxCount) - получение заголовка окна
    hWnd – хэндл окна
    lpString – буфер, куда будет помещен заголовок
    nMaxCount – максимальная длина буфера

    HWND GetForegroundWindow() получение хендла текущего окна

    если же будешь ставить хук то придется таскать с собой dll'ку
     
    #287 da_ff, 21 Jul 2007
    Last edited: 21 Jul 2007
  8. Allbit

    Allbit New Member

    Joined:
    19 May 2007
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    Как прочитать из реестра значение типа 0x00000042(66), а заодно и как изменить.. понятно, менять нужно только Decimal часть, но как это реализовать?...

    ...
     
  9. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    а какой реестр? может память процесса? Это что ты дал, токо адрес!
     
  10. NetMan

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

    Joined:
    9 Feb 2004
    Messages:
    121
    Likes Received:
    37
    Reputations:
    34
    Allbit > На сколько я понял это значение типа DWORD. Юзай ReadInteger.
     
  11. integrity

    integrity New Member

    Joined:
    21 Jul 2007
    Messages:
    16
    Likes Received:
    3
    Reputations:
    0
    Вот тебе кряк на слиле: http://slil.ru/24650549

    кряк от делфи, купленной в китае гдето 3 месяца назад :)
    клево они его назвали - D2007Tweaks v1.00 :DDD
     
  12. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    у меня версия 1.01 и там он не пашет (((
     
  13. Allbit

    Allbit New Member

    Joined:
    19 May 2007
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    NetMan поподробнее плз...
     
  14. KEZ

    KEZ Ненасытный школьник

    Joined:
    18 May 2005
    Messages:
    1,604
    Likes Received:
    754
    Reputations:
    397
    > Как прочитать из реестра значение типа 0x00000042(66), а заодно и как изменить.. понятно, менять нужно только Decimal часть, но как это реализовать?...

    читать из реестра RegQueryValue(/Ex)
    изменить RegSetValue
    decimal - десятичный, какая там decimal часть ... мм наркотики это плохо понятненько...
     
  15. xaker-boss

    xaker-boss Elder - Старейшина

    Joined:
    6 Mar 2007
    Messages:
    251
    Likes Received:
    49
    Reputations:
    -11
    Люди кто может написать такую программку, форма на ней одна кнопка когда запускаеш эту програму и проходит 1 минута выходит ошибка с надписью (Работает),
    но если дапустим я запустил программу и подождал ну гдето ** секунд и нажму на эту единственную кнопку чтобы таймер начел отчёт времини заново, ну и также когда дайдёт доконца выйдет ошибка...
    Плиз если кто напишет выложете исходник.
     
  16. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    http://webfile.ru/1475967
    пароль antichat.ru
     
    #296 z01b, 22 Jul 2007
    Last edited: 22 Jul 2007
    1 person likes this.
  17. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,190
    Reputations:
    430
    2vladest:

    Можно поставить таймер, вот и всё...
    Я решил проблему так:
    Code:
    var
      Form1: TForm1;
      s:pchar;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    getmem(s,100);
    getwindowtext(getforegroundwindow,s,100);
    form1.Caption := s;
    end;
    end.
    
     
    1 person likes this.
  18. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Буду призднателен, если ктото даст пример, как использовать idHTTP из IndyClients, а точьнее, мну нужно заполнить все формы любым текстом с сайта http://application.modelvilla.de/ и отправить.
     
    #298 z01b, 23 Jul 2007
    Last edited: 23 Jul 2007
  19. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    z01b, юзал бы поиск - уже нашел бы...
     
  20. Exile1985

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

    Joined:
    10 Aug 2006
    Messages:
    124
    Likes Received:
    35
    Reputations:
    1
    Бля народ возмите книги и учите, не задавайте тупых вопросов типа таких:

    или
    да ничего, баран ты вот что..., идиот


    неужели вам лучше сидеть на форуме и в наглую всех доставать своей тупостью, да еще и просить поискать за вас ответ в инете для решения ваших проблемм с написанием блокнота бля.

    лично я советую возмите вы книгу любую для начинающих по делфи, вот например Библию делфи автор фленов, на все эти детские вопросы там есть ответы, потратьте вы неделю, и вам интересно будет и народа доставать тупостью не будете, а вопросы задавайте уже когда ппц и книгу почитали и понять не смогли, или не нашли ответ на ваш вопрос в книге.
    А натакие вопросты в любой книге по делфи ответ есть стопудово.


    ты сам то понял что написал а? как ты думаешь если главная ворма будет закрыта, дочерняя останется жить??Если ты вырубишь винду у тебя эксплорер все равно работает и ты в инете седишь без винды да??

    РУКАМИ БЛЯ, САДИШЬСЯ ЗА КОМП, ЗАПУСКАЕШЬ ДЕЛФИ И ПИШИШЬ РУЧКАМИ.

    удали ее нах, вместе с панелью задачь.
     
    2 people like this.
Thread Status:
Not open for further replies.