То что он распаковывает часть кода в выделенный буфер, это понятно. Но вот дальше для адреса этого буфера вызывается GetModuleFileName, притом результат не проверяется. А еще дальше с этим самым результатом делается куча стандартных на вид действий - поиск точки, обрезание имени по найденной точке, "прицепливание" локализованного расширения... и это при том, что результата-то и нет, вместо него мусор %-/

Вот теперь я и думаю - то ли это еще одна провокация, попытка "закосить" под прогу на Delphi, то ли (прога действительно на Delphi) просто глюк, который не учитывает, что прога может сама работать со своим заголовком вообще и base_address'ом в частности?