Школоло / Говнокод #6442 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 bugmenot, (Updated )

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

    • ava JeremyW # Ссылка на оригинал 0 ⇈

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

      • ava bugmenot # Ссылка на оригинал 0 ⇈

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓