Гм... Могу дать функцию ИЗ С++(!!), которая это делает для windows, а переделывать под Pascal ее уже вам.