delphi实现PE文件随机区段名的问题
找到这样一段代码，是一个修改PE文件随机区段名器的源码，本人是delphi菜鸟。50分求助哪位大侠改成将系统盘windows\system32下a.dll的区段随机取名的程序
unit MainFormUnit;
{
Written by pathletboy
2007.08.31
}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function CheckValidPE(F: string): Byte; //检查PE文件有效性
var
FS: TFileStream;
doshead: IMAGE_DOS_HEADER;
pehead: IMAGE_NT_HEADERS;
begin
if not (FileExists(F)) then
begin //判断文件是否存在
result := 0;
exit;
end;
try
try
FS := TFileStream.Cre
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
