1. Список говнокодов пользователя Dr_Stertor

    Всего: 12

  2. Pascal / Говнокод #21962

    0

    1. 1
    Знаете ли Вы, что в FreePascal блоки try..finally/except не работают в контексте DLL?

    Dr_Stertor, 10 Января 2017

    Комментарии (129)
  3. Куча / Говнокод #21950

    −1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Интереса ради установил пятый крестобилдер (борланд) -  что сказать?!
    Первый раз в жизни пожалел, что не знаю сей. 
    Приятный, ненавязчиво-дружелюбный и очень удобный интерфейс, вкупе с аскетичной подсветкой и автодополнением.
    Эта IDE-само совершенство, для настоящих профи. Среда словно бы просит начать в ней работать.
    Стыдись, майкрософт!..

    Добавить нечего.

    Dr_Stertor, 06 Января 2017

    Комментарии (44)
  4. Куча / Говнокод #21904

    0

    1. 1
    2. 2
    3. 3
    Как известно, негласные правила общения на ГК подразумевают анонимность участников.
    Иногда этот принцип нарушается, - но "нарушители", как правило, залетные гости, которые долго не задерживаются, и молчуны. 
    Очень интересно, какими Вы себе друг друга представляете.

    Начну, пожалуй, я.

    1024--.
    Рост - около 180 см. Возраст < 30. Цвет волос неизвестен, но могу предположить, что он брюнет. Цвет глаз - серо-зеленые.

    Борманд.
    Рост средний, 35-40 лет, темноволосый. Цвет глаз: - карие, либо изменчивый цвет.

    Инканус-грэй.
    Кареглазый брюнет, примерно, сорока лет.

    Баян.
    Высокий блондин. Возраст неизвестен, но я предполагаю, что ему около 28 лет.
    Цвет глаз:иссиня-зеленые.

    Dr_Stertor, 26 Декабря 2016

    Комментарии (65)
  5. Pascal / Говнокод #21895

    −106

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    procedure TToolFrm.RemIconBtnClick(Sender: TObject);
    function GetSelectedDrive:string;
    var
      S:string;
    begin
      Result:='';
      S:=DrView.Drive;
      if S <> '' then
      Result:=S+':\';
    end;
    
    var
      path:string;
      ID:Integer;
      VolumeName:string;
      VolumeNameSize,
      VolumeSerial,
      MaxComponentsLen,
      FileSystemFlags:DWORD;
    begin
    
      Path:=GetSelectedDrive;
      if Path='' then
      begin
        MessageBox(handle,PChar('Выберите диск в списке дисков'), PChar(''), 48);
        Exit;
      end;
    
      Path:=IncludeTrailingPathDelimiter(Path);
      SetLength(VolumeName,200);
      VolumeNameSize:=200;
      if not GetVolumeInformation(PChar(Path),PChar(VolumeName),VolumeNameSize,@VolumeSerial,MaxComponentsLen,FileSystemFlags,nil,0) then
      begin
        MessageBox(handle,PChar(Format('Диск %s недоступен или повреждён.',[Path])), PChar(''), 48);
        Exit;
      end;
      if (not DeleteFile(PChar(Path+'#Icon#'))) or (not DeleteFile(PChar(Path+'Autorun.inf'))) then
      Messagebox(Handle, PChar('Значок не найден'), PChar(''), 0)
      else
      begin
        SetVolumeLabel(PChar(Path),nil);
        SetVolumeLabel(PChar(Path), PChar(VolumeName));
        Messagebox(Handle, PChar('Значок удален'), PChar(''), 0)
      end;
    end;

    Кто скажет для чего вызывается SetVolumeLabel, тому ничего.

    Dr_Stertor, 24 Декабря 2016

    Комментарии (3)
  6. Assembler / Говнокод #21808

    −108

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    [code]
    // межстрочный асм в делфи
    procedure TForm1.Button1Click(Sender: TObject);
    var
      s:string;
    asm
      jmp @code
    @str: db 'Hello, world!', 0
    @code:
      xor ecx, ecx
      xor ebx, ebx
     mov ecx, 0
    @start:
      mov ebx, offset @str
      push 0
      push ebx
      push ebx
      push 0
      call MessageBox
      cmp ecx, 2 
      jne @start
    end;
    [/code]

    Осваиваю межстрочный ассемблер.
    Странно, код зацикливается... Что я делаю не так?

    Dr_Stertor, 09 Декабря 2016

    Комментарии (33)
  7. Pascal / Говнокод #21803

    −108

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    program Project1;
    
    uses
      windows,
      Messages;
    
    function EnumWindowsWnd(h: hwnd): BOOL; stdcall;
    var
     rect:TRect;
     index:Integer;
    begin
     if not IsWindowVisible(h) then
      begin
       Result:=true;
       exit;
      end; 
    
     //Получаю габариты найденного окна
     GetWindowRect(h,rect);
    
     //Генерирую случайное число
     index:=random(2);
    
     if index=0 then
      begin
       //Если оно 0, то увеличиваю...
       rect.Top:=rect.Top+3;
       rect.Left:=rect.Left+3;
      end
     else
      begin
       //Иначе уменьшаю...
       rect.Top:=rect.Top-3;
       rect.Left:=rect.Left-3;
      end;
    
     MoveWindow(h,rect.Left,rect.Top,rect.Right-rect.Left,rect.Bottom-rect.Top,true);
     Result:=true;
    end;
    
    var
     h:THandle;
    begin
     //Запускаю цикл
     while true do
      begin
       //Запускаю перечисление всех окон
       EnumWindows(@EnumWindowsWnd,0);
    
       //Делаю задержку в 100 мс.
       h:=CreateEvent(nil, true, false, '');
       WaitForSingleObject(h, 1000);
       CloseHandle(h);
      end;
    end.

    Код не мой, скачано с фан-сайта борланд.

    P.S.: капча сейчас - 5555.

    Dr_Stertor, 08 Декабря 2016

    Комментарии (8)
  8. Pascal / Говнокод #21780

    −109

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Если свойство должно только читаться или записываться, в его описании может присутствовать соответствующий метод:
    
        type
        TAnObject = class(TObject)
        property AProperty: TSomeType read GetValue; 
        end;

    В этом примере вне объекта значение свойства можно лишь прочитать; попытка присвоить свойству AProperty значение вызовет ошибку компиляции.
    Для присвоения свойству значения по умолчанию используется ключевое слово default:
    [code] property Visible: boolean read FVisible write SetVisible default True;
    Это означает, что при запуске программы свойство будет установлено компилятором в True

    {Из учебника для долбоёбов, под авторством ***}

    Dr_Stertor, 05 Декабря 2016

    Комментарии (12)
  9. ActionScript / Говнокод #21729

    −113

    1. 1
    http://www.meme-generator.de/media/created/ecpemz.jpg

    -

    Dr_Stertor, 26 Ноября 2016

    Комментарии (8)
  10. Куча / Говнокод #21644

    −108

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    Прошу наделить меня админскими полномочиями. 
    Обязуюсь со всей строгостью и ответственностью выполнять обязанности модератора.
    Готов открыть паспортные данные, если это необходимо. 
    
    Сил больше нет созерцать, как спамеры портят сайт, превращая его в нечитаемую помойку.
    Давно уже нет интересных постов, многие завсегдатаи ушли, потому, что никому не охота 
    находиться среди багров и непотребщины.
    Обиднее всего тот факт, что участники не только не игнорируют, но и наоборот, поощряют троллей...
    Пора положить этому конец.
    
    Я забыл пароль от учётки Stertor (http://govnokod.ru/user/5934), как и от мыла. 
    Если это возможно, прошу скинуть мне пароль на keepyourchinup@yandex.ru.
    Этот же адрес можно использовать для связи.

    Dr_Stertor, 05 Ноября 2016

    Комментарии (41)
  11. Куча / Говнокод #21562

    −235

    1. 1
    2. 2
    3. 3
    Хватит сквернословить, мать вашу, XВАТИТ!!!
    Хватит флудить, троллить и спамить! Сайт неумолимо превращается в помойку. 
    Только что какой-то уёбок опять уронил сервер.

    Dr_Stertor, 25 Октября 2016

    Комментарии (10)