你的安装程序使用什么打包的,如果使用IS则可以设定BPl文件的安装路径
解决方案 »
- 如何调用其他事件过程
- DELPHI+SQL SERVER 2000的程序在没有SQL SERVER 的机器上有办法运行吗?
- 请问,怎么用DELPHI实现X25协议通信,非常急,请大家详细介绍一下,最好有组件
- 一个dbgrid显示问题
- 简单问题?请帮忙?
- 请问如何使用DELPHI调用ACD2000的文件?给50
- 谁有"源代码(Delphi篇)"的注册码,买了个D版的,没有注册码多谢谢谢谢
- 请问纳为知道那里有activeskin3.603的注册机
- 怎么做控件呀? 有没有可以下载的书?
- 请问怎样去掉向下箭头键和Tab键在DBGrid中的增加记录的功能?
- sender参数是用来干什么的?
- 求助!!!!
function GetEnvironmentVar(const Name: string; var Value: string; Expand: Boolean): Boolean;
var
R: DWORD;
begin
R := GetEnvironmentVariable(PChar(Name), nil, 0);
SetLength(Value, R);
R := GetEnvironmentVariable(PChar(Name), PChar(Value), R);
Result := R <> 0;
if not Result then
Value := ''
else
begin
SetLength(Value, R);
if Expand then ExpandEnvironmentVar(Value);
end;
end;function SetEnvironmentVar(const Name, Value: string): Boolean;
begin
Result := SetEnvironmentVariable(PChar(Name), PChar(Value));
end;
现对话框在GROUP NAME 中 输入c:\comm,按OK后返回选中C:\comm,按Insert File,然后
将文件选中....
记注给....