unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids, DirOutln, Buttons, DdeMan,shlobj,comobj,activex; type TForm1 = class(TForm) Image1: TImage; Label1: TLabel; ...
[ 查看全文 ]