procedure TForm_yhdl.FormCreate(Sender: TObject);
var s:string;
regf:Tregistry;
begin
regf:=Tregistry.Create;
regf.RootKey:=HKEY_CURRENT_USER;
if regf.OpenKey('dcthm',false) then
begin
if regf.ReadString('dcthm')<>'dcthm' then
exit;//在这里要终止程序地运行,应该怎么写 ,这个窗体是程序初始化的登陆窗体。
regf.CloseKey;
end
else
exit;
clo:=true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货