[ 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. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5
    Хукнуть самому до запуска игры. Есть несколько вариантов - от простой длл до собственного драйвера клавиатуры. В гугле инфы с примерами достаточно. Вот только драйвер на делфи не напишешь.
    Помниться еще МС-рем что-то подобное писал, про драйвер нулевого кольца, сам драйвер был на си, а прогу он на делфи в пример приводил.
     
  2. yarbabin

    yarbabin HACKIN YO KUT

    Joined:
    21 Nov 2007
    Messages:
    1,663
    Likes Received:
    916
    Reputations:
    363
    переменные из процедуры можно вызвать после самой процедуры?
     
    _________________________
  3. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Смотря где объявить...
     
  4. yarbabin

    yarbabin HACKIN YO KUT

    Joined:
    21 Nov 2007
    Messages:
    1,663
    Likes Received:
    916
    Reputations:
    363
    в самой процедуре
     
    _________________________
  5. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Всё, что объявлено после var (в процедуре) доступно только процедуре.
     
    2 people like this.
  6. mironich:

    mironich: New Member

    Joined:
    7 Oct 2011
    Messages:
    25
    Likes Received:
    2
    Reputations:
    0
    При отправке пост запроса, на винсок (1 версия), делфи ХЕ 2, он отправляется (сам запрос смотрю в сниффере), с пробелами тоесть P O S T, вот так, в чем мб причина?
     
  7. mironich:

    mironich: New Member

    Joined:
    7 Oct 2011
    Messages:
    25
    Likes Received:
    2
    Reputations:
    0
    Проблемы надо решать а не лепить костыли,то что в Д7 нет такой проблемы я и сам знаю, дело в типе строк но хз какую передать правильно, пробовал и Ansistring и Pchar/
     
  8. mironich:

    mironich: New Member

    Joined:
    7 Oct 2011
    Messages:
    25
    Likes Received:
    2
    Reputations:
    0
    Да читал я про строки...
    Не раз есче раз 25 прочитаю т.к пока толком не дошло :)
    В общем у меня заголовок начинался с константы которая была string, а я менял постоянно тип другой переменной.
    Поставил константе тип AsiString Все норм пошло.
     
  9. DOLLY

    DOLLY New Member

    Joined:
    28 Sep 2011
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    Как узнать букву флешки ?
    которая подключилась или уже есть в системе.
     
  10. BigBear

    BigBear Escrow Service
    Staff Member Гарант - Escrow Service

    Joined:
    4 Dec 2008
    Messages:
    1,801
    Likes Received:
    920
    Reputations:
    862
    Code:
    if DirectoryExists('F:\') then
    
    Uslovie1
    
    else
    
    Uslovie2
     
    _________________________
  11. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    тро ло ло

    DOLLY, если нужно отследить подключение флэш, то обрабатывай сообщение WM_DEVICECHANGE, если просто список подключенных съемных дисков, то GetDriveType и GetLogicalDrives в помощь
     
  12. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    как создать программу на Паскале?

    Среди натуральных чисел,какие без остачи делятся на 99 и имеют суму цифр 27,найти найменшое
     
  13. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    Code:
    program s_27;
    
    function SummaCifr(n:integer):byte;
    var s,x:integer;
    begin
      s:=0;
      x:=n;
      while x>0 do begin
        s:=s+(x mod 10);
        x:=x div 10;
      end;
      SummaCifr:=s;
    end;
    
    var i,k:integer;
    begin
      i:=2;
      k:=99;
      while SummaCifr(k)<>27 do
      begin
        k:=i*99;
        inc(i);
      end;
      writeln(k);
      readln;
    end.
    
    
     
  14. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    а как составить программу на том же паскале,

    что найдет все возможные пары чисел А и В за входными данными Х и У. такие ,что А+В ,А*В. А,В,Х,У - целые числа,не больше по модулю 30000
     
  15. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    и с чего начать учить паскаль????
    кто что посоветует,а то хочется научится писать на паскале!
     
  16. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    я нашел учебник С.А.Немюгин Turbo Pascal год 2000

    так что вы можете сказать по поводу написания программы??
    как можно такое сделать?
     
  17. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    442
    Reputations:
    288
    паскаль можно выучить юзая гугл.
     
  18. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    а как составить программу на паскале,!?
    что найдет все возможные пары чисел А и В за входными данными Х и У. такие ,что А+В ,А*В. А,В,Х,У - целые числа,не больше по модулю 30000
     
  19. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    ты какое-то условие пропустил
    А и Б у тебя никак на X и Y не завязаны
     
  20. ITdocer

    ITdocer New Member

    Joined:
    23 Aug 2011
    Messages:
    80
    Likes Received:
    0
    Reputations:
    -5
    действительность,извините вот так в подлиннике!

    что найдет все возможные пары чисел А и В за входными данными Х и У. такие ,что А+В=X ,А*В=Y. А,В,Х,У - целые числа,не больше по модулю 30000
     
Thread Status:
Not open for further replies.