隔了很長時間沒有碰Delphi,就連最最基本都忘光了!看來“溫故而知新”、“學(xué)如逆水行舟,不進則退”是有絕對的道理!
就這獲取路徑的東西,都折騰了很久,是自己忘光了?還是自己大意呢?
不是忘記使用USE SHELLAPI,幾時缺少字母,哎。。。。瞎折騰
use shellapi
procedure TForm1.Button1Click(Sender: TObject);
var
adr: array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH); //獲取SYSTEM路徑
//GetWindowsDirectory(adr,MAX_PATH); //獲取WINDOWSM路徑
ShowMessage(adr); //顯示C:\Windows\System32
end;