delphi²Ù×÷excel
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔڵŤ×÷²¾£º
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) ÉèÖõÚ2¸ö¹¤×÷±íΪ»î¶¯¹¤×÷±í£º
ExcelApp.WorkSheets[2].Activate; »ò ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) ¸øµ¥Ôª¸ñ¸³Öµ£º
ExcelApp.Cells[1,4].Value := 'µÚÒ»ÐеÚËÄÁÐ';
7) ÉèÖÃÖ¸¶¨ÁеĿí¶È£¨µ¥Î»£º×Ö·û¸öÊý£©£¬ÒÔµÚÒ»ÁÐΪÀý£º
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) ÉèÖÃÖ¸¶¨Ðеĸ߶ȣ¨µ¥Î»£º°õ£©£¨1°õ£½0.035ÀåÃ×£©£¬ÒÔµÚ¶þÐÐΪÀý£º
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1ÀåÃ×
9) ÔÚµÚ8ÐÐ֮ǰ²åÈë·ÖÒ³·û£º
ExcelApp.WorkSheets[1].Rows.PageBreak := 1;
10) ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£ºExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) Ö¸¶¨±ß¿òÏß¿í¶È£º
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-×ó 2-ÓÒ 3-¶¥ 4-µ× 5-б( \ ) 6-б( / )
12) Çå³ýµÚÒ»ÐеÚËÄÁе¥Ôª¸ñ¹«Ê½£º
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) ÉèÖõÚÒ»ÐÐ×ÖÌåÊôÐÔ£ºExcelApp.ActiveSheet.Rows[1].Font.Name := 'Á¥Êé';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
14) ½øÐÐÒ³ÃæÉèÖãº
a.ҳü£º
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '±¨±íÑÝʾ';
b.Ò³½Å£º
ExcelApp.ActiveSheet.PageSetup.CenterFooter := 'µÚ&PÒ³';
c.ҳüµ½¶¥¶Ë±ß¾à2cm£º
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.Ò³½Åµ½µ×¶Ë±ß¾à3cm£º
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.¶¥±ß¾à2cm£º
ExcelApp.ActiveSheet.PageSetup.Top
Ïà¹ØÎĵµ£º
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
×¢Ò⣺±¾ÎĽö¹©¼¼Êõ½»Á÷£¬ÇëÎðÓÃÓÚ·Ç·¨ÓÃ;¡£
ÒªÐÞ¸ÄÖ¸¶¨³ÌÐòµÄÖ¸¶¨µØÖ·Êý¾Ý£¬ÎÒÃÇÐèÒªÓõ½Á½¸öapiº¯Êý£¬·Ö±ðÊÇReadProcessMemoryºÍWriteProcessMemory¡£
ÏÂÔØÊǺ¯ÊýµÄ¶¨Ò壺
ReadProcessMemory
Reads data from an area of memory in a specified process. The entire area to be read must be accessible or the op ......
Ò»£®½¨Á¢¹¤³ÌĿ¼
Ê×ÏÈ£¬µÚÒ»²½Òª×öµÄ£¬µ±È»ÊǸøÐÂÏîÄ¿½¨Ò»¸öµ¥¶ÀµÄĿ¼£¨±ðЦ£©¡£Ä¿Â¼Ãû³ÆÓëÏîÄ¿Ãû³ÆÍ¬Ãû£¬»òÕßÁíȡһ¸öÒ²¿É£¬Ö»ÒªÇå³þ¡¢¼òÁ·¡£È»ºó£¬ÔÚ´ËĿ¼Öд´½¨ÒÔϸ÷¸öĿ¼£º
<Doc>£ºÓÃÀ´´æ·Å¸ÃÏîÄ¿Ïà¹ØµÄ¿ª·¢Îĵµ£¨ÐèÇó˵Ã÷£¬¸ÅÒªÉè¼Æ£¬ÏêϸÉè¼ÆµÈµÈµÈµÈ£©£»
< ......
program Project1;
{$APPTYPE CONSOLE}
uses
windows, Tlhelp32, SysUtils;
//===========================»ñµÃϵͳĿ¼=======================================
function GetWinDir: string;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirector ......
µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
BDE£¨Borland Databas Engine£©£¬ ÊÇDelph ......