技巧分享：計算機(jī)二級考試DELPHI基礎(chǔ)開發(fā)技巧

　　◇[DELPHI]關(guān)于處理注冊表

　　uses Registry;

　　var reg:Tregistry;

　　reg:=Tregistry.create;

　　reg.rootkey:=''HKey_Current_User'';

　　reg.openkey(''Control Panel\Desktop'',false);

　　reg.WriteString(''Title Wallpaper'',''0'');

　　reg.writeString(''Wallpaper'',filelistbox1.filename);

　　reg.closereg;

　　reg.free;

　　◇[DELPHI]關(guān)于鍵盤常量名

　　VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE

　　/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN

　　F1--F12:$70(112)--$7B(123)

　　A-Z:$41(65)--$5A(90)

　　0-9:$30(48)--$39(57)

　　◇[DELPHI]初步判斷程序母語

　　DELPHI軟件的DOS提示:This Program Must Be Run Under Win32.

　　VC++軟件的DOS提示:This Program Cannot Be Run In DOS Mode.

　　◇[DELPHI]操作Cookie

　　response.cookies("name").domain:=''http://www.086net.com'';

　　with response.cookies.add do

　　begin

　　name:=''username'';

　　value:=''username'';

　　end

　　◇[DELPHI]增加到文檔菜單連接

　　uses shellapi,shlOBJ;

　　shAddToRecentDocs(shArd_path,pchar(filepath));//增加連接

　　shAddToRecentDocs(shArd_path,nil);//清空

　　◇[雜類]備份智能ABC輸入法詞庫

　　windows\system\user.rem

　　windows\system\tmmr.rem

　　◇[DELPHI]判斷鼠標(biāo)按鍵

　　if GetAsyncKeyState(VK_LButton)<>0 then ... //左鍵

　　if GetAsyncKeyState(VK_MButton)<>0 then ... //中鍵

　　if GetAsyncKeyState(VK_RButton)<>0 then ... //右鍵

　　◇[DELPHI]設(shè)置窗體的最大顯示

　　onFormCreate事件

　　self.width:=screen.width;

　　self.height:=screen.height;

　　◇[DELPHI]按鍵接受消息

　　OnCreate事件中處理:Application.OnMessage:=MyOnMessage;

　　procedure TForm1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);

　　begin

　　if msg.message=256 then ... //ANY鍵

　　if msg.message=112 then ... //F1

　　if msg.message=113 then ... //F2

　　end;