This means that your Delphi library path is not properly setup. Please make sure that the folder is included in your library path where vcl.dcp is located, this normally is $(BDS)\lib 继续阅读
1.定义节点的数据结构
TPermNode = recordID: string;TEXT: string;PARENT_ID: string;end;PPermNode = ^TPermNode;
How can I execute a program and have my code wait until it is finished?
The next procedure allows you to execute a program and to wait until it’s finished:
function WinExecAndWait32(FileName: string; Visibility: Integer): dWord;
var
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then
Result := -1 { pointer to PROCESS_INF }
else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end;
If you need calculate a CRC32 for some file or some string, then you must do:
1. build a CRC table
2. calculate a CRC for each line of your file
3. calculate a total CRC
1. CRC table creation:
type
Long = record
LoWord: Word;
HiWord: Word;
end;
const
CRCPOLY = $EDB88320;
var
CRCTable: array[0..512] Of Longint;
procedure BuildCRCTable;
var
i, j: Word;
r: Longint;
begin
FillChar(CRCTable, SizeOf(CRCTable), 0);
for i := 0 to 255 do
begin
r := i shl 1;
for j := 8 downto 0 do
if (r and 1) <> 0 then
r := (r Shr 1) xor CRCPOLY
else
r := r shr 1;
CRCTable[i] := r;
end;
end;
判断电脑是否联网：
#41:PC is connected to a network or not
If you want to know if the PC is connected to a network under MS Windows then you can call a GetSystemMetrics() function (Windows API) with SM_NETWORK parameter:
if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
<PC is attached to network>
else
<PC is not attached to network>
原帖见：Best delphi site? – Board4All
主要是各种控件下载，破解版，源码等，rs，hotfile下载，寻找最新破解组件的最佳去处。推荐
主要讨论编程技巧，方法，有不少的技巧集合，综合等，也是学习Delphi的好地方。推荐
components
http://www.torry.net/ 组件，历史悠久了。
http://www.sourcecodeonline.com/sources/delphi.html
组件和控件列表，集中了不少开源和不开源的组件
http://www.koders.com/zeitgeist/delphi/
多种语言的控件，主要是可以看到源码
http://stackoverflow.com/questions/tagged/delphi
stackoverflow.com不用多介绍了吧，问答型的
delphi语言基础，类型，过程，语法等，例子很详细，推荐。
http://www.scalabium.com/index.html
提供一个smcomponents免费控件，还有smimport和smexport等收费控件，好像都是数据库相关的多。
另外，有个Delphi的faq和tips，都很不错的，可以看看。
http://www.delphidabbler.com/tips
不只有tips，还提供了一个codesnips，就是代码片段管理器，另外，还有不少的有用，开源的控件和单元。
推荐。
历史悠久了。
http://www.delphiforfun.org (the best in algorithms)
算法相关的比较多，可以找到经典的大整数等的实现例子，还有相应源码。推荐。
http://www.gtdelphicomponents.gr
几个Delphi控件和程序
标 题: Self-Delete程序之Delphi版本，终于搞定了。
发信站: BBS 水木清华站 (Mon Jun 4 20:50:42 2001)
到Borland的论坛去问了问，确实跟laoduan说得一样，要自己GetProcAddress。代码如下：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
procedure DeleteSelf;
var
hModule: THandle;
buff: array[0..255] of Char;
hKernel32: THandle;
pExitProcess, pDeleteFileA, pUnmapViewOfFile: Pointer;
begin
hModule := GetModuleHandle(nil);
GetModuleFileName(hModule, buff, sizeof(buff));
CloseHandle(THandle(4));
hKernel32 := GetModuleHandle('KERNEL32');
pExitProcess := GetProcAddress(hKernel32, 'ExitProcess');
pDeleteFileA := GetProcAddress(hKernel32, 'DeleteFileA');
pUnmapViewOfFile := GetProcAddress(hKernel32, 'UnmapViewOfFile');
asm
LEA EAX, buff
PUSH 0
PUSH 0
PUSH EAX
PUSH pExitProcess
PUSH hModule
PUSH pDeleteFileA
PUSH pUnmapViewOfFile
RET
end;
end;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
DeleteSelf;
except
on E: Exception do
begin
Writeln(E.Classname, ': ', E.Message);
end;
end;
end.
现在有一点比较古怪，那就是必须把代码放在一个Procedure里，
要创建一个console的控制台程序，即无窗体的程序，但是，Delphi默认的console application类型的project，运行的时候，会有一个黑黑的dos窗口。如图：
要让程序不显示dos窗口，而在后台运行，方法，就是注释掉“{$APPTYPE CONSOLE}”的程序类型。这样，产生的程序就直接在后台运行，没有dos窗体。
___________________
[From] SQLite Wiki