如题~~~给出源代码。今天节分
解决方案 »
- 怎样显示父类窗体上的控件?
- 关于web services的问题,请各位高手不吝赐教
- 怎么判断一个月有多少天???——————在线等待!!!!急急急啊!!!!!
- 欲做兼职,有意者请与我联系~~
- 谁给我开个多维动态数组啊?
- 这个怎么搞?
- 本人下载了一个unit,但是却是read-only的状态,不是insert,请问如何解决?
- Delphi 打印的超困惑问题!
- 少林菜鸟:有没有针对学习delphi的pascal书籍下载,谢谢,34加上了!
- 用 Delphi 开发过项目的人士,这边请!!!
- 本站持续开通了编程书藉下载并且新增大软件下载及电影下载,有兴趣的进来看看
- 我将一个VCL转换为一个ActiveX时有一个Images属性不见了
procedure TForm1.Button1Click(Sender: TObject);
var
p, p1 : PChar;
begin
Memo1.Lines.Clear;
Memo1.WordWrap := false;
{$IFDEF WIN32}
p := GetEnvironmentStrings;
p1 := p;
{$ELSE}
p := GetDOSEnvironment;
{$ENDIF}
while p^ <> #0 do begin
Memo1.Lines.Add(StrPas(p));
Inc(p, lstrlen(p) + 1);
end;
{$IFDEF WIN32}
FreeEnvironmentStrings(p1);
{$ENDIF}
end;