oleread.inc dosyasındaki GetInt4d functionunu buraya kopyalayabilirmisiniz