Code: |
function GetWindowsFolder:string; {©Drkb v.3, ®Vit (Vitaly Nevzorov) }
var p:PChar; begin GetMem(p, MAX_PATH); result:=''; if GetWindowsDirectory(p, MAX_PATH)>0 then result:=string(p); FreeMem(p); end; |
Code: |
function GetWindowsFolder:string; {©Drkb v.3, ®Vit (Vitaly Nevzorov) }
var p:PChar; begin GetMem(p, MAX_PATH); result:=''; if GetWindowsDirectory(p, MAX_PATH)>0 then result:=string(p); FreeMem(p); end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!