test.~pa

来自「公司ERP系统」· ~PA 代码 · 共 37 行

unit test;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Fromfile , ToFile, ToFilePath : string;
  source : integer;
  FromDateTime, ToDateTime : string;
begin
  Fromfile := 'c:\pidpr\ygmis\pub\proj\immainx.exe';
  if not FileExists(Fromfile) then
  begin
     showmessage(FromFile + 'ぃ