Delphi Jmp 程序

發文回覆瀏覽次數：1254

推到 Plurk!

推到 Facebook!

n4chen
一般會員

發表：9
回覆：7
積分：3
註冊：2011-05-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-07-29 23:55:14

IP:59.104.xxx.xxx 訂閱

這是我亂寫寫出來的就是用ASM Call API = =
最近在學習ASM 瞞菜鳥的程序

unit APICall;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

procedure FFF();

var

procAddr:Pointer;

implementation

{$R *.dfm}

procedure FFF();

begin

MessageBox(0,PChar('test'),PChar('asm call MsgBox'),MB_OK);

asm

nop

// 執行兩句空指令

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

procAddr:=@FFF; // 指向 FFF 程序地址

asm

jmp procAddr

end;

end.

編輯記錄

n4chen 重新編輯於 2011-07-29 09:55:44，註解無‧

系統時間：2025-02-23 1:26:29

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！