Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......

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

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

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

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 ......

Delphi ¶àỊ̈߳¬µ¯³ö¿òÖжÏÎÊÌâ

ÈçÌ⣺

ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ