//取得WIndows路径、系统路径<br>Function GetWindowsDir : String;<br>Var<br> sTmp : pChar;<br>Begin<br> GetMem(sTmp,255);<br> GetWindowsDirectory(sTmp, 255);<br> Result := sTmp;<br> FreeMem(sTmp);<br>End;<br><br>Function GetSystem32Dir : String;<br>Var<br> sTmp : pChar;<br>Begin<br> GetMem(sTmp,255);<br> GetSystemDirectory(sTmp, 255);<br> Result := sTmp;<br> FreeMem(sTmp);<br>End;