Function GetWinDir : string;
var
    s : string[255];
    p : pChar;
begin
    integer(p) := integer(@s) + 1;
    byte(s[0]) := windows.GetWindowsDirectory(p, SizeOf(s));
    Result := s;
end;
 
faq/delphi/system/get_windows_directory.txt · Последние изменения: 2007/01/10 16:11 От boogier
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki