摘要：
//计算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以内... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(772)
评论(0)
推荐(0)
摘要：
//repeat loop {repeat...until (True);...}通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(239)
评论(0)
推荐(0)
摘要：
//循环按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)... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(186)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(88)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(164)
评论(0)
推荐(0)
摘要：
//if 条件语句条件语句通过条件检测，判断是否执行该条件语句中包含的语句。条件语句可有两种基本形式：if语句和case语句。If语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。procedure TForm1.Button1Click(Sender: TObject);begin// simple if statementi... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(200)
评论(0)
推荐(0)
摘要：
//For循环{Pascal 中的for循环严格地建立在计数器基础上，循环每执行一次，计数器不是增加一个值就是减小一个值。注意：用 Break 和 Continue 系统过程可以改变循环执行的标准流程。Break中断循环；Continue直接跳至循环测试句，或使计数器增加一个步长，然后继续循环（除非条件为空或计数器达到最大值）。还有两个系统过程 Exit 和 Halt，让你立即从函数或过程中返回，... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(127)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
//列举正在运行的程序uses ShellApi;{在interface下面type上面输入}const MY_MESSAGE = WM_USER + 100;procedure TForm1.Button1Click(Sender: TObject);varhCurrentWindow:HWnd;szText:array[0..254] of char;beginhCurrentWindow :... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(143)
评论(0)
推荐(0)
摘要：
//取得可执行文件的图标publicProcedure NextIcon;{ Public declarations }{在implementation下面引用};uses ShellAPI;procedure TForm1.NextIcon;varCount : Integer;FileName : String;i:integer;beginif( FileName <> Edit1.Text... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(174)
评论(0)
推荐(0)
摘要：
//设置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... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(94)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(152)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(130)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);end;通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(232)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(328)
评论(0)
推荐(0)
浙公网安备 33010602011771号