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

delphiÔõô¹Ø±Õexcel½ø³Ì£¿

    coInitialize(nil);
    Excel := CreateOleObject('Excel.Application');
    Excel.Workbooks.close;
    Excel.quit;
  //  Excel.Disconnect;    //Õâ¾ä³ö´í
    Excel := unassigned;
    counInitialize;
    //  Exceltemp.Disconnect;
    //if not VarIsEmpty(Exceltemp) then Exceltemp.quit;
    sleep(10000); //ÑÓʱ£¬±ãÓÚ¹Û²ìexcel.exe½ø³ÌÊÇ·ñ¹Ø±Õ
    Result := True;
    exit;

ÉÏÃæµÄ´úÂëÔõô²»ÄܹرÕexcel½ø³Ì£¿
¿ÉÄÜÊÇ˳Ðò²»¶Ô£¬´´½¨Ò»¸ö¶ÔÏóºó£¬Excel.quit;Excel.Workbooks.close;
ºó£¬Excel Ϊ¿ÕÁË£¬ÔÙExcel.Disconnect;¶ÔÏó²»´æÔÚ£¬µ±È»»á³ö´íÁË£¬¿ÉÒÔ¸ú×Ùµ÷ÊÔÒ»ÏÂExcel

  if not VarIsEmpty(FExcelApplication) then
  begin
    FExcelApplication.DisplayAlerts:=false;
    FExcelApplication.Quit;
  end;

ÕâÑù¾ÍÐÐÁË

µ÷ÓÃSheet¶ÔÏóµÄClose·½·¨¾Í¿ÉÒԹرÕÁË£¬¹Ø±ÕÁËÔÙÉèÖÃËüΪnil¡£

Excel.Workbooks.close;
Excel.quit;

¸ù±¾¾Í²»ÐУ¬Í¨¹ýÁíÍâÒ»¸öº¯Êýµ÷ÓÃÓÐЧ¹û£º

function IsExcelInstall(): boolean; stdcall;
begin
  if IsExcelInst() then
  begin
    Result := True;
    sleep(10000) //¹Û²ìµ½excelÍ˳öÁË
  end
  else
    Result := fal


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphiÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......

ÈçºÎÔÚdelphiÀïÓôúÂëʵÏÖ´´½¨VPNÁ¬½Ó?

ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
  GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......

´ó¼Ò¾õµÃÓÃdelphi×öÀàËÆ¿áÎÒÒôÀֺеÄÈí¼þ¿ÉÐÐÐÔÈçºÎ£¿

ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.

ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£

ÒýÓÃ ......

Çë½Ì¹ØÓÚDelphiµÄÊ÷Ðοؼþ

ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview 
 treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));

raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ

²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà

TTreeView ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ