1. Pascal / Говнокод #7431

    +120

    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
    // Check if You need Administrator-level access to create a folder
try
  mkdir(SDirectory + '\~TEST');
except
  on E: exception do
  begin
    if E.message = 'File access denied' then
    begin
      MessageBox(self.Handle,
        'You need Administrator-level access to create this folder', '', MB_ICONERROR);
      exit;
    end;
  end;
end;
RmDir(SDirectory + '\~TEST');

    Мартышки плакали, кололись, но продолжали ронять UAC себе на лапки.

    Запостил: bugmenot, 03 Августа 2011

    Комментарии (3) RSS

    • ava Lure Of Chaos 03.08.2011 15:51 # +6

      как я ненавижу мессажбоксы....
      Ответить

    • ava Xom94ok 03.08.2011 22:00 # +6

      В контексте кода слово "кололись" приобретает иной смысл, отнюдь с кактусом не связанный.
      Ответить

    • ava guest 09.08.2011 22:44 # −2

      Вот долбаёбы... :(
      Ответить

    Добавить комментарий