delphi判断当前共运行了该程序的多少个实例

这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：

Program OneApp

数据控制部件

数据控制部件页上的部件 主要用于设计用户界面 对数据库中的数据进行浏览 编辑 插入 删除等 *** 作 因而数据控制部件常常又被称为数据浏览部件 数据控制部件其实是在Standard页上的标准部件的基础上 相应地增加了数据浏览功能 使得它们能够显示和编辑数据库中数据信息

数据控制部件既能够把数据库中的数据显示到窗体中 又可以将其自身的经过修改的数据写回到数据库中 下表列出了数据控制页上的数据控制部件及它们的主要用途

表 数据控制部件

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

部件名称   主 要 用 途

───────────────────────────────

TDBNavigator  使用该部件可以向前向后移动记录指针 可以使用该部件对单条记录进行编辑 还可以用它来插入 删除记录以及刷新显示和取消前一次的 *** 作

───────────────────────────────

它是显示数据库中的数据的文本框 它只能显示

TDBText  数据库表当前记录的字段值 用户不能对其中的

数据进行修改

───────────────────────────────

TDBEdit  它是显示和编辑数据库表中的数据的编辑框 它既可以显示又可以编辑数据库表中当前记录的字段值

───────────────────────────────

TDBCheckBox  它是浏览数据库中的数据的检查框 它可以用来显示和编辑数据库中的布尔型字段的字段值

───────────────────────────────

TDBListBox  它是浏览数据库中的数据的列表框 它可以用一个列表框来显示数据库表中一个字段的值

───────────────────────────────

TDBComboBox  它是浏览数据库中的数据的组合框 它可以用一个组合框来显示数据库表中一个字段的值

───────────────────────────────

TDBRadioGroup  它是浏览数据库表中的数据的单选钮 用一组单选钮可以确定显示数据库表中哪一个字段

───────────────────────────────

TDBGrid  它是浏览数据库中的数据的网格 以网格的方式显示数据库中的数据 在网格中还可以对数据库中的数据进行编辑 利用Fields Editor可以对数据库表中字段的显示格式 显示顺序 是否显示等进行控制

───────────────────────────────

TDBMemo  它主要用于浏览数据库中备注型的字段 它可以用来显示数据库表中当前记录中的BLOB型字段

───────────────────────────────

TDBImage  它是浏览数据库中的数据的图像框 它可以用于显示 拷贝 粘贴据库表中图像类型的字段

───────────────────────────────

TDBLookUpList  它是浏览数据库表中的数据的列表框 在基于一个数据库表的应用中 用它可以显示另一个数据库表中一个指定的字段值

───────────────────────────────

TDBLookUpCombo 它是浏览数据库表中的数据的组合框 在基于一个数据库表的应用中 用它可以显示另一个数据库表中一个指定的字段值

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

数据控制部件为开发Delphi数据库应用程序提供可视化的用户界面 不管应用程序是访问本地数据库中的数据文件 还是访问远程数据库服务器中的数据文件 用户界面都是一致的 即数据库的物理位置对数据控制部件是透明的

lishixinzhi/Article/program/Delphi/201311/25176

用ADOconnection，但是ADO没有mysql的驱动；

好像要下载libmysqldll放在Delphi安装目录的bin文件夹或者系统目录下或您的程序的目录中。

也有第三方控件可以用的。

主要是ODBC的驱动，有了就可以连接了，>

◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar( newfile txt ) pchar( //putername/direction/targer txt ) false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件 DragOver事件 EndDrag事件实现 例如在PANEL上的LABEL var xpanel ypanel xlabel ylabel:integer;PANEL的MouseMove事件 xpanel:=x;ypanel:=y;PANEL的DragOver事件 xpanel:=x;ypanel:=y;LABEL的MouseMove事件 xlabel:=x;ylabel:=y;LABEL的EndDrag事件 label left:=xpanel xlabel;label top:=ypanel ylabel;◇[DELPHI]取得WINDOWS目录uses shellapi;var windir:array[ ] of char;geindowsdirectory(windir sizeof(windir));或者从注册表中读取 位置 HKEY_LOCAL_MACHINE\Sofare\Microsoft\Windows\CurrentVersionSystemRoot键 取得如 C:\WINDOWS◇[DELPHI]在form或其他容器上画线var x y:array [ ] of integer;lor:=clred;canvas pen style:=psDash;form canvas moveto(trunc(x[i]) trunc(y[i]));form canvas lineto(trunc(x[j]) trunc(y[j]));◇[DELPHI]字符串列表使用var tips:tstringlist;tips:=tstringlist create;tips loadfromfile( filename txt );edit text:=tips[ ];tips add( last line addition string );tips insert( insert string at NO line );tips savetofile( newfile txt );tips free;◇[DELPHI]简单的剪贴板 *** 作richedit selectall;pytoclipboard;richedit cuttoclipboard;edit pastefromclipboard;◇[DELPHI]关于文件 目录 *** 作Chdir( c:\abcdir );转到目录Mkdir( dirname );建立目录Rmdir( dirname );删除目录GetCurrentDir;//取当前目录名 无 \ Getdir( s);//取工作目录名s:= c:\abcdir ;Deletfile( abc txt );//删除文件Renamefile( old txt new txt );//文件更名ExtractFilename(filelistbox filename);//取文件名ExtractFileExt(filelistbox filename);//取文件后缀◇[DELPHI]处理文件属性attr:=filegetattr(filelistbox filename);if (attr and faReadonly)=faReadonly then //只读if (attr and faSysfile)=faSysfile then //系统if (attr and faArchive)=faArchive then //存档if (attr and faHidden)=faHidden then //隐藏◇[DELPHI]执行程序外文件WINEXEC//调用可执行文件winexec( /c copy c:\ SW_Normal);winexec( start abc txt );ShellExecute或ShellExecuteEx//启动文件关联程序function executefile(const filename params defaultDir:string;showCmd:integer):THandle;ExecuteFile( C:\abc\a txt x abc c:\abc\ );ExecuteFile( );ExecuteFile( mailto: );◇[DELPHI]取得系统运行的进程名var hCurrentWindow:HWnd;szText:array[ ] of char;beginhCurrentWindow:=Geindow(handle GW_HWndFrist);while hCurrentWindow <> dobeginif Geindowtext(hcurrneindow @sztext )> then ems add(strpas(@sztext));hCurrentWindow:=Geindow(hCurrenindow GW_HWndNext);end;end;◇[DELPHI]关于汇编的嵌入A End;可以任意修改EAX ECX EDX 不能修改ESI EDI ESP EBP EBX ◇[DELPHI]关于类型转换函数FloatToStr//浮点转字符串FloatToStrF//带格式的浮点转字符串IntToHex//整数转 进制TimeToStrDateToStrDateTimeToStrFmtStr//按指定格式输出字符串formatDateTime( YYYY MM DD hh mm ss DATE);◇[DELPHI]字符串的过程和函数Insert(obj target pos);//字符串target插入在pos的位置 如插入结果大于target最大长度 多出字符将被截掉 如Pos在 以外 会产生运行错 例如 st:= Brian 则Insert（ OK st ）会使st变为 BrOKian Delete(st pos Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串 例如 st:= Brian 则Delete(st )将变为Brn Str(value st);//将数值value（整型或实型）转换成字符串放在st中 例如 a= E 时 则str(a: st)将使st的值为 Val(st var code);//把字符串表达式st转换为对应整型或实型数值 存放在var中 St必须是一个表示数值的字符串 并符合数值常数的规则 在转换过程中 如果没有检测出错误 变量code置为 否则置为第一个出错字符的位置 例如 st:= E x是一个实型变量 则val(st x code)将使X值为 code值为 Copy(st pos num);//返回st串中一个位置pos（整型）处开始的 含有num（整型）个字符的子串 如果pos大于st字符串的长度 那就会返回一个空串 如果pos在 以外 会引起运行错误 例如 st:= Brian 则Copy(st )返回 ri Concat(st st st …… stn);//把所有自变量表示出的字符串按所给出的顺序连接起来 并返回连接后的值 如果结果的长度 将产生运行错误 例如 st := Brian st := st := Wilfred 则Concat(st st st )返回 Brian Wilfred Length(st);//返回字符串表达式st的长度 例如 st:= Brian 则Length(st)返回值为 Pos(obj target);//返回字符串obj在目标字符串target的第一次出现的位置 如果target没有匹配的串 Pos函数的返回值为 例如 target:= Brian Wilfred 则Pos( Wil target)的返回值是 Pos( hurbet target)的返回值是 ◇[DELPHI]关于处理注册表uses Registry;var reg:Tregistry;reg:=Tregistry create;reg rootkey:= HKey_Current_User ;reg openkey( Control Panel\Desktop false);reg WriteString( Title Wallpaper );reg writeString( Wallpaper filelistbox filename);reg closereg;reg free;◇[DELPHI]关于键盘常量名VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWNF F $ ( ) $ B( )A Z $ ( ) $ A( ) $ ( ) $ ( )◇[DELPHI]初步判断程序母语DELPHI软件的DOS提示 This Program Must Be Run Under Win VC++软件的DOS提示 This Program Cannot Be Run In DOS Mode ◇[DELPHI] *** 作Cookieokies( name ) domain:= ;with okies add dobeginname:= username ;value:= username ;end◇[DELPHI]增加到文档菜单连接uses shellapi shlOBJ;shAddToRecentDocs(shArd_path pchar(filepath));//增加连接shAddToRecentDocs(shArd_path nil);//清空◇[杂类]备份智能ABC输入法词库windows\system\user remwindows\system\tmmr rem◇[DELPHI]判断鼠标按键if GetAsyncKeyState(VK_LButton)<> then //左键if GetAsyncKeyState(VK_MButton)<> then //中键if GetAsyncKeyState(VK_RButton)<> then //右键◇[DELPHI]设置窗体的最大显示onformCreate事件self width:=screen width;self height:=screen height;◇[DELPHI]按键接受消息OnCreate事件中处理 Application OnMessage:=MyOnMessage;procedure Tform MyOnMessage(var MSG:TMSG;var Handle:Boolean);beginif ssage= then //ANY键if ssage= then //F if ssage= then //F end;◇[杂类]隐藏共享文件夹共享效果 可访问 但不可见（在资源管理 网络邻居中）取共享名为 direction$访问 //puter/dirction/◇[Java Script]Java Script网页常用效果网页 秒定时关闭关闭窗口关闭定时转URL设为首页设为首页收藏本站收藏本站加入频道加入频道◇[DELPHI]随机产生文本色randomize;//随机种子lor:=rgb(random( ) random( ) random( ));◇[DELPHI]DELPHI UPDATE升级补丁序列号 X fx ◇[DELPHI]文件名的非法字符过滤for i:= to length(s) doif s[i] in [ \ / : < > | ] then◇[DELPHI]转换函数的定义及说明datetimetofiledate (datetime:Tdate lishixinzhi/Article/program/Delphi/201311/8427

以上就是关于delphi判断当前共运行了该程序的多少个实例全部的内容，包括:delphi判断当前共运行了该程序的多少个实例、DELPHI基础教程：Delphi开发数据库应用程序概述（二）[1]、Delphi 中连接ODBC数据源，不显示系统DSN，怎么回事系统是64位的win7。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！