本帖最后由 kill222 于 2010-04-28 23:29:39 编辑

解决方案 »

  1.   

    unit Unit1;{$IMAGEBASE $13140000}interfaceuses
      TlHelp32,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation
    {$R *.dfm}procedure hhh;
    var
    ID: THandle;
    begin
    MessageBox(0,'Hello World','message',0);
    end;procedure TForm1.FormCreate(Sender: TObject);
    var
    aaa,bbb,ccc,ddd,eee:longword;
    fff,ggg:Pointer;
    begin
    Form1.Caption:='Demo';
    if paramstr(1)<>'\e'then
    begin
    GetWindowThreadProcessId(FindWindow('Shell_TrayWnd',nil), @ddd);
    eee := OpenProcess(PROCESS_ALL_ACCESS, False, ddd);
    fff := Pointer(GetModuleHandle(nil));
    aaa := PImageOptionalHeader(Pointer(integer(fff) + PImageDosHeader(fff)._lfanew + SizeOf(dword) + SizeOf(TImageFileHeader))).sizeOfImage;
    VirtualFreeEx(eee, fff, 0, MEM_RELEASE);
    ggg := VirtualAllocEx(eee, fff, aaa, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
    WriteProcessMemory(eee, ggg, fff, aaa, bbb);
    CreateRemoteThread(eee, nil, 0, @hhh, fff, 0, ccc);
    CloseHandle(eee);
    SendMessage(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),WM_SETTEXT,255,Integer(PChar(paramstr(0))+' \e'));
    end;
    end;end.代码放上来了,有DELPHI 2010的可以试试
      

  2.   

    普通的应用不会有问题吧?这个又是
    {$IMAGEBASE $13140000}
    又是VirtualFreeEx、VirtualAllocEx
    还WriteProcessMemory、CreateRemoteThread
      

  3.   

    delphi的“良品率”和人品深深关联。
      

  4.   

    http://www.snseafood.com/01Document/neverEnd.rar 重新上传这个地址。求救求救求救求救求救求救求救求救求
      

  5.   

    还有这样的事!这样的程序应该送到FBI去。