unit4.pas

来自「由DELPHI制作的可以直接抓取屏幕,并在上面写字绘图的一个软件,请指正.」· PAS 代码 · 共 46 行

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm4 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  cdir:string;
implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
  setlength(cdir,144);
  if getcurrentdirectory(144,pchar(cdir))<>0 then
  begin
    setlength(cdir,strlen(pchar(cdir)));
    cdir:=cdir+'\SHULUWENZI.txt';
    Memo1.Lines.LoadFromFile(cdir);
  end;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(cdir);
  form4.Close;
end;

end.