2013 年 1月 24 日随笔档案 - kiny

2013年1月24日

摘要： 1.获取系统目录procedure TForm1.btn1Click(Sender: TObject);var adr:array[0..MAX_PATH] of Char;begin GetSystemDirectory(adr,MAX_PATH); ShowMessage(adr);end;2.获取windows目录procedure TForm1.btn1Click(Sender: TObject);var adr:array[0..MAX_PATH] of Char;begin GetWindowsDirectory(adr,MAX_PATH); ShowMessage(ad... 阅读全文

posted @ 2013-01-24 16:16 kiny 阅读(536) 评论(0) 推荐(0) 编辑