我的公告
“墨家”关于“辩”
    它说：“夫辩者，将以明是非之分，审治乱之纪，明同异之处，察名实之理，处利害，决嫌疑焉。摹略万物之然，论求群言之比。以名举实，以辞抒意，以说出放，以类取，以类予。”
我的日历
 
2008年9月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30        
 
我的相册
文章分类
最新留言
最新评论
文章专辑
空白面板
笔谈
我在时间里行走
风在我的身后
我不知道
       我的方向
我的来时路
       去时路
夜空中孤独的星辰
有时无
有时有
背景音乐
UDP网络通讯
2008-09-05 08:20:14
//--------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//-------------------------------------------------------------
点击此处查看原文
关闭另外一个程序
2008-08-24 14:47:27
#include <Tlhelp32.h>
#include <stdio.h>
void KillProgram(LPCSTR ExeName)
{
char *File;
HANDLE hProcessSnap;
PROCESSENTRY32 pe32;
MODULEENTRY32 m
点击此处查看原文
局域网内启动停止SQLServer服务
2008-07-30 17:14:52
if(CheckBox2->Checked==true)
{
CheckBox2->Caption="启动SQLServer";
WinExec(AnsiString("net use \\\\"+Edit2->Text+"\ipc$ ''/user:'administrator'").c_str(),SW_HIDE);
WinEx
点击此处查看原文
C++builder控制GIF动画播放
2008-07-27 13:00:30
//先下载安装gifimage动画控件,在窗体上放置,Timage控件,调用如下
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Image1->Parent->DoubleBuffered=true;//打开缓冲区
}
//-----------
点击此处查看原文
存储图片到数据库
2008-07-14 18:08:56
//读图片
ADOQuery1->Open();
TMemoryStream *temp=new TMemoryStream();
((TBlobField *)ADOQuery1->FieldByName("image"))->SaveToStream(temp);
temp->Position=0;
I
点击此处查看原文
JPG和BMP格式互相转换
2008-07-14 18:07:21
#include <jpeg.hpp>
void Bitmap2Jpeg(AnsiString bmpFile, AnsiString jpegFile)
{
Graphics::TBitmap *bitmap = new Graphics::TBitmap();
bitmap->LoadFromFile(bmpFile);
TJ
点击此处查看原文
用鼠标移动控件,象在IDE中一样
2008-07-07 14:14:19
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//------------------------------------------
点击此处查看原文
钩子获取鼠标在窗口上的位置
2008-07-07 09:37:37
HHOOK hMsgHook;
//钩子函数
LRESULT CALLBACK GetMsgProc(int nCode,WPARAM wParam,LPARAM lParam)
{
LPMOUSEHOOKSTRUCT pMouseHook = (MOUSEHOOKSTRUCT FAR *)lParam;
if(nCode == HC_ACTI
点击此处查看原文
Asp常用代码
2008-07-03 13:21:37
<!--用脚本分隔ASP代码,ASP代码连接查更新数据库-->
<Script language="VBscript">
Function ModifyCustom()
<%
if Request.Form("T1")<>"" then
Set MyConn1=Server.CreateObject(
点击此处查看原文
阿拉伯数字转成中文大写
2008-05-28 18:30:19

String NToC(String shu)
{
String a11]={"零","壹","贰","叁","肆","伍","陆","柒","捌","玖","点"};
AnsiString b=shu;
String c11];
String d="";
for(int i=1;i<=shu.Length();i++
点击此处查看原文
当前 1页/8页 首 页 下一页 末 页