Delphi代码帮忙注解上

Delphi代码帮忙注解下。

Delphi(Pascal) code

implementation{$R *.dfm}varpathstr:PChar;fddata:TWin32FindData;hd:THANDLE;br:Bool;EC:DWORD=0;procedure TForm1.Button1Click(Sender: TObject);beginpathstr:='c:\windows\system32\*.dll';hd:=FindFirstFile(pathstr,fddata);while ( (hd<>INVALID_HANDLE_VALUE) and (EC<>ERROR_NO_MORE_FILES) ) dobegin    if ( fddata.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY )then      //if ((string(fddata.cFileName)<>'.') and (string(fddata.cFileName)<>'..')) then begin strcat() ...end;      begin        //never used        br:=FindNextFile(hd,fddata);        EC:=GetLastError();      end    else      begin        Listbox1.Items.Add(string(fddata.cFileName));        br:=FindNextFile(hd,fddata);        EC:=GetLastError();      end;end;windows.FindClose(hd);end;end.

帮忙注解下

[解决办法]
查找文件啊
[解决办法]
这段代码是查找c:\windows\system32\目录下的所有dll文件并把文件名加入到Listbox1中.
使用方法为Win32函数:
FindFirstFile
FindNextFile
FindClose
具体要参看这三个函数

查看更多 下一篇