Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖÐ×ÊÔ´ÎļþʹÓ÷½·¨Ïêϸ½²Êö


Ò»£®±àд RC ½Å±¾Îı¾
¡¡¡¡ÓüÇʱ¾»òÆäËüÎı¾±à¼­Æ÷±àдһ¸öÀ©Õ¹ÃûΪ“.rc”µÄÎļþ¡£¸ñʽÈçÏ£º
¡¡¡¡AVI ÎÞÉù¶¯»­
¡¡¡¡BITMAP λͼÎļþ
¡¡¡¡CURSOR ¹â±êÎļþ
¡¡¡¡ICON ͼ±êÎļþ
¡¡¡¡WAVE ÉùÒôÎļþ
      ÒÔÉÏËùÁоùΪ±ê×¼×ÊÔ´ÀàÐÍ£¬Ò²¿ÉÒÔ¸ø×ÊÔ´×Ô¶¨ÒåÒ»¸öÀàÐÍ£¬È磺“mytype”¡£²»¹ýÁ½ÕßÔÚµ÷Ó÷½Ê½ÉÏÓÐЩ²»Í¬¡£
 
¶þ£®¸ù¾Ý RC ½Å±¾Îļþ±àÒë³É RES ×ÊÔ´Îļþ
¡¡¡¡ÔÚÃüÁîÌáʾ·ûÖÐÊäÈëÒÔÏÂÄÚÈÝ£º brcc32 FileName.rc //×¢£ºbrcc32.exeÔÚDelphiX\BinĿ¼ÖÐ
 
Èý£®ÔÚDelphiµ¥ÔªÖмÓÈë×ÊÔ´Îļþ
        ½«Éú³ÉµÄ RES ×ÊÔ´Îļþ¸´ÖƵ½ÏàÓ¦³ÌÐòËùÔÚµÄĿ¼ÖУ¬ÔÚµ¥ÔªÎļþÖеē{$R *DFM}”ºóÃæ¼ÓÉÏ“{$R FileName.res}”£¬±àÒëºó×ÊÔ´Îļþ¾Í±»°üº¬ÔÚ¿ÉÖ´ÐÐÎļþÖÐÁË¡£
        ËµÃ÷£ºÈç¹ûÏÓ2¡¢3Á½²½Âé·³£¬¿ÉÒÔ²ÉÓøü¼ò±ãµÄ×ö·¨£¬¼´£º½« RC ÎļþÖ±½ÓÌí¼Óµ½ÏîÄ¿ÖУ¬ÔÚ±àÒëDelphiÏîĿʱ£¬»á×Ô¶¯±àÒë¸Ã×ÊÔ´Îļþ¡£
 
ËÄ£®×ÊÔ´Îļþµ÷ÓÃʾÀý
¡¡¡¡£¨1£©´æÈ¡×ÊÔ´ÎļþÖеÄλͼ
         //RC: testBmp bitmap res\test.bmp
         Image1.Picture.Bitmap.LoadfromResourceName(HInstance, 'res\test.bmp');
         //RC: testBmp bmptype res\test.bmp
      var
 resStream: TResourceStream;
      begin
          resStream := TResourceStream.Create(HInstance, 'testBmp', 'bmptype');
          Image1.Picture.Bitmap.LoadfromStream(resStream);
          resStream.Free;
      end;
      Çë×¢ÒâÉÏÃæÁ½ÖÖµ÷Ó÷½Ê½µÄ²»Í¬Ö®´¦¡£
 
£¨2£©´æÈ¡×ÊÔ´ÎļþÖеÄͼ±ê
         ½«Í¼±ê·ÅÔÚ×ÊÔ´ÎļþÖУ¬¿ÉÒÔʵÏÖ¶¯Ì¬¸Ä±äÓ¦ÓóÌÐòµÄͼ±ê¡£
         //RC: testIcon icon res\test.ico
         Application.Icon.Handle := LoadIcon(HInstance, 'testIcon');
 
£¨3£©´æÈ¡×ÊÔ´ÎļþÖеÄAVI¶¯»­
         //RC:


Ïà¹ØÎĵµ£º

[delphi×é¼þ] WebbrowserµÄʹÓÃ

delphiÖÐWebbrowserµÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
     htmÖÐ<script> var currID=123</script>
     ³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID
     ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......

DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ

ת:DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ
½üÒ»¶Îʱ¼äÔÚÓÃDELPHIд¸ö³ÌÐò,µ±ÎÒдµ½Ò»¸ö½áÊøÆäËû½ø³ÌµÄÄ£¿éµÄʱºòÓÐʱ²»³É¹¦,ÄÇÊÇÒòΪÆäËû½ø³Ì,È粡¶¾½ø³ÌµÄȨÏÞ¸ß,ͨ¹ý³£¹æµÄ½áÊø½ø³ÌµÄº¯ÊýÐв»Í¨,ÒªÊ×ÏÈÌá¸ß×ÔÉí³ÌÐòµÄȨÏÞ,ÔÙ½áÊøÆäËû½ø³Ì
ÔÚÍøÉÏÒ²¿´µ½ÁËһЩÌáÉý½ø³ÌÁîÅÆµÄº¯Êýµ«¶¼²»ÔõôºÃÓÃ,×îºóÎÒ»¹ÊÇ´ÓÒ»¸öºÚ¿ÍºóÃųÌÐòµÄÔ´´ú ......

Delphiµ÷ÓÃÍⲿ³ÌÐòÏê½â

WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ­¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI; 
1.±ê×¼Ó÷¨ 
¡¡¡¡ ShellExecuteº¯ÊýÔ­Ðͼ°²ÎÊýº¬ÒåÈçÏ£º 
function ShellExecute(hWnd: HWND; Operati ......

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......

delphi_·Ö¸ô×Ö·û´®_¶à¼ä¸ô×Ö·û

procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
  tmpStr:String;
  sValue:String;
  iStart,iPos:Integer;
begin
  try
    desLst.Clear;             //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ