zebest, тут 14 версия, но она такая же простая. Собирается даже в XE3 (только в ней string уже unicode, т.е. widestring, соответственно, PChar() по дефолту PWideChar(), а многие WinAPI остались AnsiString и PAnsiChar()), если подправить один вызов WinAPI.