function GetSystemDir: string;
begin
SetLength(Result, MAX_PATH);
GetSystemDirectory(PChar(Result), MAX_PATH);
Result := StrPas(PChar(Result))
end;
begin
SetLength(Result, MAX_PATH);
GetSystemDirectory(PChar(Result), MAX_PATH);
Result := StrPas(PChar(Result))
end;
解决方案 »
- SQL语句问题
- 为什么编译的时候一直报告找不到与 dcu 对应的 pas 文件。
- delphi8中如何使用bdp控件连接access数据库
- 在查询表时,可以给返回的数据加一个自动的编号吗?
- 请问在Delhi中的Filter是怎么一个执行过程呀?
- 在线急等-50分. 由主窗体中Timer时间生成的多个MDI子窗体,在程序中怎么挨个访问他们!
- 非典問題﹐使本人月余未來﹐散分慶祝重見csdn的大蝦﹗
- 请问我是DEPHI 6 + window 2000 + sql server , 在这样的环境下,我还需要安装ADO补丁吗
- 請問一下Delphi可否像VB那樣可同時打開多個窗口編譯不同的程序呢?
- RAD Studio XE5 Update 1发布
- 修改delphi源代码后,如何编译才能生效?
- 初學者關於midas問題
Result := StrPas(PChar(Result))