Recent update: 2008-3-11
250 byte By
msdn at 2008-3-11
近日在网上Down了一个叫Raize Components 3.1.2 For Delphi的一套控件,用到了其中的GroupBar组件,在其创建的Group中点鼠标右键通过v`/`vAdd Itemv`/`v创建Group中的item,我想问一下,如何通过修改属性或者是通过编程使得当鼠标停留在Item上时鼠标变成v`/`v手形v`/`v,同时Item上的文字也加上下划线,而当鼠标离开的时候Item恢复原状(类似于WINXP中窗体上Groupbar组件上的Item那样),请高手指教!!!
SSI ļʱ
119 byte By
msdn at 2008-3-7
不知各位有没有用过“笨笨钟”,我觉得其中的鼠标穿透功能非常离奇,而且实用至极
一个半透明的窗口显示在桌面最上面,象个影子一样,完全不影响其它窗口的操作,如同这个窗口不存在一样,只是看到它的一个“影子”。
试问各位高手,如何实现这种功能
SSI ļʱ
300 byte By
msdn at 2008-2-21
这个结构在DELPHI中要怎么定义
typedef struct _DEVICE_MEDIA_INFO {
union {
struct {
LARGE_INTEGER Cylinders;
STORAGE_MEDIA_TYPE MediaType;
DWORD TracksPerCylinder;
DWORD SectorsPerTrack;
DWORD BytesPerSector;
DWORD NumberMediaSi...
300 byte By
msdn at 2007-11-19
procedure TFrm_DBBackupMain.SQLServerinitialization(
SQLServerName: TComboBox);
var
SQLServer: Variant;
ServerList: Variant;
i: integer;
begin
// 初始化SQLServer 名称
SQLServer := CreateOleObject(v`/`vSQLDMO.Applicationv`/`v);
ServerList:= SQLServer.ListAvailableSQLServers;
SQLServerName...
271 byte By
msdn at 2007-11-17
现在小弟想做一个网络版的文档管理系统,但不知道应该怎么下手,请哥哥们指点。。。。
系统的结构应该怎么样设计呢?我的想法是把文件放在服务器上,用户通过客户端软件登录后能够查看在自己权限内的文档,可以打开(客户端已经安装了相关的软件),并且可以新建文件来放到服务器上,并指定哪些用户可以看此文件...这样实现对企业内的文件的统一分类管理,方便有效。。。。
有做过这方面的大哥请帮帮忙。。。。。应该怎么设计最好。。我想用C/S结构...但文件不知道怎么处理... (有哥哥说用FTP,但我不会..,想通过C/S结构程序来实现,但不知道如何设计)
300 byte By
sy0051 at 2007-10-25
今天测试delphi动态库用BCB调用,但是无法从动态库向BCB返回字符串!
各位大哥帮忙看一下,
使用DELPHI编写DLL
library testdll;
uses
Windows;
//==== dll中函数定义
function fun1(var str1: PChar; str2: PChar): Integer; stdcall;
begin
MessageBox(0,PChar(str2),'messag',0);
str1:= '123456789';
Result:= 0;
end;
//====...
用这两种方法都能在游戏的聊天框中按下字母A,,但就是按F5,F6这样的键不行,不知道怎么回事??
if(testhong<strtoint(edit3.text)) then
begin
postmessage(Thwnd,WM_KEYDOWN,117,0);
postmessage(Thwnd,WM_KEYUP,117,0);
end
=========================
if(testlan<strtoint(edit3.text)) then
69 byte By
msdn at 2007-9-26
如果我运行了一个名为program.exe的文件,如何根据program.exe这个进程名来获取这个文件的路径?望各位高手赐教!谢谢!
234 byte By
msdn at 2007-9-26
我想请问各位高手:
如何判断一个edit里输入的是否为合法的数字,比如说55.5
我今天试了很多方法都不尽人意
我的意思是监测键盘看按下的键是否为数字或者是v`/`v.v`/`v,当然第一个输入到edit里的不能是v`/`v.v`/`v或者是‘0’,如果不是合法的,则不能输入到edit内,输入完毕后我想把edit里的内容插到SQL SERVER某一张表内,这张表的相应字段类型为money型,在数字向money转化的时候出现错误,想请教这个问题怎么解决!
55 byte By
msdn at 2007-9-26
用ShellExecute得到的是句柄之后还能做那些操作?
执行WinRar之后不知道它什么时候压缩完成
30 byte By
msdn at 2007-8-23
如何使程序不在任务栏上出现相应的图标
就象金山快译一样
9 byte By
msdn at 2007-8-23
初学,想了解.
49 byte By
msdn at 2007-8-23
我的程序要用串口,但串口有时被占用,我想在程序运行时强行关闭被其它程序打开的串口,该怎么做啊?
300 byte By
msdn at 2007-8-14
程序1:检测程序2是否运行,如果是,则发送消息CM_RESTOREPLAY
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
CM_RESTOREPLAY = WM_USER + $10; {自定义的“恢复”消息}
MYAPPNAME = v`/`v接受测试v`/`v;
type
TForm1 = class(TForm)
Button1: TBut...
300 byte By
msdn at 2007-8-14
function TForm1.Copy(FromFile, ToFile: String): Boolean;
var
T: TSHFileOpStruct;
FromBuf,ToBuf: Array [0..128] of Char;
begin
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0); //用0初始化FromBuf和ToBuf数组
StrPCopy(FromBuf,FromFile);
StrPCopy(ToBuf,ToFile);//分别在 FromBuf和ToB...
33 byte By
msdn at 2007-8-14
英文版程序用什么字体最好看?因为我没有英文系统,所以不好测试。
59 byte By
msdn at 2007-8-14
我需要在OpenDialog内选中一个文件夹并通过这个得到选中文件夹的路径!
需要用到哪些控件,以及相关的操作!
15 byte By
msdn at 2007-8-14
rt,简单吧?答对立即结贴
241 byte By
msdn at 2007-8-14
我做了一个监控程序,让它关联了exe文件
但启动之后就无法关机,无法注销,连控制面板也失效
对于关机,我想的是关机时截获关机消息,然后让它自己取消exe关联
以便关机,可关联exe的程序截获不到关机消息,也就无法关机了
注销应该和关机差不多,而控制面板更没法解决了
问题: 怎么解决关联exe文件后的关机、注销及控制面板等问题?
请各位高手出招指点!!谢谢!
由于分数限制,所以,我只好将220分分到三个帖子里
另外,要在98和win2000都能通过哦
请大家帮忙,谢谢!!!!
241 byte By
msdn at 2007-8-14
我做了一个监控程序,让它关联了exe文件
但启动之后就无法关机,无法注销,连控制面板也失效
对于关机,我想的是关机时截获关机消息,然后让它自己取消exe关联
以便关机,可关联exe的程序截获不到关机消息,也就无法关机了
注销应该和关机差不多,而控制面板更没法解决了
问题: 怎么解决关联exe文件后的关机、注销及控制面板等问题?
请各位高手出招指点!!谢谢!
由于分数限制,所以,我只好将220分分到三个帖子里
另外,要在98和win2000都能通过哦
请大家帮忙,谢谢!!!!
241 byte By
msdn at 2007-8-14
我做了一个监控程序,让它关联了exe文件
但启动之后就无法关机,无法注销,连控制面板也失效
对于关机,我想的是关机时截获关机消息,然后让它自己取消exe关联
以便关机,可关联exe的程序截获不到关机消息,也就无法关机了
注销应该和关机差不多,而控制面板更没法解决了
问题: 怎么解决关联exe文件后的关机、注销及控制面板等问题?
请各位高手出招指点!!谢谢!
由于分数限制,所以,我只好将220分分到三个帖子里
另外,要在98和win2000都能通过哦
请大家帮忙,谢谢!!!!
53 byte By
msdn at 2007-8-14
如何实现像windows系统那样的在线更新,即让升级程序在后台运行,检测到新的版本自动更新,急,谢了!
287 byte By
msdn at 2007-8-14
小弟在读注册表的一个二进值键值的时候,试着用下列的方法,不能读出数据来,请高手指点了。
有这方面的DEMO吗?
REG_BINARY :
begin
ListItem.SubItems.Add(v`/`vREG_BINARY值v`/`v);
Reg.openkey(s,false);
vSize := reg.GetDataSize(buf);
if (vSize > 0) then
274 byte By
msdn at 2007-8-14
var
myproc:Tproc;
begin
myproc:=getprocaddress(h,v`/`visminv`/`v); 和 @myproc:=getprocaddress(h,v`/`visminv`/`v);
这两句为什么都能运行成功。第一个myproc是一个实例,第二个@myproc是这个实例的指针地址,而getprocaddress例程是获得方法的指针地址。因该是第二句是对了,但为什么第一句也能运行成功
if assigned(myproc) then
79 byte By
msdn at 2007-8-14
像TTimer这样的对象可以有Destroy方法来调用。TPoint、TRect只有成员变量,没有方法的,这种对象是不是也需要销毁? 请各位高手多多赐教!
230 byte By
msdn at 2007-8-14
我的一个Unit里要用到TTimer组件,但是这个Unit没有Form,所以不能从上面拖一个TTimer组件下来,所以我只能直接在代码里定义一个
timer: TTimer,
然后:
timer := TTimer.Create(NIL);
timer.Enabled := true;
timer.Interval := 100;
但是接下来该怎么添加OnTimer事件处理代码就不知道了,所以请各位高手多多赐教!
218 byte By
msdn at 2007-8-14
在程序中需要把鼠标模拟成一只坏鼠标,大家在学校机房、网吧一定碰到过的那种。delphi控件一般都有OnMouseMove事件,鼠标一移动(OnMouseMove)我就调SetCursorPos函数让它移到别的位置,但是SetCursorPos函数能产生一个MouseMove事件,所以鼠标动一下就会不停的动下去。这是一个问题,OnMouseMove只是控件能响应,能不能让整个系统都响应啊,这个鼠标要一直是坏的。请各位高手多多指教!
22 byte By
msdn at 2007-8-14
解决后高分相送,不用第三方控件;
谢谢;
168 byte By
msdn at 2007-8-14
我想做个窗口的淡入效果,于是用了如下的代码:
procedure TfrmLogin.FormCreate(Sender: TObject);
begin
AnimateWindow (Handle, 400, AW_CENTER);
end;
可是效果是有了,但是弹出的窗口不管鼠标点击那里都不响应,请问是何缘故,应如何处理?
300 byte By
msdn at 2007-8-14
各位大哥,我在里面创建了一个主窗口 frmEApplyTabMain,FormStyle:=fsMDIForm,子窗体frmCheckerWorkStation 为:FormStyle:=fsMDIChild,我在主窗体里面是这样调用的:
if not Assigned(frmCheckerWorkStation) then
begin
frmCheckerWorkStation := TfrmCheckerWorkStation.Create(Application);
frmCheckerWorkStation.ParentWindow := frmEApplyTa...
117 byte By
msdn at 2007-8-14
SendMessage(hCurrentWindow,WM_MBUTTONDBLCLK,xpos,ypos);
我想对一个程序发送鼠标双击的时间,鼠标位置为当前坐标就行了,那么这里的xpos ypos
应该怎么填?
谢谢朋友们
191 byte By
msdn at 2007-8-14
本要在做注册表修改软件的时候,遇到了02d8e0c8 或者00ffffff这样的值,在注册表编辑器里取出来的是 2d8e0c8或者ffffff这样的字符串。当取数值的时候用inttostr(strtoint(v`/`v1111v`/`v));可以,但当有字符的时候如:00ffffff就会报不是一个整数值的错误,请高手指点。我只是让它正确的显示。不是加‘$v`/`v的问题。
111 byte By
msdn at 2007-8-14
利用 CreateProcess 执行命令行程序,如果执行记事本之类的在调试状态下可以运行成功
如果执行其他的程序的命令,直接运行可执行文件可以成功
但是在调试状态下,每次调试都失败
实在不知怎么回事
请各位给点建议吧
249 byte By
msdn at 2007-8-14
我想将的数据库中的联系人信息导出到OutLook Express的联系人文件中(或写成Wab文件也行),我在网上找了好久都没有找到这方面的资料,除了找到一个Wab.zip的Demo,但是在增加联系人时它是调用了OutLook Express的输入窗口来输入内容的,我不需要这个窗口,因为我的联系人信息都在数据库中了,我只需要做一个循环将数据库中的内容写到Wab文件中即可,哪位大虾有这方面的Demo呀!成功了,200分全部送上。
因提问时最多只能给100分,解决后我会另外起个帖子给分的。
260 byte By
msdn at 2007-8-14
在窗体上有一个ActionList1,并新建了一个Action1,并写上事件,但是我要在OnFormCreate中调用这个事件。
procedure TForm1.FormCreate(Sender: TObject);
begin
Action1.Execute;
//……
//下面还有其它事件
end;
那么如果Action1执行失败,怎样让OnCreate事件停止执行?如果在Action1事件中写上
try
……
except
Exit;
end;
但是它不会对OnCreate事件起保护作用~怎么办?
52 byte By
msdn at 2007-8-14
用shutdown(socket,SD_BOTH);时报错,SD_BOTH没定义
是不是要引用什么呀
29 byte By
msdn at 2007-8-14
如何判断当前截获的消息来自哪个控件?如WM_Paint
126 byte By
msdn at 2007-8-14
在使用DELPHI 5 制作DLL时,build后,只产生了*.DLL文件,但是,在使用VC++时,通过静态方式调用DLL时,必须有相应的*.LIB文件的支持,因此,请教:在使用DELPHI 5 制作DLL时,如何同时生成DLL文件及LIB文件。
24 byte By
msdn at 2007-8-14
用软件来实现,没有底色的透明飞字,怎么实现?
54 byte By
msdn at 2007-8-14
目录为 C:\1.text 我想定义一个string,每次载入1.text中的一行字符 .怎么办?
214 byte By
msdn at 2007-8-14
function CheckGuestCard(var RoomID:PChar;var GuestID,CardState:Integer):Boolean;stdcall...
对方用PB调用该函数时返回的RoomID是乱码?
我在DLL中是这样定义的
var DoorNo:string;
begin
...
RoomID:=PChar(DoorNo);
...
end;
我觉得是PChar这里的问题,帮我看看
20 byte By
msdn at 2007-8-14
怎样调用系统提供的,打开文件对话框?
91 byte By
msdn at 2007-8-14
上班中游戏时,常常要在老板过来时从游戏中切换出来,但会在任务栏上看到图标,老板动机器时很容易暴露,请问有没有办法把图标换过或者干脆看不到,只用快捷键能够切换出来,像QQ外挂那样!
298 byte By
msdn at 2007-8-14
公司要做刷卡消费的餐饮系统,厂家提供如下命令说明,哪位高手给个demo,谢谢先?分可以考虑。
UL-102 磁卡读写机说明书
一、概述
UL-102磁卡存折读写机是专门为银行、金融业务设计生产的磁条读写设备。采用国际最先进的磁条解码、编码技术,可轻松读写活期存折本、信用卡、储蓄卡上各种标准的磁条信息,主要性能指标已经超越国内外同类型产品。
二、主要技术指标
1.电源:DC+5V 150mA
2.数据格式:1个起始位、8个数据位、1个停止位
3.通讯参数:9600BPS
4.记录标准:符合ISO、IBM有关标准
5.记录字符数:
第2轨 75BPI 最多能写38位
72 byte By
msdn at 2007-8-14
怎样用Delphi写OPC客户端??通过OPC实现DELPHI与西门子WinCC软件的通信。
谁能给出优化了的源代码?? 请高手指教
136 byte By
msdn at 2007-8-14
程序中需要控制其他程序的某些功能.我获得的该listview空间的句柄.想动态选中listview控件的第一个项目.然后点击该程序的一个按钮完成一个功能.
怎么选择我没搞明白.请大虾指点一二.
这个事情很急人的...55555555:(
分不够我开帖送之......
300 byte By
msdn at 2007-8-14
大家好!
动态连接库的工程文件:
library DLLP;
uses
ShareMem,
SysUtils,
Classes,
dllu in v`/`vdllu.pasv`/`v;
{$R *.res}
exports
openserialport,closeserialport,SendHex,readdata;
begin
end.
函数实现单元如下:
unit dllu;
interface
uses
ShareMem,Windows, Messages, SysUtils, Variants, Classes, Graphics, C...
300 byte By
msdn at 2007-8-14
我照一个文章做了以下代码查一个指定程序的基址,但一查就没有响应,请问是不是哪里错了!?
具体应该怎么做!??
procedure TForm1.Button1Click(Sender: TObject);
var
P : Pointer;
MemInfo : MEMORY_BASIC_INFORMATION;
MemSize : LongWord;
ProHWND : HWND;
begin
ProHWND := OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);
P := nil;
MemS...
164 byte By
msdn at 2007-8-14
外部程序调用一个dll函数创建一个窗体(此窗体为 a 窗体), 在此dll内部通过 a 窗体创建 b 窗体
,并且把 a 窗体的数据传递给 b 窗体 进行操作。
-----------前面都能实现,接下来就不行了
b窗体操作完以后我要把数据传回给 a 窗体,同时关闭 b 窗体,结果内存报错!
请各位高手帮帮忙,先谢过了!
88 byte By
msdn at 2007-8-14
游戏一般是运行在DX8或DX9下面的,我通过找窗口句柄的方式,包括子窗口的方式找不到任何东西,是不是要编写外挂必须懂DX方面的编程知识,可以提供一些原理知识吗,分不够再加。