1.安装TortoiseSVN,本来我以为explorer要重启,右键才生效,不过explorer没有重启,右键还是出来了,不知道是怎么做的?
2.在运行某些命令比如dcc32,返回的结果和DOS下显示的结果不一致
function ExecCmd(cmd:string):string;
var
si:TStartupInfo;
pi:TProcessInformation;
sa:TSecurityAttributes;
hw,hr,dw,exitcode:Cardinal;
Buf:array[0..1024] of Char;
hs:THandleStream;
begin
Result:='';
SetLastError(0);
cmd:=Trim(cmd);
if IsDosCmd(BeforeA(cmd,' ')) then cmd:='cmd /c "'+cmd+'"';
FillChar(si,SizeOf(si),0);
FillChar(buf,SizeOf(Buf),0);
FillChar(sa,SizeOf(sa),0);
with sa do
begin
nLength:=Sizeof(sa);
bInheritHandle:=true
end;
Win32Check(CreatePipe(hr,hw,@sa,0));
Win32Check(SetHandleInformation(hr,HANDLE_FLAG_INHERIT,0));
with si do
begin
dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
wShowWindow:=SW_HIDE;
hStdOutput:=hw;
hStdError:=hw;
end;
CreateProcess(nil,PChar(cmd),nil,nil,true,CREATE_NO_WINDOW,nil,nil,si,pi);
if GetLastError <>0 then
begin
Re
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
