隔了很長(zhǎng)時(shí)間沒(méi)有碰Delphi,就連最最基本都忘光了!看來(lái)“溫故而知新”、“學(xué)如逆水行舟,不進(jìn)則退”是有絕對(duì)的道理!
就這獲取路徑的東西,都折騰了很久,是自己忘光了?還是自己大意呢?
不是忘記使用USE SHELLAPI,幾時(shí)缺少字母,哎。。。。瞎折騰
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;