摘要：
//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
阅读(185)
评论(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
阅读(87)
评论(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
阅读(162)
评论(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
阅读(171)
评论(0)
推荐(0)
摘要：
//For循环{Pascal 中的for循环严格地建立在计数器基础上，循环每执行一次，计数器不是增加一个值就是减小一个值。注意：用 Break 和 Continue 系统过程可以改变循环执行的标准流程。Break中断循环；Continue直接跳至循环测试句，或使计数器增加一个步长，然后继续循环（除非条件为空或计数器达到最大值）。还有两个系统过程 Exit 和 Halt，让你立即从函数或过程中返回，... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(124)
评论(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
阅读(142)
评论(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
阅读(92)
评论(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
阅读(129)
评论(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)
摘要：
选择结构语句IFif语句通过对条件表达式的判断，来决定程序的执行流程。if <条件表达式>then语句1;{单分支条件语句}if<条件表达式>then语句1else 语句2;{双分支条件语句}if<条件表达式1>then语句1{嵌套形式条件语句}elseif<条件表达式2>then语句2elseif<条件表达式n>then语句3......else语句n;例1：单分支条件语句判断一个数的奇偶性。（... 阅读全文
posted @ 2012-06-03 17:54
XE2011
阅读(156)
评论(0)
推荐(0)
浙公网安备 33010602011771号