unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Application.ShowMainForm:=False; // //MessageBox(Handle,‘警告信息框‘,‘警告信息框‘,MB_ICONWARNING); //WinExec(‘C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe‘,sw_normal); WinExec(‘kk.bat‘,SW_HIDE); //Close; application.terminate; end; end.
delphi 7 下载地址 http://www.pc0359.cn/downinfo/66072.html
原文地址:https://www.cnblogs.com/pengchenggang/p/10159688.html
时间: 2024-11-09 02:28:46