indy控件中，在IdTCPServer1Disconnect中执行sql语句出错，是否不可以执行SQL?(50分)

如题。哪位回复一下？

首先你要有图标资源，或着自带一个工具能提取。

我是加入了D:/下的所有文件，如何在listview中加入它们的图标

delphi的目录下有个Virtual Listview的例子，看看吧。

//------------------------------------------------------------------------------
//把FileList中文件的图标加到ImageList中去
function GetFilesImageToList(ImageList: TImageList; FileName: string;
IsSmallIcon: Boolean): Boolean;
var
F_icon: TIcon;
shinfo: TSHFILEINFO;
isCreateFile: Boolean;
flag: Integer;
begin
F_icon := TIcon.Create;

if FileName <> '' then if FileName[1] = '&quot;' then Delete(FileName, 1, 1);
if FileName <> '' then
if FileName[Length(FileName)] = '&quot;' then
FileName := Copy(FileName, 1, Length(FileName) - 1);

isCreateFile := False;
if not FileExists(FileName) then
begin
FileName := GetWindowsTempDirectory + '/' + ExtractFileName(FileName);
if not FileExists(FileName) then isCreateFile := MyFileCreate(FileName);
end;

if IsSmallIcon then flag := (SHGFI_SMALLICON or SHGFI_ICON)
else flag := (SHGFI_LARGEICON or SHGFI_ICON);

SHGetFileInfo(PChar(FileName), 0, shinfo, Sizeof(shinfo), flag);

F_icon.Handle := shinfo.hIcon;
ImageList.AddIcon(F_icon); //把ICO装入ImageList中

if isCreateFile then
ZsFileUtils.MyDeleteFile(FileName);

F_icon.Free;
Result := True;
end;

function GetFilesImageToList(ImageList: TImageList; fileList: TStringList;
IsSmallIcon: Boolean): Boolean;
var i: Integer;
begin
ImageList.Clear;
if IsSmallIcon then ImageList.Height := 16
else ImageList.Height := 32;
ImageList.Width := ImageList.Height;

for i := 0 to fileList.Count - 1 do
GetFilesImageToList(ImageList, fileList, IsSmallIcon);

Result := True;
end;

接受答案了.