天行健,君子以自强不息;地势坤,君子以厚德载物。


预览模式: 普通 | 列表

提升进程权限为DEBUG权限

在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下.那个后门真的写的很好...
Hysia提示你:
这个函数用在对付病毒的程序中效果很好,只有提升自身权限才能KILL掉病毒进程我曾写写出来尝试结束Winlogon进程,导致的结果是,我的电脑立刻蓝屏后重启!

//提升进程权限为DEBUG权限

查看更多...

Tags: 进程 权限 Debug Winlogon

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 307

Delphi下DBGrid的自绘

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: integer;
begin

查看更多...

Tags: Delphi DBGrid 自绘

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 265

Delphi检测网络连接状态

       有时候,我们做一些小软件就需要检测网络连接状态,比如想给你的软件加上类似QQ那样的系统消息,可是像我这样的穷人肯定是买不起服务器了,那我们只好另想办法,可以读取网页然后用浏览器显示,这个时候就需要判断网络状态。
    我目前采用的判断方式有两种:

1.采用WinInet方式:

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 399

delphi 打开记事本并写入内容

procedure TForm.ButtonClick(Sender: TObject);
var
    hEdit: HWND;
    str: string;
begin

查看更多...

Tags: Delphi 记事本 SendTextMessage

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 155

Delphi使用INDY获取计算机名和IP


在Indy Misc组里有一个IdIPWatch组件可以很简单的获取本机的计算机名和IP地址。
procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 519

Delphi使用NB30单元获取NetBIOS

function GetNetBIOSAddress : string;
var
  ncb: TNCB;
  status: TAdapterStatus;
  lanenum: TLanaEnum;

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 160
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 297

Delphi下创建异形窗体

procedure TForm1.FormCreate(Sender: TObject);
var
  pt: array [0 .. 4] of TPoint;
  m_rgn: HRGN;
begin

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 192

使用SndPlaySound从内存中播放WAV

有些时候,我们写的程序需要播放音乐,一般大家会采用以下几种方式:1.把音乐文件放置在某个特定的目录,例如Sound,WAV,Music供程序读取播放;2.使用资源来存放音乐。有些人估计也是使用这个方法的,不过大部分人可能是先从资源里把音乐文件释放出来,然后再去读取播放。我今天要介绍的方式是直接把音乐文件载入内存,然后从内存中进行读取播放。好了给代码吧:
var
  hResInfo: THandle;
  PtrSound: Pointer;
begin

查看更多...

Tags: Delphi SndPlaySound WAV

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 330