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

    +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
    implementation

 {$R Myexe.RES}

 procedure startexe(play : pchar);
 var
 h: THandle;
 begin
 h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
 FreeResource(h);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 start('myexefile');
 end;

    "Вот код запуска файла из ресурса..."
    "даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"

    Запостил: bugmenot, 21 Апреля 2011

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

    • ava Lure Of Chaos 21.04.2011 23:00 # 0

      да, найдем окно, освободим, а запустится он сам
      Ответить

    • ava guest 22.04.2011 08:33 # 0

      Я ничего ни понял... Как это работает?
      Ответить

      • ava JeremyW 22.04.2011 11:10 # +1

        WinExec('start.exe',SW_SHOWNORMAL)
        а в остальном прекрасная маркиза - всё по*уям, всё по*уям...
        Ответить

        • ava bugmenot 22.04.2011 13:28 # 0

          причём код возврата винэкзека может способствовать успешному нахождению ресурса
          Ответить

          • ava JeremyW 22.04.2011 13:57 # 0

            только смысла в этом нет
            Ответить

            • ava bugmenot 22.04.2011 14:13 # 0

              да ладно
              без этого был бы не брейнфак, а обычный унылый нубокод
              Ответить

    • ava JeremyW 22.04.2011 11:09 # 0

      железобетонный феерический долбоеб...
      Ответить

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