摘要：procedure TForm1.btn1Click(Sender: TObject);begin mmo1.SetFocus ; keybd_event(VkKeyScan('n'),1,0,0); keybd_event(VkKeyScan('n'),1,KEYEVENTF_KEYUP,0); keybd_event(VkKeyScan('o'),1,0,0); keybd_event(vkkeyscan('o'),1,keyeventf_keyup,0); keybd_event(VK_RETURN,$b8,0 , 0); 阅读全文

摘要：每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法，但不得不承认，HOOK是一个比较简单解决问题的途径。 下面就来举个例子（使用Delphi7.0调试通过）： 如果你需要访问某个人的机器，那在运行\\SB之后那个人就会在你机器上敲入他的adminsitrator密码，当然，你也可以使用黑客工具来得到他的.. 阅读全文

摘要：SetCursorPos(x,y:integer);GetCursorPos(lpPoint:TPoint);ClipCursor(lpRect：PRect);Screen.Width,Screen.Height;//uses Forms;beginmouse_event(MOUSEEVENTF_MOVE, 100, 100, 0, 0); //模拟鼠标移动end;procedure TForm1.Button3Click(Sender: TObject);beginSetCursorPos(10, 10);mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 阅读全文

摘要：Delphi_Beep_送别view plaincopy to clipboardprint?program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; {* 送别 歌手:青燕子演唱组 专辑:森林和原野 作词:李叔同(弘一大师) *} const ONE_BEEP = 600; HALF_BEEP = 300; { NOTE_1 = 440; NOTE_2 = 495; NOTE_3 = 550; NOTE_4 = 587; NOTE_5 = 660; NOTE_6 = 733; NOTE_7 = 825; } NOTE_1 = 4 阅读全文

摘要：program Project1;uses SysUtils ;begin Sleep(1000);end. 阅读全文

摘要：编辑器加载中...program Project1;uses Windows ;begin MessageBox(0,'这里是提示框的内容哦','提示框的标题哦',MB_SYSTEMMODAL)end. 四个参数 分别是 hwnd pansichar pansichar cardinal 阅读全文

摘要：program Project1;uses Windows ;begin Sleep(1000); MessageBeep($ffffffff); Sleep(1000); MessageBeep(MB_ICONASTERISK); Sleep(1000); MessageBeep(MB_ICONEXCLAMATION); Sleep(1000); MessageBeep(MB_ICONHAND ); Sleep(1000); MessageBeep(MB_ICONQUESTION); Sleep(1000); MessageBeep(MB_OK ); Sleep(1000);end. 很好听 阅读全文

摘要：program Project1;uses SysUtils,//getcurrent,extrafilepath System,//ParamStr Forms,//application Dialogs;//showmessagebegin ShowMessage(ExtractFilePath(ParamStr(0))); ShowMessage(ExtractFilePath(application.ExeName)); showmessage(GetCurrentDir+'\');end. 无启动窗体。无消息循环。 阅读全文