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
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......