tpfox的博客

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObje

varminDate, maxDate: TDateTime;dateseparator := ‘-’; // 日期分隔符shortdateformat := ‘yy-mm-dd’; // 短日期格式longdateformat := ‘yyyy-mm-dd’; // 长日期格式application.UpdateFormatSettings := false;if not TryStrToDate(edtDate1.Text, minDate) thenbeginShowmessage(‘

请在interface处uses句中加入ShellAPI有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂，比较少用。2.WinExec主要运行EXE文件。如：WinExec(‘Notepad.exe Readme.txt’, SW_SHOW);3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。首先必须引用shellapi.pas单元：uses ShellAPI;1).标准