阿？比如
if FileExists('user.dll') then
begin
正确
end
else
begin
showmessage('未发现user.dll 程序无法正常工作');
Application.Terminate;
end;
改称检测config.txt里面的内容 该怎么实现？
procedure TForm1.FormCreate(Sender: TObject);
var
aFile: TextFile;
strTmp,strText: String;
begin
if not FileExists('Config.txt') then
begin
ShowMessage('配置文件丢失');
Exit;
end;
strTmp := '';
AssignFile(aFile,'Config.txt');
Reset(aFile);
while not Eof(aFile) do
begin
Readln(aFile,strTmp);
strText := strText + strTmp;
end;
if Pos('1234566',strText) > 0 then
启动Timer1
else
Close;
end;
var
s: tstringlist;
ct: string;
begin
ct := '';
if FileExists('config.txt') then
begin
s := tstringlist.create;
s.loadfromfile('config.txt');
if trim(s.text) <> '' then
ct := s[0];
s.free;
end;
if ct = '你检测的内容' then
//正常的就执行下面的语句
else
Application.Terminate; //关闭
end;
Function TForm1.LoadFromTxt(MyFileName:String):String;
Var
S:TStringList;
begin
Result:='';
S:=TStringList.Create;
Try
S.LoadFromFile(MyFileName);
Result:=S.Text;
Finally
S.Free;
End;
End;
edit1.text:=LoadFromTxt('config.txt');
if edit1.text='1234566' then
打開文件。
else
關閉文件。
end;
