06 2012 档案
摘要：//把这个批处理文件放到delphi项目工程目录下//delphi 7pushd %cd%\%1del /f /q *.dcudel /f /q *..cfgdel /f /q *..dofdel /f /q *.ddpdel /f /q *.dcu//delphi xepushd %cd%\%1RD /s /q Win32RD /s /q __history通过 为知笔记 发布
阅读全文
摘要：void__fastcallTf6_3_1::Button1Click(TObject*Sender) { inti; Button1->Left=300; Button1->Top=50; for(i=300;i>1;i--) { Button1->Left=i; Refresh(); } } 粘贴自：< ">http://www.cnpack.org/ >通过 为知笔记 发布
阅读全文
摘要：void__fastcallTf5_10_1::RadioGroup1Click(TObject*Sender) { switch(RadioGroup1->ItemIndex) { case0: this->Caption="A"; break; case1: this->Caption="B"; break; case2: this->Caption="C"; break; } } void_...
阅读全文
摘要：//显示当前系统的时间Canvas->TextOut(0,0,Time());Canvas->Pen->Color=clRed; Canvas->Pen->Style=psDashDot; Canvas->Brush->Style=bsSolid; Canvas->Rectangle(50,50,100,100); Canvas->Pen->Style=psSolid; Canvas->Brush...
阅读全文
摘要：intisOdd; void__fastcallTForm1::FormCreate(TObject*Sender) { Image2->Visible=False; Image3->Visible=False; Image2->AutoSize=True; Image3->AutoSize=True; Timer1->Interval=0; } //-----------------------...
阅读全文
摘要：变量名对变量的命名与符号常量的命名存在一些限制条件， 名字是由字母和数字组成的序列，但其第一个字符必须为字母。下划线“_”被看做是字母， 大写字母与小写字母是有区别的，所以，x与X是两个不同的名字。 变量名使用小写字母， 符号常量名全部使用大写字母。 局部变量一般使用较短的变量名（尤其是循环控制变量）， 外部变量使用较长的名字。 数据类型及长度 C语言只提供了下列几种基本数据类型： ...
阅读全文
摘要：使用设计正确的函数，程序员无需考虑功能是如何实现的，而只需知道它具有哪些功能就够了,和如何使用函数就够了。#include <stdio.h>/*公共声明函数*/int myAdd(int x,int y);void main(){int a=1;int b=2;printf("%d\n",myAdd(a,b));/*调用函数*/}/*自动定义的加法函数*/int myAdd(int x,int ...
阅读全文
摘要：//getchar函数从文本流中读入下一个输入字符，并将其作为结果值返回c = getchar() 每次调用putchar函数时将打印一个字符putchar() ////#include <stdio.h> main() { int c; c = getchar(); while (c != EOF) { putchar(c); c = getchar(); } } //这里需要解决...
阅读全文
摘要：#define 名字 替换文本 #include <stdio.h> #define LOWER 0 #define UPPER 300 #define STEP 20 main() { int fahr; for (fahr = LOWER; fahr <= UPPER; fahr = fahr + STEP) printf("%3d %6.1f\n", fahr, (5.0/9.0)*(...
阅读全文
摘要：#include <stdio.h> main() { int fahr; for (fahr = 0; fahr <= 300; fahr = fahr + 20) printf("%3d %6.1f\n", fahr, (5.0/9.0)*(fahr-32)); } 通过 为知笔记 发布
阅读全文
摘要：#include <stdio.h> main() { int fahr=0; int celsius; int step=20; while (fahr <= 300) { celsius = 5 * (fahr-32) / 9; printf("%d\t%d\n", fahr, celsius); fahr = fahr + 20; } } int 整型char 字符——一个字...
阅读全文
摘要：#include <stdio.h> main() { printf("hello, world\n"); } 通过 为知笔记 发布
阅读全文
摘要：/********************************************************//*DLL中的函数定义*//*计算x+y的值*/ int __declspec(dllexport) __stdcall myAdd(int x, int y) {return x+y; } /*********************************************...
阅读全文
摘要：/*设置屏幕分辨率width,Height,Color->SetPixelAndColor(1024,768,32)*/bool SetPixelAndColor(HDChdc,unsigned int Width,unsigned int Height,int BitsPerPixel){DEVMODECurMode;intresult=1;for(int i=0;result;i++)resu...
阅读全文
摘要：MessageBeep(MB_OK);发声if(MessageDlg("Are you sure to Exit",mtConfirmation, TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){Close();}Application->ProcessMessages();MessageBox(this->Handle,"Text","Tips",MB_OK|M...
阅读全文
摘要：//首先创建好1窗体2//project->option->设置不自动创建窗体//当有多个窗体的时候 需要的时候才创建这个创建否则不创建 Form2=newTForm2(Application); Form2->ShowModal(); deleteForm2;//窗体的关闭部分 Form2->Free();通过 为知笔记 发布
阅读全文
摘要：void__fastcallTForm1::Button1Click(TObject*Sender) { intx,y; x=Edit1->Text.ToInt(); y=Edit2->Text.ToInt(); Edit3->Text=x+y; } 通过 为知笔记 发布
阅读全文
摘要：//播放Wav声音//把a.wav文件放到c盘目录下#include "mmsystem.h"void __fastcall TForm1::Button1Click(TObject *Sender){ PlaySound("c:\\a.wav",NULL,SND_ASYNC);}//播放res里的Wav/*aaa WAVE A.WAV//sounderes*/#include "mmsystem.h"#pragma resource "soundres.RES"void __fastcall TForm1::Bu
阅读全文
摘要：+、-、*、/ 解释： C语言的运算符——加、减、乘、除。+=、-=、*=、/=、%= 解释： C语言的运算符——修改和替代。．解释： C语言的运算符——结构或联合的成员选择。,解释： C语言中①逗号运算符。②分隔符，用于分隔函数参数表中的各参数。~解释： C语言的运算符——二进码反（按位非）。*解释： C语言的分隔符——用于在变量说明中指明当前说明的变量是指向某个类型的指针。!解释： C语言的运...
阅读全文
摘要：武器耐久度实际数值=显示的耐久值*100CE搜索600~700数值每打怪1次 数值减少 2打怪1次 然后搜索 减少的数值 2 1次就可以找到地址了到这个地方的时候没法往下找了 试试 把武器拿下来和换武器就会出现 数据了武器耐久度MIN=[[[[[BCA564]+1c]+34]+d24]+c]+0]+68通过 为知笔记 发布
阅读全文
摘要：Mfc dll的创建Mfc AppWizard(dll) 文件名为 DLL在Dll.cpp中 加入1个函数int add1(int a,int b){return a+b;}在 Dll.def文件中导出函数 add1Rebuild All 重新编译创建1个MFC程序调用DLL把...\Dll\Debug 中的.dll文件和.lib文件复制到 调用dll的项目目录下把dll文件复制到EXE的Debu...
阅读全文
摘要：找到个地图的边缘 ，2个地名相互切换的地方比如这个地方可以 422，851，22使用工具把地图名称转换成UNICODE鹏程客栈4F 9E 0B 7A A2 5B 08 68剑仙城郊外51 52 D9 4E CE 57 CA 90 16 59 0D 00 0A 00CE搜索类型 array of byte能搜索20多个 判断方法：通过修改 数值 看游戏里的地图名称是否改变了 改变了正确通过右键查找 能找到地图名称的基址//=地图名称=[[[[[b3f6cc]+1c]+1c]+60]+4]+0改变名称 就对地图名称=[[[[[b3f6cc]+1c]+1c]+60]+4]+0这 个地图名称的数值写入
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);{$j+}const i:integer=0;j:integer=0;{$j-}begininc(i);Dec(j);Self.Caption:=Format('Inc%d Dec%d',[i,j]);end;通过 Wiz 发布
阅读全文
摘要：下1级经验的地址=eax*4+00B408A8下级人物的经验值=[下1级经验的地址]eax=人物的等级lv =[[[B3F6CC]+1c]+34]+48cExpMin =[[[B3F6CC]+1c]+34]+49cExpMaxAddr =lv*4+00B408A8ExpMax=[ExpMaxAddr]经验百分比 =(ExpMin/ExpMax)*100 //带1个小数点通过 Wiz 发布
阅读全文
摘要：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage, ...
阅读全文
摘要：使用parent让进度条上显示文字 procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Font.Color:=clRed;Label1.Transparent:=True;Label1.Alignment:=taCenter;Label1.Parent:= ProgressBar1;Label1....
阅读全文
摘要：//列表框//文本框//编辑框//组合框//单选框//检查框unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton;Button2: TButton;Memo1: TMemo;Button3: TButton;Button4: TButton;ComboBox1: TComboBo
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varF:TextFile;fName:string;beginfName:='error.txt';AssignFile(F,fName);if FileExists(fName)then Append(F)else Rewrite(F);Writeln(F,'this is string');CloseFile(F);end;通过 Wiz 发布
阅读全文
摘要：{写1个错误的日志文件并记录错误的地方} //调用WriteErrorFile('Button1'); //tryexcept在这里放着end; procedureWriteErrorFile(str:string); var path:string;{FilePath} f:TextFile;{txtFile} et:string;{errortime} ef:string;{errorfile...
阅读全文
摘要：//FormatDateTime 一段以时间为命令的代码procedure TForm1.Button1Click(Sender: TObject);varfilename,timename:string;beginfilename:='文件名_'; //这是一个变量名timename:=filename+FormatDateTime('yyyy"年"mm"月"dd"日_"dddd"_"hh"_"...
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ComCtrls, ToolWin, Buttons;type TForm1 = class(TForm) MainMenu1: TMainMenu...
阅读全文
摘要：/* This file downloaded from Highend3d.com'' '' Highend3d.com File Information:'' '' Script Name: BVH Import v2.0'' Author: Sergiy'' Last Updated: August 4, 2002'' Update/Change this file at:'' http:/...
阅读全文
摘要：/*globalMove01.sx = globalMove01.sz = globalMove01sy; lock and hide selected ScaleX ScaleZmodel显示template其余的只显示visibility其他的全部lock and hide selected*///groupgroup -em -name "charNode01";group -em -nam...
阅读全文
摘要：//create curves string $cv1[] = ` circle -c 0 0 0 -nr 0 1 0 -sw 360 -r 1 -d 3 -ut 0 -tol 0.01 -s 8 -ch 0 `;//-ch 0 历史已关 string $cv2[] = ` circle -c 0 0 0 -nr 0 1 0 -sw 360 -r 1 -d 3 -ut 0 -tol 0.01 -s...
阅读全文
摘要：/*abSymMesh v 1.7brendan ross 03.10.2004www.supercrumbly.comupdate -- 09.20.2004: "Select Moved Verts" button will select vertices that have been moved relative to the base mesh.update -- 3.21.2005: A...
阅读全文
摘要：//advanced skeleton 3.5 update.//test in maya 2011.//this script is free.//adding match IK Fk feature for advanced skleton 3.5//writen by davood tabatabaei iran-mashhad-parshonar company.//email: davo...
阅读全文
摘要：string $sel[]=`ls -sl`;print("选中"+ size($sel) +"个物体");通过 Wiz 发布
阅读全文
摘要：// create joint int $count=10;//创建骨骼数量for($i=0;$i<$count;$i++){ //创建joint joint -p 0 0 $i -name joint1;} //修改radius大小 select -r |joint1 ; select -hi;通过 Wiz 发布
阅读全文
摘要：:convertfile@IF %1 == "" GOTO endimf_copy -p %1 "%~d1%~p1%~n1.map"@SHIFT@GOTO convertfile:end@ECHO.@ECHO Done!@pause通过 Wiz 发布
阅读全文
摘要：window -t "" mywnd;columnLayout -adj 1;button -l "Deselect" -command "delselect";button -l "randY" -command "randy";proc delselect()//在所选中的物体中取消选中一些物体{ string $sel[]=`ls -sl`; for($i=0;$i<size($sel);$...
阅读全文
摘要：//////////////////////////////////////////////////////////////////////////////////////////////////// //// Rock Generator2.5 ...
阅读全文
摘要：//randomstring $sel[]=`ls-sl`;for($i=0;$i<size($sel);$i++){ float$y=rand(0,1); setAttr ($sel[$i]+".translateY") $y;} //对所中的物体 随机选中一些物体通过 Wiz 发布
阅读全文
摘要：global proc playBlastWin(){if (`window -ex playBlastWin`)deleteUI playBlastWin;window -t "拍屏窗口 beta 0.1" playBlastWin;columnLayout -enable 1 -cw 300 -h 200 -adj 1 -columnAlign "left" mainCol;textField...
阅读全文
摘要：/*ParentShapes粘贴要被parent的物体*/string $promptDialogWnd = ` promptDialog -b "Go" -m "Parent It"`;//-b -buttonstring $sel[] = ` ls -sl `;//ls list -sl -seletionfor( $shapes in $sel ){ string $lsRelatives[...
阅读全文
摘要：// 物体随机排列; // by居燕虹 2004.3global proc objectRand(){string $selectObject[]=`ls-sl`;int$amount=size($selectObject) ;if($amount==0) error"Please select the object ";if(`window-exists objectRand`) { delet...
阅读全文
摘要：//maya批量命名（如果对同一个物体多次操作相同的名称返回值会出现问题）string $ResultValue =`promptDialog -title "批量重命名" -message "输入名称" -button "Ok" -button"Cancel" -defaultButton"Ok"`;string $textResponse = `promptDialog -q`;//以下是重命...
阅读全文
摘要：//KeySelected 快捷键建议用astring $myObjects[]=`ls -sl`;string $myAttr[]=`channelBox -q -sma mainChannelBox`;for($myNode in $myObjects){for($myNodeAttr in $myAttr){ setKeyframe($myNode+"."+$myNodeAttr);}}/*...
阅读全文
摘要：#include <stdio.h>#include <ctype.h>#include <conio.h>void main() { char letter; // Letter typed by the user printf("Do you want to continue? (Y/N): "); letter = getch(); // Get the letter letter = t...
阅读全文
摘要：#include <stdio.h>void main(void) { char *weekdays[7] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}; int i; for (i = 0; i < 7; i++) printf("weekdays[%d] contains %s\...
阅读全文
摘要：#include <conio.h>void main(void) { int row, column; clrscr(); cprintf("This is line 1\r\n"); cprintf("Line 2 is a little longer\r\n"); cprintf("This is the last line"); row = wherey(); column = where...
阅读全文
摘要：#include <stdio.h>void main(void) { enum { Monday, Tuesday, Wednesday, Thursday, Friday } day; for (day = Monday; day <= Friday; day++) if (day == Monday) printf("No fun---meetings all day Monday\n");...
阅读全文
摘要：#include <conio.h>void main(void) { int i, j; window(1, 1, 40, 12); for (i = 0; i < 15; i++) { for (j = 0; j < 50; j++) cprintf("%d", j); cprintf("\r\n"); } }通过 Wiz 发布
阅读全文
摘要：#include <stdio.h>void main(void) { char *workdays[] = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "" }; char **work_day; work_day = workdays; while (*work_day) printf("%s\n", *work_day+...
阅读全文
摘要：#include <stdio.h>#include <dos.h>#include <string.h>// Note: If you want to use XMS function 0xB, this simple // xms_access routine only works for tiny, small, or medium // models where the value of ...
阅读全文
摘要：#include <stdio.h>#include <string.h>void main (void) { char line[255]; // Line of text read while (fgets(line, sizeof(line), stdin)) fputs(strupr(line), stdout); }通过 Wiz 发布
阅读全文
摘要：#include <stdio.h>Main () { printf ("This program does not compile."); }通过 Wiz 发布
阅读全文
摘要：#include <stdio.h>void hello_world(void) { printf("Hello, world!\n"); }void main(void) { hello_world(); }通过 Wiz 发布
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1,0);end;通过 Wiz 发布
阅读全文
摘要：//WM_PAINT带背景的窗体private{ Private declarations }Bitmap:TBitmap;procedure WMPaint(var msg:TWMPAINT);Message WM_PAINT;procedure TForm1.WMPaint(var msg:TWMPAINT);begininherited;StretchBlt(canvas.Handle,0,...
阅读全文
摘要：//sendmessage WM_PAINT带背景的窗体private{ Private declarations }Bitmap:TBitmap;procedure WMPaint(var msg:TWMPAINT);Message WM_PAINT;procedure TForm1.WMPaint(var msg:TWMPAINT);begininherited;StretchBlt(canv...
阅读全文
摘要：//TMemo组件的光标定位privateprocedure MemoRow;{ Private declarations }varForm1: TForm1;procedure TForm1.MemoRow;varLpos,Cpos,LineLength:Integer;beginLpos := SendMessage(Memo1.Handle,em_linefromchar,Memo1.Sel...
阅读全文
摘要：http://www.websnap123.com/http://delphi.about.com/http://www.2ccc.com/http://www.delphifans.com/http://www.tommstudio.com/http://www.xuedelphi.cn/通过 Wiz 发布
阅读全文
摘要：//With简化代码语句{With语句是一种用于简化代码的语句。如你要访问一个记录类型变量（或一个对象），用With语句就不必每次重复变量的名字with 对象名 dobegin对象名属性 := 属性值;end;}//例1with Button1 dobegincaption := 'Btn';width := 100;end;//例2with edit1 dobegintext := 'Hello...
阅读全文
摘要：//简单语句和复合语句简单语句Pascal 简单语句中不包含任何别的语句，赋值语句和过程调用即是简单语句的例子。简单语句用分号隔开，如下所示：X := Y + Z; // assignmentRandomize; // procedure call复合语句用begin 和end 将简单语句括起来即组成复合语句，复合语句用法与普通的Pascal 语句相同，见下例：beginA := B;C := A...
阅读全文
摘要：//while循环语句{while True dobegin...end;}procedure TForm1.Button1Click(Sender: TObject);varI: Integer;beginI := 0;while I > 100 dobeginI := I + Random (100);Listbox1.Items.Add ('Random Number: ' + IntToS...
阅读全文
摘要：//计算100以内的奇数平方和varForm1: TForm1;i,k,sum:integer; //i,sum为整形数值 k为最后一个奇数为implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begini:=0;sum:=0; //初始化 i,sum的值while i<=100 do //当 i是100以内...
阅读全文
摘要：//repeat loop {repeat...until (True);...}通过 Wiz 发布
阅读全文
摘要：//循环按1 到6 F1到F8procedure TForm1.Timer1Timer(Sender: TObject);varwmHwnd:HWND;i:integer;beginwmHwnd:=FindWindow(nil,'Element Client');for i := 49 to 54 do //键1到1键6beginSendMessage(wmHwnd,WM_KEYDOWN,i,0)...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);...
阅读全文
摘要：//if 条件语句条件语句通过条件检测，判断是否执行该条件语句中包含的语句。条件语句可有两种基本形式：if语句和case语句。If语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。procedure TForm1.Button1Click(Sender: TObject);begin// simple if statementi...
阅读全文
摘要：//For循环{Pascal 中的for循环严格地建立在计数器基础上，循环每执行一次，计数器不是增加一个值就是减小一个值。注意：用 Break 和 Continue 系统过程可以改变循环执行的标准流程。Break中断循环；Continue直接跳至循环测试句，或使计数器增加一个步长，然后继续循环（除非条件为空或计数器达到最大值）。还有两个系统过程 Exit 和 Halt，让你立即从函数或过程中返回，...
阅读全文
摘要：uses ShellAPI;{$IFNDEF Win32}//Var上面end;下面function ShellAbout(Wnd: HWnd; App, Stuff: PChar; Icon: HIcon): Integer; far; external 'shell';{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);beginShe...
阅读全文
摘要：//列举正在运行的程序uses ShellApi;{在interface下面type上面输入}const MY_MESSAGE = WM_USER + 100;procedure TForm1.Button1Click(Sender: TObject);varhCurrentWindow:HWnd;szText:array[0..254] of char;beginhCurrentWindow :...
阅读全文
摘要：//取得可执行文件的图标publicProcedure NextIcon;{ Public declarations }{在implementation下面引用};uses ShellAPI;procedure TForm1.NextIcon;varCount : Integer;FileName : String;i:integer;beginif( FileName <> Edit1.Text...
阅读全文
摘要：//设置TMemo组件的边界procedure TForm1.Button1Click(Sender: TObject);vararea: TRect;beginSendMessage(memo1.Handle ,em_getrect,0,longint(@area));area.Left := 30;area.Top := 10;area.Right := area.Right - 29;are...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);end;通过 Wiz 发布
阅读全文
摘要：function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;varbuff:Array[0..255] of char;dc:HDC;beginif Hand<>0 thenbegingetwindowtext(hand,buff,25...
阅读全文
摘要：选择结构语句IFif语句通过对条件表达式的判断，来决定程序的执行流程。if <条件表达式>then语句1;{单分支条件语句}if<条件表达式>then语句1else 语句2;{双分支条件语句}if<条件表达式1>then语句1{嵌套形式条件语句}elseif<条件表达式2>then语句2elseif<条件表达式n>then语句3......else语句n;例1：单分支条件语句判断一个数的奇偶性。（...
阅读全文
摘要：//ini//REG//XML操作INI文件函数作用GetPrivateProfileInt //从.INI文件中取得指定节指定键名的整型数信息GetPrivateProfileSection//从.INI文件中取得指定节的信息GetPrivateProfileSectionNames//从.INI文件中取得所有节的名称GetPrivateProfileString从.INI//文件中取得指定节指...
阅读全文
摘要：AbortPrinter在假脱机的情况下删除打印缓冲文件 AbortProc当打印作业取消时调用的一个应用程序定义的回调函数 AddForm为指定的打印机从有效窗体列表中新增一个窗体 AddJob获取一个文件名用来保存打印缓冲工作 AddMonitor新安装一个打印机管理器 AddPort新增一个打印机端口 AddPrinter在指定的服务器上新安装一个打印机 AddPrinte...
阅读全文
摘要：void __fastcall TForm1::Button1Click(TObject *Sender){ TBorderIcons A = BorderIcons ; A >> biMaximize; BorderIcons = A;}通过 为知笔记 发布
阅读全文
摘要：void __fastcall TForm1::Button1Click(TObject *Sender){ String AppPath; AppPath=GetCurrentDir(); Memo1->Lines->LoadFromFile(AppPath+"\\"+"a.rtf");}void __fastcall TForm1::Button1Click(TObject *Sender){...
阅读全文
摘要：void __fastcall TForm1::ComboBox1DropDown(TObject *Sender){ ComboBox1->Items= Screen->Fonts;}//---------------------------------------------------------------------------void __fastcall TForm1::ComboB...
阅读全文
摘要：Memo1->Clear();Memo1->Lines->Add(GetCurrentDir());Memo1->Lines->Add(Application->ExeName);通过 为知笔记 发布
阅读全文
摘要：project -> options-> liker -> user dynamic rtl 去掉 project -> options-> compiler -> 选 release project -> options-> packages-> builder with runtime packages 去掉通过 为知笔记 发布
阅读全文
摘要：Application->Minimize();Edit1-> PasswordChar= '* '; //单引号btn1->Left = 16;btn1->Top = 16;btn1->Width = 75;btn1->Height = 25;btn1->Caption = "btn1";Button1->Enabled = true;Memo1->Clear();//清空Memo1->SetF...
阅读全文
摘要：MessageBeep(MB_OK);发声if(MessageDlg("Are you sure to Exit",mtConfirmation, TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){Close();}Application->ProcessMessages();MessageBox(this->Handle,"Text","Tips",MB_OK|M...
阅读全文
摘要：void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y){Canvas->FillRect(ClientRect);Canvas->MoveTo(0, 0);Canvas->LineTo(X, Y);}通过 为知笔记 发布
阅读全文
摘要：Form1->Caption = LowerCase(Edit1->Text);通过 为知笔记 发布
阅读全文
摘要：void __fastcall TForm1::Button1Click(TObject *Sender){PaintBox1->Canvas->Brush->Color = clRed;PaintBox1->Canvas->FillRect(PaintBox1->Canvas->ClipRect);PaintBox1->Canvas->Ellipse(0,0,100,100);}//------...
阅读全文
摘要：void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose){if (MessageDlg("Close the form?", mtConfirmation, TMsgDlgButtons() << mbOK << mbCancel,0) == mrCancel)CanClose = false;}通过 为知笔记 ...
阅读全文
摘要：void __fastcall TForm1::FormResize(TObject *Sender){//button1 的位置一直在窗体的最右边Button1->Left = Form1->ClientWidth - Button1->Width;}通过 为知笔记 发布
阅读全文
摘要：void __fastcall TForm1::Edit1Enter(TObject *Sender){Edit1->Color = clYellow;}//---------------------------------------------------------------------------void __fastcall TForm1::Edit1Exit(TObject *Sen...
阅读全文
摘要：String InputString = InputBox(L"Input Box", L"Prompt", L"Default string"); Edit1->Text = InputString;通过 为知笔记 发布
阅读全文
摘要：//在系统菜单上添加所需的菜单项AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"NEW(&A)");通过 为知笔记 发布
阅读全文
摘要：TForm1*Form1=newTForm1(this);Form1->Show();通过 Wiz 发布
阅读全文
摘要：//模拟在Edit1组件中按下了字母a键PostMessage(Edit1->Handle,WM_KEYDOWN,65,0);通过 为知笔记 发布
阅读全文
摘要：文件操作常用的函数有：1.DeleteFile3.FileAge4.FileClose5.FileDateToDateTime6.FileExists7.FileGetAttr8.FileGetDate9.FileOpen10.FileRead11.FileSearch12.FileSeek13.FileSetAttr14.FileSetDate15.FileWrite16.FindClose17...
阅读全文
摘要：void __fastcall TForm1::Button1Click(TObject *Sender){ TCanvas *DeskTop; DeskTop = new TCanvas; DeskTop-> Handle=GetWindowDC(GetDesktopWindow()) ; Image1-> Canvas-> CopyMode=cmSrcCopy; Image1-> Canvas...
阅读全文
摘要：//单击左键弹起菜单 97void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,int X, int Y){POINT pt;::GetCursorPos(&pt);PopupMenu1->Popup(pt.x, pt.y);}通过 为知笔记 发布
阅读全文
摘要：Label1->AutoSize = False;// TrueLabel1->Caption = "This string is too long to be the caption of this label";通过 为知笔记 发布
阅读全文
摘要：#include "Unit2.h"void __fastcall TForm1::Button1Click(TObject *Sender){if (!Form2->Visible){Form2->Visible = true;Form2->BringToFront();}}通过 为知笔记 发布
阅读全文
摘要：String String1 = "Abc";String String2 = "ABC";int I = CompareStr(String1, String2);// The value of I is less than 0.Edit1->Text = IntToStr(I); //Return Valueif (I != 0) ShowMessage ("The strings are n...
阅读全文
摘要：void __fastcall TForm1::Button1Click(TObject *Sender){try{Form1->Caption = IntToStr(StrToInt(Edit1->Text) * StrToInt(Edit2->Text));}catch(...){ShowMessage("You must specify integer values. Please try ...
阅读全文
摘要：#include <stdio.h>void main (){int value = 0;while (value <= 100){printf("%d\n", value);value++;}}通过 Wiz 发布
阅读全文
摘要：//RegisterHotKey注册全局热键注册全局热键private{ Private declarations }procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;{varForm1: TForm1; }HotKeyId:Integer; //声明变量procedure TForm1.HotKeyDown(var Msg: T...
阅读全文
摘要：//reapeat until计算1累加到100的和procedure TForm1.Button1Click(Sender: TObject);vari,sum:integer;begini:=1;sum:=0;repeatsum:=sum+i;i:=i+1;until i>100;showmessage('1ÀÛ¼Óµ½100µÄºÍΪ'+inttostr(sum));end;通过 Wiz ...
阅读全文
摘要：//使窗体标题栏文字右对齐private{ Private declarations }protectedprocedure CreateParams(var Params: TCreateParams); override;procedure TForm1.CreateParams(var Params: TCreateParams);begininherited;params.ExStyle:...
阅读全文
摘要：功能说明：PostMessage模拟按键procedureTForm1.Button1Click(Sender: TObject);//模拟在Edit控件中按下a键beginPostMessage(Edit1.Handle, WM_KEYDOWN,65,0);end;procedureTForm1.Timer1Timer(Sender: TObject);//模拟在窗体中按下Tab键beg...
阅读全文
摘要：//Perform_程序运行时拖动组件//那个控件必须是少状态正的组件publicprocedure AppMessage(var msg: tmsg;var handlede: boolean);{ Public declarations }procedure TForm1.FormCreate(Sender: TObject);beginapplication.OnMessage := App...
阅读全文
摘要：//浮动工具栏{窗体是否要隐藏，重要的是要判断是否在操作中，通过窗体的Active属性，可以确定窗体是否具有焦点。在窗体有焦点时，该窗体正在被操作，这时需要完全显示在屏幕当中；如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏.在窗体上添加TTimer组件和TImage组件设置窗体Form1的属性}{以图片的形状作为...
阅读全文
摘要：{使用任意组件拖动窗体} //PerformCTRLS(Form1,Button); //放在控件的MouseDown事件下 procedurePerformCTRLS(Form:TForm;Button:TMouseButton); begin ifButton=mbLeftthen begin ReleaseCapture; Form.Perform(wm_syscommand,$F012,0...
阅读全文
摘要：PageControl1 tabsheet1.Show;tabsheet2.Show;tabsheet3.Show;通过 Wiz 发布
阅读全文
摘要：//overload 函数或过程重载重载的思想很简单：编译器允许你用同一名字定义多个函数或过程，只要它们所带的参数不同。实际上，编译器是通过检测参数来确定需要调用的例程。下面是从VCL的数学单元（Math Unit）中摘录的一系列函数：function Min (A,B: Integer): Integer; overload;function Min (A,B: Int64): Int64; o...
阅读全文
摘要：功能说明：openpicturedialog1在对话框中预览图片procedureTForm1.Button1Click(Sender: TObject);beginifOpenPictureDialog1.Executethenbeginshowmessage(OpenPictureDialog1.FileName);end;end;通过 Wiz 发布
阅读全文
摘要：{Move ListBox Items with the Mouse (Drag and Drop).1,Drop a TListBox (named ListBox1) on a form2,Add several strings using the Items property3,Set ListBox1's DragMode to dmAutomatic (in Form's OnCreat...
阅读全文
摘要：//Modified判断Tedit TMemo类型的文件是否修改过procedureTForm1.Button1Click(Sender: TObject);beginif edit1.Modifiedthen ShowMessage('edit1 Modified') else ShowMessage('edit1 没有修改');if Memo1.Modifiedthen ShowMessage...
阅读全文
摘要：{在关闭窗口前加入确认对话框} //调用frmCloseQuery(CanClose); //放在FormCloseQuery的下面 procedurefrmCloseQuery(varCanClose:Boolean); begin ifapplication.MessageBox('退出请点“是”'+#13#10+'返回请点“否”','提示',MB_YESNO+MB_ICONQUEStION)...
阅读全文
摘要：//MessageBeep//LongIntBOOL MessageBeep(UINT uType //Cardinal type);//参数-1MB_OK = 0;MB_ICONHAND = 16;MB_ICONQUESTION = 32;MB_ICONEXCLAMATION = 48;MB_ICONASTERISK = 64;//exampleMessageBeep(Cardinal(-1))...
阅读全文
摘要：{memo1.Font.stylefsBold 粗体fsItalic 斜体fsUnderline 下划线fsStrikeOut 删除线返回值：Boolean}//style1memo1.Font.style:=[fsBold,fsItalic,fsUnderline,fsStrikeOut];//style2memo1.Font.style:=[fsBold];通过 Wiz 发布
阅读全文
摘要：功能说明：MapWindowPoints限制鼠标的位置varpos: TRect;{公共声明}procedureTForm1.Button1Click(Sender: TObject);beginpos:=panel1.BoundsRect;MapWindowPoints(handle,0, pos,2);// 座标换算ClipCursor(@pos);end;procedureTForm1.Pa...
阅读全文
摘要：//窗口融合技术{创建2个窗体 form1 form2panelbutton1button2设置panel的DockSite:=true;}//代码没用procedure TForm1.Button1Click(Sender: TObject);beginform2.ManualDock(Form1.Panel1,nil,alNone);end;procedure TForm1.Button2Cl...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);begin{直接加载当前目录下的文件,文件必须得存在，否则出错}Memo1.Lines.LoadFromFile('Unit1.pas');end;procedure TForm1.Button2Click(Sender: TObject);begin{直接在当前程序目录下保存文件，如果文件不存在程序会自...
阅读全文
摘要：//listbox dragDrop DragOverprocedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);beginAccept := True;end;procedure TForm1.Edit1DragDrop(Sender, ...
阅读全文
摘要：//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormCreate(Sender: TObject);begin ShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中图标 SetWindowLong(Application.Handle, GWL_EXSTYLE...
阅读全文
摘要：//SetWindowLong在按钮中显示两行文字procedure TForm1.FormCreate(Sender: TObject);beginSetWindowLong(button1.Handle,gwl_style,getwindowlong(button1.Handle,gwl_style)or bs_multiline);button1.Caption := '退'+ #13 +'...
阅读全文
摘要：//SetWindowLong代码设置窗体borderStyle风格 TOOLWINDOWSetWindowLong(self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);通过 Wiz 发布
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);begin//隐藏标题栏SetWindowLong(Form1.Handle,GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);H...
阅读全文
摘要：//给MDI窗体加背景//设置Form1窗体的FormStyle属性为fsMDIForm//设置Form2窗体的FormStyle属性为fsMDIChild// Image控件 Bmp格式图片privateFClientInstance : TFarProc;FPrevClientProc : TFarProc;Procedure ClientWndProc(Var Message: TMessa...
阅读全文
摘要：功能说明：//setlength取得字符串长度 设置字符长度//取得字符串长度length();procedureTForm1.btn1Click(Sender: TObject);varstr:string;beginstr:='abcd';ShowMessage(IntToStr(length(str)));end;//设置字符长度setlength()procedureTForm1.Butt...
阅读全文
摘要：//SetLength为了有效地分配所需的存储空间，你可以用SetLength 过程设定字符串的最大长度值： procedure TForm1.Button1Click(Sender: TObject);var str1 :string;begin str1:= 'Hello World'; SetLength (str1, 3);//设定str1 的字符长度为3个字符 edit1.text :=...
阅读全文
摘要：功能说明：//SelectDirectory实现文件夹的选定(设置位置)uses FileCtrl;procedureTForm1.Button1Click(Sender: TObject);vardir:String;beginif SelectDirectory(dir,[],500) then Edit1.text:=Dir;end;通过 Wiz 发布
阅读全文
摘要：//SelectDirectory在Delphi中定位文件夹位置function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;function SelectDirectory(const Caption: string; const Root: WideStri...
阅读全文
摘要：//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender: TObject);//直接定位文件' 打开一个文件beginOpenDialog1.Execute;//执行“打开”文件对话框Label1.Caption:=OpenDialog1.FileName;//将返回的结果值传递给控件Label1//要注意，只有当用户...
阅读全文
摘要：//Screen获取桌面分辨率大小{Screen.Width 宽Screen.Height 高这样可以根据显示器的分辨率信息设置窗体大小及位置}procedure TForm1.Button1Click(Sender: TObject);beginSelf.Memo1.Lines.Add('DeskTopResolution');Self.Memo1.Lines.Add('Width :'+Int...
阅读全文
摘要：功能说明：Screen.Cursor把光标隐藏一段时间varMouseHide: Boolean;{在公共部分声明}procedureDoMouse;beginifMouseHidethenbeginScreen.Cursor:=crDefault;{ 恢复鼠标 }MouseHide:=False;endelseForm1.Timer1.Enabled:=True;end;procedureTFo...
阅读全文
摘要：//SavetoFile bmp文件转换成 icoprocedure TForm1.Button1Click(Sender: TObject);beginwith Image1.Picture dobeginSavetoFile('C:\frombmp.ico');end;end;通过 Wiz 发布
阅读全文
摘要：//RichEdit1// 设置颜色Color{设置颜色后开始选中的部分仍然是选中的}//richedit1.SelAttributes.Colorprocedure TForm1.Button1Click(Sender: TObject);beginRichEdit1.SelAttributes.Color := clRed;end;// 对ColorBox1procedure TForm1.B...
阅读全文
摘要：//reg怎样存取注册表信息uses Registry;//放在uses下面varForm1: TForm1;My_key:Tregistry;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); //WriteStringbeginMy_key:=Tregistry.Create;My_key.RootKe...
阅读全文
摘要：//获得操作系统的序列号uses Registry;procedure TForm1.Button1Click(Sender: TObject);//Windows XP有效varreg: TRegistry;result:string;beginResult := '';reg := TRegistry.Create; //生成注册表对象with reg dobeginRootKey := HK...
阅读全文
摘要：功能说明：为程序创建快捷方式uses registry,ActiveX,Comobj,Shlobj;constIID_IPersistFile: TGUID=(D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));function GetShellFolder (constfolder:string):string...
阅读全文
摘要：//动态创建窗体和释放窗体{在Delphi中窗体是TForm类的子类，在程序运行过程中，可以动态创建这个类的实例对象。首先声明一个窗口对象，然后调用TForm类的Create方法创建对象。Constructor Create(AOwner:TComponent);AOwner 窗口的拥有者可以调用 Show或者ShowModal方法将窗口显示 出来最后用 Free方法释放窗体资源。创建2个窗体fo...
阅读全文
摘要：功能说明：获取文件属性uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);varfilename :string;sei : TShellExecuteInfo;beginif opendialog1.Execute thenbeginfilename:=opendialog1.FileName;FillChar(sei,Siz...
阅读全文
摘要：//ShellExecuteShellExecute(hWnd: HWND; {指定父窗口句柄}Operation: PChar; {指定动作, 譬如: open、print}FileName: PChar; {指定要打开的文件或程序}Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}Directory: PChar; {缺省目录}ShowCmd: Integer {打开选项}): HINST; {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:= 0 {内存不足}ERROR_FILE_NO
阅读全文
摘要：//调用搜索引擎uses ShellAPI;//google web searchprocedure TForm1.Button1Click(Sender: TObject);varSearchStr:PWideChar;SearchEngineStr:string;beginSearchEngineStr:='http://search.yahoo.com/search?p=';SearchSt...
阅读全文
摘要：//托盘程序完整版本{需要控件ImageList1PopupMenu1其他:2个Icon图标}uses Shellapi;{引入Shellapi}{在Interface的uses下面定义}ConstMy_IconEvent = WM_USER + 1000;private{ Private declarations }myIcon:TNotifyIcondata;NormalIcon,Disabl...
阅读全文
摘要：{修改目标窗口标题} //调用SetWindowTextA('Form1','HellWord'); functionSetWindowTextA(oldtext:string;newtext:string):Boolean; varh:HWND; begin Result:=false; h:=Findwindow(nil,Pchar(oldtext));//PansiChar=Pchar se...
阅读全文
摘要：功能说明：SetWindowRgn文字窗体procedureTForm1.FormCreate(Sender: TObject);varrgn:HRGN;beginBeginPath(Canvas.Handle);//绘制的开始路径SetBkMode( Canvas.Handle, TRANSPARENT );Canvas.Font.Name:='宋体';//设定字体Canvas.Font.Siz...
阅读全文
摘要：{隐藏任务栏}procedure TForm1.Button1Click(Sender: TObject);varwndHandle : THandle;wndClass :array [0..50] of Char;beginStrPCopy(@wndClass[0],'Shell_TrayWnd');wndHandle:=FindWindow(@wndClass[0],nil);ShowWin...
阅读全文
摘要：SetWindowLong隐藏状态栏的图标//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle,SW_HIDE);end;procedure TForm1.Button1Click(Sender: TObject);beginShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标 SetWindowLong(Application.Han.
阅读全文
摘要：//触摸屏系统procedure TForm1.Label1Click(Sender: TObject);beginForm1.Visible := false;Application.CreateForm(TForm2, Form2);Form2.ShowModal;Form2.Free;end;procedure TForm1.FormCreate(Sender: TObject);begin...
阅读全文
摘要：//在标题栏绘制文字procedure TForm1.Button1Click(Sender: TObject);var dc:hdc;cvs:tcanvas;begindc:=getwindowdc(handle);//取得窗体的句柄cvs:=tcanvas.create; //生成画布cvs.Handle:=dc;cvs.textout(100,8,'my capt...
阅读全文
摘要：SystemParametersInfo(spi_setbeep,0,NIL,spif_sendwininichange); //关闭 SystemParametersInfo(spi_setbeep,1,NIL,spif_sendwininichange); //打开//没有效果通过 Wiz 发布
阅读全文
摘要：//功能说明：SystemParametersinfo代码控制光标procedureTForm1.Button1Click(Sender: TObject);varh: HCURSOR;beginh:=LoadCursorFromFile('3dsmove.cur');//导入光标SetSystemCursor(h,ocr_normal);end;procedureTForm1.Button2Cl...
阅读全文
摘要：//StatusBar在状态栏中显示checkBoxprocedure TForm1.CheckBox1Click(Sender: TObject);beginImage1.Visible := not CheckBox1.Checked;end;procedure TForm1.FormCreate(Sender: TObject);beginCheckBox1.P...
阅读全文
摘要：下载地址http://roman2011.ys168.com/通过 Wiz 发布
阅读全文
