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

    Всего: 2

  2. JavaScript / Говнокод #3560

    +179

    1. 1
    ... else document.write("Ваш браузер не поддерживает JavaScript<br>");

    боян с БАШа, прикололо

    ganja_boy, 24 Июня 2010

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

  3. Pascal / Говнокод #3298

    +103

    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
    var
  resStream: TResourceStream;
  memStream: TMemoryStream;
  DLL: THandle;
  tempFile: string;

  excel: variant;
  wbook: OLEVariant;
begin
  if not IsOLEObjectInstalled('Excel.Application') then
    begin
      MessageBox(Handle, PChar('Для открытия фаблонов форм необходимо установить'+#13+
                               'Microsoft Excel'), 'Ошибка загрузки формы.', MB_ICONINFORMATION);
      exit
    end;
  tempFile := extractFilePath(paramStr(0))+'DATA\PLUGINS\$temp$.xxx';
  if ListView1.Selected = nil then exit;
  if not FileExists(ListView1.Selected.SubItems.Strings[2]) then exit;
  DLL := loadLibrary(PChar(ListView1.Selected.SubItems.Strings[2]));
  if DLL = INVALID_HANDLE_VALUE then begin
                                       freeLibrary(DLL);
                                       exit
                                     end;
  resStream := TResourceStream.Create(DLL, 'FORMA', MakeIntResource(10));
  memStream := TMemoryStream.Create;
  memStream.LoadFromStream(resStream);
  if fileExists(tempFile) then deleteFile(tempFile);
  memStream.SaveToFile(tempFile);
  setFileAttributes(PChar(tempFile), FILE_ATTRIBUTE_HIDDEN or
                                     FILE_ATTRIBUTE_TEMPORARY);
  memStream.Free;
  resStream.Free;
  freeLibrary(DLL);

  excel := createOLEObject('Excel.Application');
  excel.Visible := TRUE;
  wbook := excel.Workbooks.Open(tempFile)
end;

    когда-то кому-то в дипломнике вот такое написал. с понтом - подключаем плагины и они в эксель выводят программно новые виды форм. хотя экселевский файл тупо вкомпилен в ресурс библиотеки

    ganja_boy, 24 Мая 2010

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