Function GetCurrentDir:UnicodeString; Var URuta:Unicodestring; long:longword; Begin GetCurrentDir:=''; long:=GetCurrentDirectoryW(0,nil); SetLength(URuta,long); if GetCurrentDirectoryW(long,PWideChar(URuta)) <> 0 then GetCurrentDir:=URuta; End;