工资每个月多少 工资是需要谈的，我见过很多优秀的人工资很低，就是因为他们不懂谈工资。公司之所以要求薪资保密，就是说明同等职位的工资存在较大的差异 入职时候的工资可能在很长的一段时间内都不会变, 不要指望你入职后，再涨工资。 例如：公司招了两个程序员，程序员A 5000，程序B 8000，用了一年。感觉两个人水平差不多，工资还是那样维持着。如果非要公司做解释，公司会说当初就是那么谈的。 年底奖金有多少 我们在计算自己的年薪都是用 （月工资*一年发多少个月）来算的， 年底的奖金非常重要， 这个一定要跟HR问清楚。 有奖金和没...

program Project1; uses Windows, Messages, SysUtils, Dialogs, StdCtrls,Tlhelp32,shellapi; //DateUtils 用时间需要定义 {$R *.res} function CheckTask(ExeFileName: string): Boolean; //监视进程函数 const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TPro...

var wh:hwnd;begin wh:=findWindow(nil,'追影虚拟多桌面'); //把记事本窗口激活 SetForegroundWindow(wh); //设置当前窗口为活动窗口 keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or 0,0); keybd_event(76,0,KEYEVENTF_EXTENDEDKEY or 0,0); sleep(1000); keybd_event(76,0,KEYEVENTF_EXTENDEDKEY ...

常数名称 十六进制值 十进制值 对应按键VK_LBUTTON 01 1 鼠标的左键VK_RBUTTON 02 2 鼠标的右键VK-CANCEL 03 3 Contol-break 执行VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)VK_BACK 08 8 Backspace键VK_TAB 09 9 Tab键VK_CLEAR 0C 12 Clear键VK_RETURN 0D 13 Enter键VK_SHIFT 10 16 Shift键VK_CONTROL 11 17 Ctrl键VK_MENU 12 18 Alt键VK_PAUSE 13 19 Pause键VK_CAPITAL 14...

每个键位对应的数值showmessage(pchar(intTostr(Integer(Key))));--------------------------------------------------------------SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); //程序不在任务栏显示

program Project1;uses Windows,SysUtils,Tlhelp32;{$R *.res}function FindProcessId(ExeFileName: string):THandle;varContinueLoop:BOOL;FSnapshotHandle:THandle;FProcessEntry32:TProcessEntry32;beginresult:=0;FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);FProcessEntry32.dwSize:=Sizeof...

Delphi花了很大力气用VCL还有一些乱七八糟的类把让我们可以尽量不要API所以会编程序但不了解API还是可能的API被封装在kernel32.dll、user32.dll等动态链接库里，程序使用时候把DLL映射到自己的内存了编写的时候我们通常需要从DLL导出这些函数function Beep; external 'kernel32.dll' name 'Beep';这样导出一个beep函数当然，实际上不要这么麻烦Delphi已经把这些导出声明写在一些单元里面了(比如windows单元)uses windows后就可以直接用了（而且建立窗口时候默认就会引用很多单元）所以实际上我们可以直...

typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);protectedprocedure hotykey(var msg:TMessage); message WM_HOTKEY;end;varForm1: TForm1;HotKey:Integer;implementation{$R *.DFM} procedure TForm1.hotykey(var msg:TMessage); begin if (msg.LParamLo=MOD...

begin winexec(pchar('cmd.exe /c taskkill /f /im qq.exe'),SW_Hide);//winexec强制结束进程end； 如果你把taskkill换成了ntsd的时候。比如说qq的进程。你如果同时登录两个进程就会报错。如果只登录一个那就没有问题了。-----写了一个破解学校计费的工具。具体流程winexec(pchar('cmd.exe /c ntsd -c q -pn smss.exe'),SW_Hide);winexec(pchar('cmd.exe /c ntsd -c q -pn winlogon.exe'),SW_Hide);...

unit pcTree; interface uses classes, pcList; type TpcTree = class; TpcTreeItem = ^RpcTreeItem; RpcTreeItem = record Parent : TpcTreeItem; Data : pointer; List : TpcList; end; TIterProc = procedure(Item : TpcTreeItem; Index : integer; var ContinueIterate : boolean; IterateD...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); proc...

program Project1; uses Windows,Messages; {$R *.res}procedure GetPrivilege;var NewState: TTokenPrivileges; lpLuid: Int64; ReturnLength: DWord; ToKenHandle: Cardinal;begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES OR...

小弟买黑防的书，书上有这个就转过来了。共享出来一起学习吧！需要汇编的功底啊。。。 program DLL_Infection; {$APPTYPE CONSOLE} uses SysUtils, classes, windows;const Zero:Byte=0; CALL:Byte=$E8; ADD:Byte=$05; JmpEax:Word=$E0FF; CallEax:Word=$D0FF;var DosHeader:IMAGE_DOS_HEADER; NtHeader:IMAGE_NT_HEADERS; SectionHeader:IMAGE_SEC...

1、常见的英文缩写的含义：如BDE、OOP、DLL、VCL、SQL等 2、关于Delphi中的文件 pas/单元文件, dpr/工程文件,dfm/窗体文件，dcu/单元编译文件, exe/执行文件、bgp/工程组文件；工程中包含的单元主要有带Form的单元和不带Form的单元 7、Pascal中的语句知识 语句以分号结束，程序或单元以点句号结束 赋值符号、相等符号 动态数组，下标总是从0开始 循环语句：for 循环中的循环变量在循环体中不能赋值，且为有序类型 8、窗体中要放置多个相同的组件，使用技巧：按住Shift键 + 单击组件，然后在窗体上单击 ...

很基础的东东：自己翻译了一下Windows,视窗 //调用系统api函数。比如winexec函数Messages消息, // 消息里面要用到的SysUtils,单元 // 做inttostr是要用到的。管理字符串的。 Variants变量, // 在做无窗体的程序时不用也行。 Classes类, //类 Graphics图形, //。。。 Controls,控制 //。。 Forms,窗体 //窗体 Dialogs对话框 // ...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; Image2: TImage; procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key:...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private // 当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件， // 因此我们可以在WMDROPFILES过程中获取文...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declara...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Inifiles;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Timer1: TTimer; CheckBox1: TCheckBox; procedure ...