简单的delphi代码,请老鸟给菜鸟指正!
我的代码,大家帮看下哪里出错了!我是新手请各位高人指教!
var
zbwnd,qtwnd:=hwnd;
st:string;
st:='hao123--我的上网主页 - Microsoft Internet Explorer';
zbwnd:=findwindow(nil,pchare(st));
qtwnd:=GetForegroundWindow;
if zbwnd <> qtwnd then
showmessage('没有装备’);
else
showmessage('装备找到’);
end;
qtwnd:=hwnd; ..
pchare ..
'没有装备’..
if zbwnd <> qtwnd then
showmessage('没有装备’)
else
showmessage('装备找到’);
你的begin哪去了?
else前不能有分号。。。
楼主看一些基础教程没?
没begin,定义变量也错了。。
相关问答:
已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我用 socket 接收到NO ,接收到一个NO就通过Carthread:=TCarthread.create(NO) ;创建一个线程,
是不是接收到多个NO,就会创建多个线程呢?
如果这样的话我接收到NO为EE,于是创建一个线程,过了一会SOCKET又 ......