• uses shellapi;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      LinkLabel1.Caption:='<a href="www.baidu.com" target="_blank">test</a>';
    end;

    procedure TForm1.LinkLabel1LinkClick(Sender: TOb...
  • [转自:http://www.cnblogs.com/del/archive/2009/02/22/1396164.html]

    以前曾用 GetWindowsDirectory、GetSystemDirectory、GetTempPath 等函数获取系统常用文件夹;

    也用过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取过更多常用路径;

    但这都不如用 GetEnvironme...
  • [转自http://www.cnblogs.com/liunatural/archive/2009/07/08/1519019.html]

    在Windows的shellapi文件中定义了一个名为SHFileOperation()的外壳函数,用它可以实现各种文件操作,如文件的拷贝、删除、移动等,该函数使用起来非常简单,它只有一个指向SHFILEOPSTRUCT结构的参数。使用SHFileOperation()函数时只要填写该专用结构--SHFILEOPSTRUCT,告诉Win...
  • #include <stdio.h>
    #include <windows.h>

    int main(int argc, char* argv[])
    {
    LCID language;
    language=GetSystemDefaultLCID();
    switch(language)
    {
    case 2052:
      printf("中文(中国)\n");
    &nbs...

  • “Winlogon通知包(Winlogon Notification Package)”就是处理winlogon在切换状态时发出的事件的DLL。你可以通过“Winlogon Notification Package”来监视winlogon事件的响应。你可以注册这些DLL,那么winlogon.exe会在启动时加载它们,并且会在系统状态切换时来调用注册DLL的事件处理函数。当然这一点用来加载后门是在好不过了,因为加载的后门存在于winlogon.exe的...
  • 使用.manifest文件不费任何力气就可以在xp系统里实现xp风格的控件,但是这样做有一点不方便的地方就是manifest必须放到exe所在目录,如下做法可以将manifest文件放到资源文件中,编译后生成.res文件,link后自然就和.exe文件“合”到一起了。  

      .manifest文件内容如下: 

      <?xml version="1.0" encoding="UTF-8" standalone="ye...
  • 相信很多朋友都很想了解如何禁止Windows的文件保护,下面介绍如何禁止Windows文件保护(WFP)
    我们先来了解下WFP是如何工作的。相关的文件是sfc_os.dll(2000下是sfc.dll,在xp下也有sfc.dll文件,但都是调用sfc_os.dll的功能)和 Winlogon.exe 。
    Winlogo进程通过调用sfc dll 导出的函数进行文件保护,后者通过FindFirstChangeNotification函数在用户态监视要保护的目录,然后通过WaitFo...
  • 64位机器可以运行32/64位操作系统,而32位机器只能运行32位操作系统,这样就有一个问题,对于一个64位机器,如何判断操作系统究竟是32位还是64位呢?
       总结了一下,基本方法如下:

    1.linux:
    #file /sbin/init
    /sbin/init: ELF <b>;32-bit</b>; LSB executable, Intel 80386......

    2.hpu...
  • C++程序员一定很郁闷C++标准里没有现成的MD5函数,不过还好Windows的CryptoAPI提供有,下面是MSDN里的例子,我稍加改动了,使之更容易使用:


    #include <windows.h>
    #include <tchar.h>

    //计算MD5,成功返回0,失败返回GetLastError()
    DWORD MD5(__in_bcount(dwDataLen) const LPVOID pD...
  • var   S: string;   T: TSHFileOpStruct; begin     S := '目录名';     with T do     begin       Wnd := 0;       wFunc := FO_DELETE;       pFro...