技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]把文件全部复制到剪贴板

　　uses shlobj,activex,clipbrd;

　　procedure Tform1.copytoclipbrd(var FileName:string);

　　var

　　FE:TFormatEtc;

　　Medium: TStgMedium;

　　dropfiles:PDropFiles;

　　pfile:PChar;

　　begin

　　FE.cfFormat := CF_HDROP;

　　FE.dwAspect := DVASPECT_CONTENT;

　　FE.tymed := TYMED_HGLOBAL;

　　Medium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);

　　if Medium.hGlobal<>0 then begin

　　Medium.tymed := TYMED_HGLOBAL;

　　dropfiles := GlobalLock(Medium.hGlobal);

　　try

　　dropfiles^.pfiles := SizeOf(TDropFiles);

　　dropfiles^.fwide := False;

　　longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);

　　StrPCopy(pFile,FileName);

　　Inc(pFile, Length(FileName)+1);

　　pFile^ := #0;

　　finally

　　GlobalUnlock(Medium.hGlobal);

　　end;

　　Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);

　　end;

　　end;

　　◇[DELPHI]列举当前系统运行进程

　　uses TLHelp32;

　　procedure TForm1.Button1Click(Sender: TObject);

　　var lppe: TProcessEntry32;

　　found : boolean;

　　Hand : THandle;

　　begin

　　Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

　　found := Process32First(Hand,lppe);

　　while found do

　　begin

　　ListBox1.Items.Add(StrPas(lppe.szExeFile));

　　found := Process32Next(Hand,lppe);

　　end;

　　end;

　　◇[DELPHI]根据BDETable1建立新表Table2

　　Table2:=TTable.Create(nil);

　　try

　　Table2.DatabaseName:=Table1.DatabaseName;

　　Table2.FieldDefs.Assign(Table1.FieldDefs);

　　Table2.IndexDefs.Assign(Table1.IndexDefs);

　　Table2.TableName:=''new_table'';

　　Table2.CreateTable();

　　finally

　　Table2.Free();

　　end;

　　◇[DELPHI]最菜理解DLL建立和引用

　　//先看DLL source(FILE-->NEW-->DLL)

　　library project1;

　　uses

　　SysUtils, Classes;

　　function addit(f:integer;s:integer):integer;export;

　　begin

　　makeasum:=f+s;

　　end;

　　exports

　　addit;

　　end.

　　//调用(IN ur PROJECT)

　　implementation

　　function addit(f:integer;s:integer):integer;far;external ''project1'';//申明

　　{调用就是addit(2,4);结果显示6}