摘要： procedure TForm3.FormCreate(Sender: TObject); begin Self.Paint; end; function ByteToHex(Src: Byte): String; begin SetLength(Result, 2); asm MOV EDI, [Result] MOV EDI, [ED... 阅读全文