2012年2月2日

屏蔽F1的练习（hook）

摘要： //-----------勾子判断按键方法-------function LowLevelKeyboardProc(Wnode: Integer; Wparam: WPARAM; Lparam: LPARAM):LRESULT;stdcall;type KeyHook = record VKcode: DWORD; ScanCode: DWord; Flags: DWord; Time: DWord; dwExtraInfo: DWord; end;var p : ^keyhook;begin Result := 0; p := Pointer(Lpar... 阅读全文

posted @ 2012-02-02 15:48 long6 阅读(432) 评论(0) 推荐(1)

隐藏系统的任务栏、桌面图标

摘要： //--------Flag 为全局变量，初始化为false//--------Shell_TrayWnd 为系统任务栏窗口的类名//------这里是隐藏任务栏的---------------------procedure TForm2.Button3Click(Sender: TObject);var h: HWND;begin h := FindWindow('Shell_TrayWnd', nil); if (h <> 0) and (flag = False) then begin ShowWindow(h, SW_SHOW); flag := True 阅读全文

posted @ 2012-02-02 14:38 long6 阅读(460) 评论(0) 推荐(0)

取得计算机名（delphi ）

摘要： //------非常简单------------------------procedure TForm2.Button2Click(Sender: TObject);var s: Cardinal; p: PChar;begin s := MAX_COMPUTERNAME_LENGTH + 1; GetMem(p, s); if GetComputerName(p,s) then begin caption := StrPas(p); end else ShowMessage('取不到计算机名'); FreeMem(p); //记得一定要释放end; 阅读全文

posted @ 2012-02-02 11:56 long6 阅读(311) 评论(0) 推荐(1)

导航