如题,不知道是什么原因,高手请指教.
解决方案 »
- fastreport打印的内容挺多,一页放不下。
- VC与Delphi中的数组问题及VC写的DLL与Delphi兼容性问题
- 有关使用ADO连接SQL SERVER2000数据库的问题?
- DBGirdEh如何显示access的备注类型
- 软硬件结合采集数据设计问题 欢迎有设计经验的人发表见解?
- 请教关于修改用户密码的API
- 这样访问数据库错误在哪,急呀,救命!
- 消息能传递 一个record(记录)吗?怎么做?
- 哪位大峡用过Valuelisteditor 控件,给每行输入值后如何检验输入的是否合法?在线等待,分不够可以加
- 請大家談談,視圖.存儲過程有何區別?
- Access2000数据库出错问题?
- 请问如何用IdIPWatch监控远程客户端是否在线?
var computername:pchar;
w:DWORD;
begin
w:=30;
GetComputerName(computername,w);
if computername='444'then
form.show;
end;
var
ComputerName: array[0..127] of Char;
w:DWORD;
begin
w:=SizeOf(Computername);
GetComputerName(computername,w);
if computername='444'then
form.show;
end;
var
computername:pchar;
w:DWORD;
begin w:=128;
computername := AllocMem(w);
GetComputerName(computername,w);
ShowMessage(ComputerName);
FreeMem(computername,w);
...end;
W: DWORD;
begin
GetMem(Computername, MAX_COMPUTERNAME_LENGTH);
GetComputerName(Computername, W);
Edit1.Text := Computername;
FreeMem(Computername);
end;函数声明为:
GetComputerName(lpBuffer: PAnsiChar; var nSize: Cardinal);
lpBuffer:为内存缓冲区,要动态分配内存。
W:指向的值应该大于等于MAX_COMPUTERNAME_LENGTH+1