소스 검색

Correct capitalization

Source commit: 63f4b3e66fbfa682f4a2ddef2a271f639eca2e36
Martin Prikryl 6 년 전
부모
커밋
c90793c3ab
2개의 변경된 파일5개의 추가작업 그리고 5개의 파일을 삭제
  1. 3 3
      source/packages/filemng/DirView.pas
  2. 2 2
      source/packages/filemng/DriveView.pas

+ 3 - 3
source/packages/filemng/DirView.pas

@@ -1105,7 +1105,7 @@ begin
   begin
   begin
     PIDLRecycleLocal := nil;
     PIDLRecycleLocal := nil;
     try
     try
-      OLECheck(shGetSpecialFolderLocation(Self.Handle,
+      OLECheck(SHGetSpecialFolderLocation(Self.Handle,
         CSIDL_BITBUCKET, PIDLRecycleLocal));
         CSIDL_BITBUCKET, PIDLRecycleLocal));
       PIDLRecycle := PIDL_Concatenate(nil, PIDLRecycleLocal);
       PIDLRecycle := PIDL_Concatenate(nil, PIDLRecycleLocal);
 
 
@@ -1190,7 +1190,7 @@ var
 begin
 begin
   Result := nil;
   Result := nil;
   if not Assigned(FDesktopFolder) then
   if not Assigned(FDesktopFolder) then
-    ShGetDesktopFolder(FDesktopFolder);
+    SHGetDesktopFolder(FDesktopFolder);
 
 
   if Assigned(FDesktopFolder) then
   if Assigned(FDesktopFolder) then
   begin
   begin
@@ -1354,7 +1354,7 @@ begin
         (Uppercase(Copy(FPath, 2, 10)) = ':\RECYCLER');
         (Uppercase(Copy(FPath, 2, 10)) = ':\RECYCLER');
 
 
       if not Assigned(FDesktopFolder) then
       if not Assigned(FDesktopFolder) then
-        shGetDesktopFolder(FDesktopFolder);
+        SHGetDesktopFolder(FDesktopFolder);
 
 
       if IsRecycleBin then LoadFromRecycleBin(Path)
       if IsRecycleBin then LoadFromRecycleBin(Path)
         else
         else

+ 2 - 2
source/packages/filemng/DriveView.pas

@@ -666,8 +666,8 @@ begin
   if Assigned(PopupMenu) then
   if Assigned(PopupMenu) then
     PopupMenu.Autopopup := False;
     PopupMenu.Autopopup := False;
 
 
-  OLECheck(shGetDesktopFolder(FDesktop));
-  OLECheck(shGetSpecialFolderLocation(Self.Handle, CSIDL_DRIVES, PIDLWorkPlace));
+  OLECheck(SHGetDesktopFolder(FDesktop));
+  OLECheck(SHGetSpecialFolderLocation(Self.Handle, CSIDL_DRIVES, PIDLWorkPlace));
   FDesktop.BindToObject(PIDLWorkPlace, nil, IID_IShellFolder, Pointer(FWorkPlace));
   FDesktop.BindToObject(PIDLWorkPlace, nil, IID_IShellFolder, Pointer(FWorkPlace));
   FreePIDL(PIDLWorkPlace);
   FreePIDL(PIDLWorkPlace);