Question

Delphi 解释 程序 代码

帮我写写Delphi代码，功能就是读取 123.txt 中的代码为
# Dream for You
# My program
{
start "C:\Windows\Notepad.exe";
print "Hello!";
}
遇到 # 则不执行后面的代码，遇到 { 则开始, 遇到 start 则是打开 " " 里的 那个文件
遇到 print 则相当于 writeln 的功能，遇到 } 则结束：）谢谢合作：）

Answer 1

var
sl : TStringList
s : string;
s1: string;
I : Integer;
begin
sl := TStringList.Create;
sl.LoadFromFile('c:\123.txt');
for I:=0 to sl.Count-1 do begin
s := trim(sl[I]);
if s[1]<>'#' then begin
if copy(s,1,5)='start' then begin
WinExec('....')
end else if copy(s,1,5)='print' then begin
Writeln(copy(s,6,100));
end;
end;
end;
end;

Answer 2

0x62}
MOV EDX,DWORD PTR [EBP-4]
MOV BYTE PTR [EDX+131244],AL //在这里设断点,al值如果是0改成1,不然就改成0,应该是可以成功注册的.至于是神马意思,您看调用的函数名难道猜不出来么??????

而且你确定这段代码是核对注册码的????我怎么觉得只是保存注册表键值的??????