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
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.
ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£
ÒýÓÃ
......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......