发表于 2009-1-5 19:48
| 
鐢―EPHI涓哄簲鐢ㄨ蒋浠跺缓绔嬫敞鍐屾満鍒
鍙戝竷: 2008-6-26 20:30 | 浣滆: admin | 鏌ョ湅: 6娆
width="84%">鐢―EPHI涓哄簲鐢ㄨ蒋浠跺缓绔嬫敞鍐屾満鍒
銆銆濡備綍淇濇姢鑷繁鐨勮蒋浠朵笉琚潪鎺堟潈鐩楃敤鐨勯棶棰橈紝濮嬬粓鍥版壈鐫姣忎竴涓▼搴忓憳銆傚綋鍓嶄笘鐣屼笂淇濇姢杞欢鐨勬柟娉曟湁寰堝锛屼富瑕佹槸閲囩敤鍔犲瘑锛堝鍔犺蒋浠剁嫍锛夋柟寮忔垨杞欢娉ㄥ唽鏂瑰紡銆備娇鐢ㄨ蒋浠剁嫍绛夊姞瀵嗘柟娉曪紝铏界劧鍏朵繚鎶ゆ渶鏈夋晥锛屼絾瀵规巿鏉冪敤鎴风殑姝ｅ父浣跨敤鏈変竴瀹氱殑褰卞搷锛岃屼笖杞欢鍙戞斁姣旇緝澶嶆潅锛屽湪瀹為檯杩愮敤涓瘮杈冨皯琚噰鐢ㄣ傝屾敞鍐岀櫥璁版柟寮忓垯鏄綋鍓嶆渶娴佽銆佽繍鐢ㄦ渶骞挎硾鐨勬柟娉曪紝铏界劧鏈夎澶氶氱敤杞欢鍏舵敞鍐岀爜鍙互寰堝鏄撳湴琚彂鐑у弸浠墍瑙ｏ紝浣嗗浜庣嫭绔嬬▼搴忓憳涓烘煇鐗瑰畾搴旂敤璁捐鐨勫簲鐢ㄨ蒋浠惰岃█锛岄噰鐢ㄦ敞鍐屾満鍒舵樉寰楁渶缁忔祹銆佹渶鏂逛究锛岃屼笖鍦ㄤ竴瀹氱殑鑼冨洿鍐呴潪甯告湁鏁堛傜瑪鑰呭湪瀹為檯宸ヤ綔涓紝骞挎硾浣跨敤浜嗚蒋浠舵敞鍐屾柟娉曪紝鏈夋晥鍦扮淮鎶や簡杞欢鐨勬潈鐩娿
銆銆DEPHI杞欢鐨勫姛鑳芥瀬涓哄己澶э紝娣卞彈绋嬪簭鍛樺枩娆€傜敤DEPHI寮鍙戠殑杞欢锛屽彲浠ュ緢鏂逛究鍦板姞鍏ユ敞鍐屾満鍒躲備笅闈㈢瑪鑰呭氨濡備綍鍦―EPHI寮鍙戠殑杞欢涓姞鍏ユ敞鍐屾満鍒朵笌鏈嬪弸浠氦娴佸績寰椼
銆銆瑕佸疄鐜拌蒋浠舵敞鍐屾満鍒讹紝闇瑙ｅ喅浠ヤ笅鍑犱釜闂锛1銆佸浣曞姞鍏ユ敞鍐屾娴嬶紝鍒ゆ柇杞欢鏄惁娉ㄥ唽锛2銆佸浣曢殣钘忔敞鍐岀爜锛屽強鏄惁娉ㄥ唽鐨勬爣蹇楋紱3銆佸湪杞欢涓嶆敞鍐屾儏鍐典笅锛屽浣曢檺鍒惰蒋浠剁殑浣跨敤鏃堕棿鎴栨鏁帮紱4銆佸姝ｅ父鐢ㄦ埛鑰岃█锛屼笉搴旈犳垚浣跨敤涓嶄究銆傚浜庝互涓婂洓涓棶棰橈紝濡備綍闅愯棌娉ㄥ唽鐮佸強鏄惁娉ㄥ唽鐨勬爣蹇楁槸鍏抽敭銆傚湪WINDOWS95涓紝WIN95鏈韩鍙婂ぇ澶氭暟鐨勫簲鐢ㄨ蒋浠堕兘灏嗗叾鍚勭鍙傛暟鏀惧叆娉ㄥ唽琛ㄤ腑锛屽洜鑰屾敞鍐岃〃鍐呯殑鏁版嵁鏄惧緱鏋佷负搴炲ぇ鍜屽鏉傘傚鏋滃皢娉ㄥ唽鏍囧織闅愯棌鍦ㄦ敞鍐岃〃鐨勬煇涓瑙掕惤涓紝鎯宠鎵惧埌瀹冨苟鐞嗚В瀹冩槸鏋佸叾鍥伴毦鐨勪簨銆傚洜姝ゆ垜浠彲浠ュ埄鐢ㄨ繖涓鐐癸紝鍦ㄦ敞鍐岃〃鐨勬煇涓垎鏀笂璁剧疆涓涓粠鍚嶇О涓婄湅姣棤鐗规畩鎰忎箟鐨勫叧閿瓧锛屽皢鑷繁杞欢鐨勬敞鍐屾爣蹇楁暟鎹瓨鏀惧湪杩欓噷銆備互涓嬫槸鏁翠釜娉ㄥ唽鏈哄埗鐨勬祦绋嬫鍥撅細
銆銆浠庝笂鍥惧彲浠ョ湅鍑猴紝鏁翠釜娉ㄥ唽鏈哄埗涓昏鐢变袱涓儴鍒嗙粍鎴愶細妫鏌ュ拰娉ㄥ唽銆傞氳繃妫鏌ユ爣蹇楀硷紝寰楀嚭杞欢鏄惁宸叉敞鍐岋紱鑻ユ病鏈夋敞鍐岋紝鍒欒鐪嬪畠鍏佽浣跨敤鐨勬鏁版槸鍚﹀凡杈惧埌锛涜嫢鍙娇鐢ㄧ殑娆℃暟宸茬敤瀹岋紝鍒欏簲鎻愮ず鐢ㄦ埛杈撳叆娉ㄥ唽鐮侊紝杩涜娉ㄥ唽锛涘彧鏈夌敤鎴疯緭鍏ョ殑娉ㄥ唽鐮佹纭椂锛屾墠璁╃敤鎴风户缁娇鐢ㄨ蒋浠讹紝鍚屾椂灏嗘爣蹇楃疆涓哄凡娉ㄥ唽锛岃鐢ㄦ埛姘镐箙鎬т娇鐢紱鍚﹀垯鍏佽浣跨敤鐨勬鏁版湭杈惧埌锛屽簲灏嗘鏁板姞涓锛涜嫢鐢ㄦ埛娉ㄥ唽杈撳叆鐨勬敞鍐岀爜閿欒鎴栨嫆缁濇敞鍐岋紝鍒欑洿鎺ュ叧闂蒋浠讹紝鎷掔粷鍏剁户缁娇鐢ㄣ傚綋鐒讹紝鍦ㄨ蒋浠跺厑璁镐娇鐢ㄦ鏁版湭杈惧埌鏃讹紝涔熷簲閫氳繃鑿滃崟椤逛负鐢ㄦ埛鎻愪緵鏈轰細杩涜娉ㄥ唽鐧昏銆備互涓嬫槸绗旇呭湪瀹為檯寮鍙戜腑锛屽缓绔嬫敞鍐屾満鍒剁殑绋嬪簭浠ｇ爜鍙婃敞閲娿
鍋囪杞欢鐨勪富绋嬪簭绐楀彛涓篎ORM1锛屽垯灏嗚娈典唬鐮佺疆鏀惧湪FORM1.CREATE浜嬩欢涓備唬鐮佸涓嬶細
procedure TForm1.form1create(Sender:
TObject);
var
re_id:integer;
registerTemp : TRegistry;
inputstr,get_id:string;
dy,clickedok:boolean;
begin
銆dy:=false; //杞欢鏄惁宸插埌娉ㄥ唽鏈熴佸強鏄惁鍏佽缁х画浣跨敤鐨勬爣蹇楋紝褰撳间负FALSE鏄负鍏佽浣跨敤銆
銆registerTemp := TRegistry.Create; //鍑嗗浣跨敤娉ㄥ唽琛
銆with registerTemp do
銆begin
銆銆銆RootKey:=HKEY_LOCAL_MACHINE; //瀛樻斁鍦ㄦ鏍逛笅
銆銆銆if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark',True) then
銆銆銆銆//
寤轰竴鐩綍锛屽瓨鏀炬爣蹇楀笺傚綋鐒朵篃鍙互瀛樻斁鍦ㄥ凡瀛樺湪鐨勭洰褰曚笅銆傛庝箞鏍凤紝寰堥毦鍙戠幇鍚э紵
銆銆銆銆begin
銆銆銆銆銆if valueexists('gc_id') then begin //鐢╣c_id鐨勫间綔涓烘爣蹇楋紝棣栧厛鍒ゆ柇鍏跺瓨鍦ㄥ惁锛
銆銆銆銆銆銆銆re_id:=readinteger('gc_id');//璇诲嚭鏍囧織鍊
銆銆銆銆銆銆銆if (re_id<>0) and (re_id<>100) then begin //鑻ユ爣蹇楀间负0锛屽垯璇存槑宸叉敞鍐屻
銆銆銆銆銆銆銆銆銆銆銆銆銆銆//鑻ヤ笉涓0涓斿间笉鍒100,璇存槑铏芥湭娉ㄥ唽锛屼絾鍏佽浣跨敤鐨勬鏁板皻鏈揪鍒般
銆銆銆銆銆銆銆銆re_id:=re_id+5; //鍏佽鏍囧織鐨勬渶澶у间负100锛屾瘡娆″姞5锛屽垯鏈澶氬彧鍙敤20娆°
銆銆銆銆銆銆銆銆Writeinteger('gc_id',re_id);//灏嗘洿鏂板悗鐨勬爣蹇楀煎啓鍏ユ敞鍐岃〃涓
銆銆銆銆銆end;
銆銆銆銆銆if re_id=100 then dy:=true; //鍋囧鍊煎凡鍒100锛屽垯搴旀敞鍐屻
銆銆銆銆end
銆銆銆else Writeinteger('gc_id',5);//寤虹珛鏍囧織锛屽苟缃垵濮嬫爣蹇楀笺
銆銆end;
銆銆if dy then begin //鑻y鍊间负TRUE锛屽垯搴旀彁绀虹敤鎴疯緭鍏ユ敞鍐岀爜锛岃繘琛屾敞鍐屻
銆銆銆銆clickedok:=InputQuery('鎮ㄤ娇鐢ㄧ殑鏄潪娉ㄥ唽杞欢,璇疯緭鍏ユ敞鍐岀爜锛','
',inputstr);
銆銆銆銆if clickedok then begin
銆銆銆銆銆銆get_id:=inttostr(27593758*2);//娉ㄥ唽鐮佷负55187516锛屽綋鐒跺彲鍔犲叆鏇存潅鐨勭畻娉曘
銆銆銆銆銆銆if get_id=inputstr then begin
銆銆銆銆銆銆銆銆Writeinteger('gc_id',0);//鑻ヨ緭鍏ョ殑娉ㄥ唽鐮佹纭紝鍒欏皢鏍囧織鍊肩疆涓0,鍗冲凡娉ㄥ唽銆
銆銆銆銆銆銆銆銆CloseKey;
銆銆銆銆銆銆銆銆Free;
銆銆銆銆銆銆銆end
銆銆銆銆銆銆else begin //鑻ヨ緭鍏ョ殑娉ㄥ唽鐮侀敊璇紝搴斾綔鍑烘彁绀哄苟鎷掔粷璁╁叾缁х画浣跨敤
銆銆銆銆銆銆銆銆application.messagebox('娉ㄥ唽鐮侀敊璇!璇蜂笌浣滆呰仈绯!','璀﹀憡妗',mb_ok);
銆銆銆銆銆銆銆銆CloseKey;
銆銆銆銆銆銆銆銆Free;
銆銆銆銆銆銆銆銆application.terminate; //涓绋嬪簭杩愯锛屾嫆缁濊鍏剁户缁娇鐢
銆銆銆銆銆銆銆end;
銆銆銆銆銆銆end
銆銆銆銆else begin //鑻ョ敤鎴蜂笉杈撳叆娉ㄥ唽鐮侊紝涔熷簲浣滃嚭鎻愮ず骞舵嫆缁濊鍏剁户缁娇鐢
銆銆銆銆銆銆application.messagebox('璇蜂笌浣滆呰仈绯伙紝浣跨敤娉ㄥ唽杞欢!','璀﹀憡妗',mb_ok);
銆銆銆銆銆銆CloseKey;
銆銆銆銆銆銆Free;
銆銆銆銆銆銆application.terminate;
銆銆銆銆銆end;
銆銆end;
銆end;
end;
