生成SESSIONID
uses SynCommons
procedure TForm1.Button1Click(Sender: TObject);
var
i: Cardinal;
begin
i := abs(Random32*PPtrInt(self)^);
end;
标签：ppt post obj pos nbsp orm cli ssi proc
生成SESSIONID
uses SynCommons
procedure TForm1.Button1Click(Sender: TObject);
var
i: Cardinal;
begin
i := abs(Random32*PPtrInt(self)^);
end;
标签：ppt post obj pos nbsp orm cli ssi proc
原文地址：http://www.cnblogs.com/hnxxcxg/p/8059300.html
