Îҵİ汾ÊÇUpdate4 ÊDz»ÊÇ Òª×öʲ麼ÅäÖÃ? var hModule:Thandle; Pcall:pointer; installkeyProc:function ():boolean; begin hModule:=LoadLibrary('DllM.dll'); Pcall:=GetProcAddress( hModule, 'installKeyProc'); installkeyProc:=Pcall; if (Pcall=nil) then begin self.Caption:='δ³É¹¦»ñÈ¡º¯ÊýµØÖ·';exit;end; installkeyProc(); Button1.Enabled := False;
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£ ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿ Çë¸÷λ°ï°ï棬лл£¡ if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then begin ......