怎样得到以下3个系统文件夹的路径?

2002-03-04 01:20:51 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

数字电路实验避坑指南：如何正确搭建主从JK触发器测试电路（附Proteus仿真）本文详细解析了主从JK触发器的工作原理及实验搭建指南，重点解决了常见的Catching Problem现象，并提供了Proteus仿真优化方案。通过元器件选型、电路连接步骤和常见错误排查，帮助读者正确搭建测试电路，确保数字电路实验的稳定性和可靠性。阅读详情

1.桌面.
2.系统system目录
3.windows目录.

...全文

使用 EasyExcel 实现百万级数据导入导出在项目开发中往往需要使用到数据的导入和导出，导入就是从Excel中导入到DB中，而导出就是从DB中查询数据然后使用POI写到Excel上。大数据的导入和导出，相信大家在日常的开发、面试中都会遇到。很多问题只要这一次解决了，总给复盘记录，后期遇到同样的问题就好解决了。好啦，废话不多说开始正文！1.如此大批量数据的导出和导入操作，会占用大量的内存实际开发中还应限制操作人数。2.在做大批量的数据导入时，可以使用jdbc手动开启事务，批量提交。阅读详情

stanely

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

辉歌 2002-03-04

打赏
举报

uses shlobj

stanely 2002-03-04

打赏
举报

delphi6里面不行呀:
uses
windows,shellapi,.....;

var
p:pchar
begin

shgetspecialfolderlocation(handle,CSIDL_DESKTOPDIRECTORY,p);

end;

//////////
[Error] Main.pas(193): Undeclared identifier: 'shgetspecialfolderlocation'

[Error] Main.pas(193): Undeclared identifier: 'CSIDL_DESKTOPDIRECTORY'

tg123 2002-03-04

打赏
举报

vb程序供参考

Const CSIDL_DESKTOP = &H0
Private Const CSIDL_SYSTEM = &H25
Private Const CSIDL_WINDOWS = &H24

Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Show an about window
ShellAbout Me.hWnd, App.Title, "Created by the KPD-Team 1999", ByVal 0&
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Print the folders to the form
Me.Print " 系统system目录" + GetSpecialfolder(CSIDL_SYSTEM)
Me.Print "windows目录.: " + GetSpecialfolder(CSIDL_WINDOWS)
Me.Print "桌面.: " + GetSpecialfolder(CSIDL_DESKTOP)
End Sub
Private Function GetSpecialfolder(CSIDL As Long) As String
Dim r As Long
Dim IDL As ITEMIDLIST
'Get the special folder
r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If r = NOERROR Then
'Create a buffer
Path$ = Space$(512)
'Get the path from the IDList
r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
'Remove the unnecessary chr$(0)'s
GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
Exit Function
End If
GetSpecialfolder = ""
End Function

hexuexun 2002-03-04

打赏
举报

BOOL SHGetSpecialFolderPath(
HWND hwndOwner,
LPTSTR lpszPath,
int nFolder,
BOOL fCreate
);

怎样得到以下3个系统文件夹的路径?

相关推荐