|
Antwort |
(Moderator)
Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional |
#11
ich bin davon ausgegangen das der Aufruf der einzelnen Exe ohne Pfad nur ein Beispiel ist weil es auch einige aufrufe gibt wo die Endung etc. fehlt. Im Endeffekt läuft es in allen Fällen jedoch darauf hinaus das suchen unabdingbar ist. Das sich dies nicht nur auf das aktuelle Verzeichnis sondern auch auf die in PATH eingetragenen Pfade beziehen sollte steht fest.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's |
Zitat |
Registriert seit: 19. Nov 2004 134 Beiträge Delphi 7 Personal |
#12
Wenn ich auf die SHLWAPI zugreifen will dan bekomme ich ne Access Violation. Hat einer ne ahnung waran das liegen kann, hab die SHLAPI.dll im System32 Ordner liegen!
|
Zitat |
(Co-Admin)
Registriert seit: 29. Mai 2002 Ort: Hamburg 11.117 Beiträge Delphi 11 Alexandria |
#13
Moin Metal Snake,
Zitat von Metal_Snake2:
Wenn ich auf die SHLWAPI zugreifen will dan bekomme ich ne Access Violation. Hat einer ne ahnung waran das liegen kann, hab die SHLAPI.dll im System32 Ordner liegen!
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist |
Zitat |
Christian Seehase |
Öffentliches Profil ansehen |
Mehr Beiträge von Christian Seehase finden |
Registriert seit: 6. Apr 2005 10.109 Beiträge |
#14
Kleine Nachlieferung auf Nachfrage:
Delphi-Quellcode:
function FindCommand(const command: string): string;
var i: Integer; cmd: string; s: TStrings; buf: array [0..MAX_PATH] of Char; begin s := TStringList.Create; s.Delimiter := ';'; s.DelimitedText := ExtractFileExt(command); if s.Count = 0 then s.DelimitedText := GetEnvironmentVariable('PATHEXT'); Result := ExpandEnvStr(command); for i := 0 to Pred(s.Count) do begin cmd := ChangeFileExt(Result, s[i]); Move(cmd[1], buf, Succ(Length(cmd))); if PathFindOnPath(buf, nil) then begin Result := buf; Break; end; end; s.Free; end; |
Zitat |
Registriert seit: 19. Nov 2004 134 Beiträge Delphi 7 Personal |
#15
Also ich verwende folgende Unit:
Delphi-Quellcode:
unit uPathUtils;
Interface Uses Windows; Const // Return flags for PathGetCharType GCT_INVALID = $0000; GCT_LFNCHAR = $0001; GCT_SHORTCHAR = $0002; GCT_WILD = $0004; GCT_SEPARATOR = $0008; Function PathAddBackslash(lpszPath: PChar): PChar; stdcall; Function PathAddBackslashA(lpszPath: PAnsiChar): PAnsiChar; stdcall; Function PathAddBackslashW(lpszPath: PWideChar): PWideChar; stdcall; Function PathAddExtension(lpszPath, lpszExtension: PChar): BOOL; stdcall; Function PathAddExtensionA(lpszPath, lpszExtension: PAnsiChar): BOOL; stdcall; Function PathAddExtensionW(lpszPath, lpszExtension: PWideChar): BOOL; stdcall; Function PathAppend(pszPath, pszMore: PChar): BOOL; stdcall; Function PathAppendA(pszPath, pszMore: PAnsiChar): BOOL; stdcall; Function PathAppendW(pszPath, pszMore: PWideChar): BOOL; stdcall; Function PathBuildRoot(pszRoot: PChar; iDrive: Integer): PChar; stdcall; Function PathBuildRootA(pszRoot: PAnsiChar; iDrive: Integer): PAnsiChar; stdcall; Function PathBuildRootW(pszRoot: PWideChar; iDrive: Integer): PWideChar; stdcall; Function PathCanonicalize(lpszDest, lpszSrc: PChar): BOOL; stdcall; Function PathCanonicalizeA(lpszDest, lpszSrc: PAnsiChar): BOOL; stdcall; Function PathCanonicalizeW(lpszDest, lpszSrc: PWideChar): BOOL; stdcall; Function PathCombine(lpszDest, lpszDir, lpszFile: PChar): PChar; stdcall; Function PathCombineA(lpszDest, lpszDir, lpszFile: PAnsiChar): PAnsiChar; stdcall; Function PathCombineW(lpszDest, lpszDir, lpszFile: PWideChar): PWideChar; stdcall; Function PathCommonPrefix(pszFile1, pszFile2, achPath: PChar): Integer; stdcall; Function PathCommonPrefixA(pszFile1, pszFile2, achPath: PAnsiChar): Integer; stdcall; Function PathCommonPrefixW(pszFile1, pszFile2, achPath: PWideChar): Integer; stdcall; Function PathCompactPath(DC: HDC; pszPath: PChar; dx: UINT): BOOL; stdcall; Function PathCompactPathA(DC: HDC; pszPath: PAnsiChar; dx: UINT): BOOL; stdcall; Function PathCompactPathW(DC: HDC; pszPath: PWideChar; dx: UINT): BOOL; stdcall; Function PathCompactPathEx(pszOut, pszSrc: PChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall; Function PathCompactPathExA(pszOut, pszSrc: PAnsiChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall; Function PathCompactPathExW(pszOut, pszSrc: PWideChar; cchMax: UINT; dwFlags: DWORD): BOOL; stdcall; Function PathFileExists(pszPath: PChar): BOOL; stdcall; Function PathFileExistsA(pszPath: PAnsiChar): BOOL; stdcall; Function PathFileExistsW(pszPath: PWideChar): BOOL; stdcall; Function PathFindExtension(pszPath: PChar): PChar; stdcall; Function PathFindExtensionA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathFindExtensionW(pszPath: PWideChar): PWideChar; stdcall; Function PathFindFileName(pszPath: PChar): PChar; stdcall; Function PathFindFileNameA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathFindFileNameW(pszPath: PWideChar): PWideChar; stdcall; Function PathFindNextComponent(pszPath: PChar): PChar; stdcall; Function PathFindNextComponentA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathFindNextComponentW(pszPath: PWideChar): PWideChar; stdcall; Function PathFindOnPath(pszPath, ppszOtherDirs: PChar): BOOL; stdcall; Function PathFindOnPathA(pszPath, ppszOtherDirs: PAnsiChar): BOOL; stdcall; Function PathFindOnPathW(pszPath, ppszOtherDirs: PWideChar): BOOL; stdcall; Function PathFindSuffixArray(pszPath: PChar; Const apszSuffix: PChar; iArraySize: Integer): PChar; stdcall; Function PathFindSuffixArrayA(pszPath: PAnsiChar; Const apszSuffix: PAnsiChar; iArraySize: Integer): PAnsiChar; stdcall; Function PathFindSuffixArrayW(pszPath: PWideChar; Const apszSuffix: PWideChar; iArraySize: Integer): PWideChar; stdcall; Function PathGetArgs(pszPath: PChar): PChar; stdcall; Function PathGetArgsA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathGetArgsW(pszPath: PWideChar): PWideChar; stdcall; Function PathGetCharType(Ch: UCHAR): UINT; stdcall; Function PathGetCharTypeA(Ch: UCHAR): UINT; stdcall; Function PathGetCharTypeW(Ch: UCHAR): UINT; stdcall; Function PathGetDriveNumber(pszPath: PChar): Integer; stdcall; Function PathGetDriveNumberA(pszPath: PAnsiChar): Integer; stdcall; Function PathGetDriveNumberW(pszPath: PWideChar): Integer; stdcall; Function PathIsContentType(pszPath, pszContentType: PChar): BOOL; stdcall; Function PathIsContentTypeA(pszPath, pszContentType: PAnsiChar): BOOL; stdcall; Function PathIsContentTypeW(pszPath, pszContentType: PWideChar): BOOL; stdcall; Function PathIsDirectory(pszPath: PChar): BOOL; stdcall; Function PathIsDirectoryA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsDirectoryW(pszPath: PWideChar): BOOL; stdcall; Function PathIsDirectoryEmpty(pszPath: PChar): BOOL; stdcall; Function PathIsDirectoryEmptyA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsDirectoryEmptyW(pszPath: PWideChar): BOOL; stdcall; Function PathIsFileSpec(pszPath: PChar): BOOL; stdcall; Function PathIsFileSpecA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsFileSpecW(pszPath: PWideChar): BOOL; stdcall; Function PathIsLFNFileSpec(lpName: PChar): BOOL; stdcall; Function PathIsLFNFileSpecA(lpName: PAnsiChar): BOOL; stdcall; Function PathIsLFNFileSpecW(lpName: PWideChar): BOOL; stdcall; Function PathIsNetworkPath(pszPath: PChar): BOOL; stdcall; Function PathIsNetworkPathA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsNetworkPathW(pszPath: PWideChar): BOOL; stdcall; Function PathIsPrefix(pszPrefix, pszPath: PChar): BOOL; stdcall; Function PathIsPrefixA(pszPrefix, pszPath: PAnsiChar): BOOL; stdcall; Function PathIsPrefixW(pszPrefix, pszPath: PWideChar): BOOL; stdcall; Function PathIsRelative(pszPath: PChar): BOOL; stdcall; Function PathIsRelativeA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsRelativeW(pszPath: PWideChar): BOOL; stdcall; Function PathIsRoot(pszPath: PChar): BOOL; stdcall; Function PathIsRootA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsRootW(pszPath: PWideChar): BOOL; stdcall; Function PathIsSameRoot(pszPath1, pszPath2: PChar): BOOL; stdcall; Function PathIsSameRootA(pszPath1, pszPath2: PAnsiChar): BOOL; stdcall; Function PathIsSameRootW(pszPath1, pszPath2: PWideChar): BOOL; stdcall; Function PathIsSystemFolder(pszPath: PChar; dwAttrb: DWORD): BOOL; stdcall; Function PathIsSystemFolderA(pszPath: PAnsiChar; dwAttrb: DWORD): BOOL; stdcall; Function PathIsSystemFolderW(pszPath: PWideChar; dwAttrb: DWORD): BOOL; stdcall; Function PathIsUNC(pszPath: PChar): BOOL; stdcall; Function PathIsUNCA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsUNCW(pszPath: PWideChar): BOOL; stdcall; Function PathIsUNCServer(pszPath: PChar): BOOL; stdcall; Function PathIsUNCServerA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsUNCServerW(pszPath: PWideChar): BOOL; stdcall; Function PathIsUNCServerShare(pszPath: PChar): BOOL; stdcall; Function PathIsUNCServerShareA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsUNCServerShareW(pszPath: PWideChar): BOOL; stdcall; Function PathIsURL(pszPath: PChar): BOOL; stdcall; Function PathIsURLA(pszPath: PAnsiChar): BOOL; stdcall; Function PathIsURLW(pszPath: PWideChar): BOOL; stdcall; Function PathMakePretty(pszPath: PChar): BOOL; stdcall; Function PathMakePrettyA(pszPath: PAnsiChar): BOOL; stdcall; Function PathMakePrettyW(pszPath: PWideChar): BOOL; stdcall; Function PathMakeSystemFolder(pszPath: PChar): BOOL; stdcall; Function PathMakeSystemFolderA(pszPath: PAnsiChar): BOOL; stdcall; Function PathMakeSystemFolderW(pszPath: PWideChar): BOOL; stdcall; Function PathMatchSpec(pszFile, pszSpec: PChar): BOOL; stdcall; Function PathMatchSpecA(pszFile, pszSpec: PAnsiChar): BOOL; stdcall; Function PathMatchSpecW(pszFile, pszSpec: PWideChar): BOOL; stdcall; Function PathParseIconLocation(pszIconFile: PChar): Integer; stdcall; Function PathParseIconLocationA(pszIconFile: PAnsiChar): Integer; stdcall; Function PathParseIconLocationW(pszIconFile: PWideChar): Integer; stdcall; Function PathRelativePathTo(pszPath, pszFrom: PChar; dwAttrFrom: DWORD; pszTo: PChar; dwAttrTo: DWORD): BOOL; stdcall; Function PathRelativePathToA(pszPath, pszFrom: PAnsiChar; dwAttrFrom: DWORD; pszTo: PAnsiChar; dwAttrTo: DWORD): BOOL; stdcall; Function PathRelativePathToW(pszPath, pszFrom: PWideChar; dwAttrFrom: DWORD; pszTo: PWideChar; dwAttrTo: DWORD): BOOL; stdcall; Function PathRemoveBackslash(pszPath: PChar): PChar; stdcall; Function PathRemoveBackslashA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathRemoveBackslashW(pszPath: PWideChar): PWideChar; stdcall; Function PathRemoveFileSpec(pszPath: PChar): BOOL; stdcall; Function PathRemoveFileSpecA(pszPath: PAnsiChar): BOOL; stdcall; Function PathRemoveFileSpecW(pszPath: PWideChar): BOOL; stdcall; Function PathRenameExtension(pszPath, pszExt: PChar): BOOL; stdcall; Function PathRenameExtensionA(pszPath, pszExt: PAnsiChar): BOOL; stdcall; Function PathRenameExtensionW(pszPath, pszExt: PWideChar): BOOL; stdcall; Function PathSearchAndQualify(pszPath, pszBuf: PChar; cchBuf: UINT): BOOL; stdcall; Function PathSearchAndQualifyA(pszPath, pszBuf: PAnsiChar; cchBuf: UINT): BOOL; stdcall; Function PathSearchAndQualifyW(pszPath, pszBuf: PWideChar; cchBuf: UINT): BOOL; stdcall; Function PathSkipRoot(pszPath: PChar): PChar; stdcall; Function PathSkipRootA(pszPath: PAnsiChar): PAnsiChar; stdcall; Function PathSkipRootW(pszPath: PWideChar): PWideChar; stdcall; Function PathStripToRoot(pszPath: PChar): BOOL; stdcall; Function PathStripToRootA(pszPath: PAnsiChar): BOOL; stdcall; Function PathStripToRootW(pszPath: PWideChar): BOOL; stdcall; Function PathUnExpandEnvStrings(pszPath, pszBuf: PChar; cchBuf: UINT): BOOL; stdcall; Function PathUnExpandEnvStringsA(pszPath, pszBuf: PAnsiChar; cchBuf: UINT): BOOL; stdcall; Function PathUnExpandEnvStringsW(pszPath, pszBuf: PWideChar; cchBuf: UINT): BOOL; stdcall; Function PathUnmakeSystemFolder(pszPath: PChar): BOOL; stdcall; Function PathUnmakeSystemFolderA(pszPath: PAnsiChar): BOOL; stdcall; Function PathUnmakeSystemFolderW(pszPath: PWideChar): BOOL; stdcall; Procedure PathQuoteSpaces(pszPath: PChar); stdcall; Procedure PathQuoteSpacesA(pszPath: PAnsiChar); stdcall; Procedure PathQuoteSpacesW(pszPath: PWideChar); stdcall; Procedure PathRemoveArgs(pszPath: PChar); stdcall; Procedure PathRemoveArgsA(pszPath: PAnsiChar); stdcall; Procedure PathRemoveArgsW(pszPath: PWideChar); stdcall; Procedure PathRemoveBlanks(pszPath: PChar); stdcall; Procedure PathRemoveBlanksA(pszPath: PAnsiChar); stdcall; Procedure PathRemoveBlanksW(pszPath: PWideChar); stdcall; Procedure PathRemoveExtension(pszPath: PChar); stdcall; Procedure PathRemoveExtensionA(pszPath: PAnsiChar); stdcall; Procedure PathRemoveExtensionW(pszPath: PWideChar); stdcall; Procedure PathSetDlgItemPath(Dlg: HWND; ID: Integer; pszPath: PChar); stdcall; Procedure PathSetDlgItemPathA(Dlg: HWND; ID: Integer; pszPath: PAnsiChar); stdcall; Procedure PathSetDlgItemPathW(Dlg: HWND; ID: Integer; pszPath: PWideChar); stdcall; Procedure PathStripPath(pszPath: PChar); stdcall; Procedure PathStripPathA(pszPath: PAnsiChar); stdcall; Procedure PathStripPathW(pszPath: PWideChar); stdcall; Procedure PathUndecorate(pszPath: PChar); stdcall; Procedure PathUndecorateA(pszPath: PAnsiChar); stdcall; Procedure PathUndecorateW(pszPath: PWideChar); stdcall; Procedure PathUnquoteSpaces(pszPath: PChar); stdcall; Procedure PathUnquoteSpacesA(pszPath: PAnsiChar); stdcall; Procedure PathUnquoteSpacesW(pszPath: PWideChar); stdcall; Implementation // // Shell helpers // Const shlwapi = 'shlwapi.dll'; Function PathAddBackslash; External shlwapi Name 'PathAddBackslashA'; Function PathAddBackslashA; External shlwapi Name 'PathAddBackslashA'; Function PathAddBackslashW; External shlwapi Name 'PathAddBackslashW'; Function PathAddExtension; External shlwapi Name 'PathAddExtensionA'; Function PathAddExtensionA; External shlwapi Name 'PathAddExtensionA'; Function PathAddExtensionW; External shlwapi Name 'PathAddExtensionW'; Function PathAppend; External shlwapi Name 'PathAppendA'; Function PathAppendA; External shlwapi Name 'PathAppendA'; Function PathAppendW; External shlwapi Name 'PathAppendW'; Function PathBuildRoot; External shlwapi Name 'PathBuildRootA'; Function PathBuildRootA; External shlwapi Name 'PathBuildRootA'; Function PathBuildRootW; External shlwapi Name 'PathBuildRootW'; Function PathCanonicalize; External shlwapi Name 'PathCanonicalizeA'; Function PathCanonicalizeA; External shlwapi Name 'PathCanonicalizeA'; Function PathCanonicalizeW; External shlwapi Name 'PathCanonicalizeW'; Function PathCombine; External shlwapi Name 'PathCombineA'; Function PathCombineA; External shlwapi Name 'PathCombineA'; Function PathCombineW; External shlwapi Name 'PathCombineW'; Function PathCommonPrefix; External shlwapi Name 'PathCommonPrefixA'; Function PathCommonPrefixA; External shlwapi Name 'PathCommonPrefixA'; Function PathCommonPrefixW; External shlwapi Name 'PathCommonPrefixW'; Function PathCompactPath; External shlwapi Name 'PathCompactPathA'; Function PathCompactPathA; External shlwapi Name 'PathCompactPathA'; Function PathCompactPathW; External shlwapi Name 'PathCompactPathW'; Function PathCompactPathEx; External shlwapi Name 'PathCompactPathExA'; Function PathCompactPathExA; External shlwapi Name 'PathCompactPathExA'; Function PathCompactPathExW; External shlwapi Name 'PathCompactPathExW'; Function PathFileExists; External shlwapi Name 'PathFileExistsA'; Function PathFileExistsA; External shlwapi Name 'PathFileExistsA'; Function PathFileExistsW; External shlwapi Name 'PathFileExistsW'; Function PathFindExtension; External shlwapi Name 'PathFindExtensionA'; Function PathFindExtensionA; External shlwapi Name 'PathFindExtensionA'; Function PathFindExtensionW; External shlwapi Name 'PathFindExtensionW'; Function PathFindFileName; External shlwapi Name 'PathFindFileNameA'; Function PathFindFileNameA; External shlwapi Name 'PathFindFileNameA'; Function PathFindFileNameW; External shlwapi Name 'PathFindFileNameW'; Function PathFindNextComponent; External shlwapi Name 'PathFindNextComponentA'; Function PathFindNextComponentA; External shlwapi Name 'PathFindNextComponentA'; Function PathFindNextComponentW; External shlwapi Name 'PathFindNextComponentW'; Function PathFindOnPath; External shlwapi Name 'PathFindOnPathA'; Function PathFindOnPathA; External shlwapi Name 'PathFindOnPathA'; Function PathFindOnPathW; External shlwapi Name 'PathFindOnPathW'; Function PathFindSuffixArray; External shlwapi Name 'PathFindSuffixArrayA'; Function PathFindSuffixArrayA; External shlwapi Name 'PathFindSuffixArrayA'; Function PathFindSuffixArrayW; External shlwapi Name 'PathFindSuffixArrayW'; Function PathGetArgs; External shlwapi Name 'PathGetArgsA'; Function PathGetArgsA; External shlwapi Name 'PathGetArgsA'; Function PathGetArgsW; External shlwapi Name 'PathGetArgsW'; Function PathGetCharType; External shlwapi Name 'PathGetCharTypeA'; Function PathGetCharTypeA; External shlwapi Name 'PathGetCharTypeA'; Function PathGetCharTypeW; External shlwapi Name 'PathGetCharTypeW'; Function PathGetDriveNumber; External shlwapi Name 'PathGetDriveNumberA'; Function PathGetDriveNumberA; External shlwapi Name 'PathGetDriveNumberA'; Function PathGetDriveNumberW; External shlwapi Name 'PathGetDriveNumberW'; Function PathIsContentType; External shlwapi Name 'PathIsContentTypeA'; Function PathIsContentTypeA; External shlwapi Name 'PathIsContentTypeA'; Function PathIsContentTypeW; External shlwapi Name 'PathIsContentTypeW'; Function PathIsDirectory; External shlwapi Name 'PathIsDirectoryA'; Function PathIsDirectoryA; External shlwapi Name 'PathIsDirectoryA'; Function PathIsDirectoryW; External shlwapi Name 'PathIsDirectoryW'; Function PathIsDirectoryEmpty; External shlwapi Name 'PathIsDirectoryEmptyA'; Function PathIsDirectoryEmptyA; External shlwapi Name 'PathIsDirectoryEmptyA'; Function PathIsDirectoryEmptyW; External shlwapi Name 'PathIsDirectoryEmptyW'; Function PathIsFileSpec; External shlwapi Name 'PathIsFileSpecA'; Function PathIsFileSpecA; External shlwapi Name 'PathIsFileSpecA'; Function PathIsFileSpecW; External shlwapi Name 'PathIsFileSpecW'; Function PathIsLFNFileSpec; External shlwapi Name 'PathIsLFNFileSpecA'; Function PathIsLFNFileSpecA; External shlwapi Name 'PathIsLFNFileSpecA'; Function PathIsLFNFileSpecW; External shlwapi Name 'PathIsLFNFileSpecW'; Function PathIsNetworkPath; External shlwapi Name 'PathIsNetworkPathA'; Function PathIsNetworkPathA; External shlwapi Name 'PathIsNetworkPathA'; Function PathIsNetworkPathW; External shlwapi Name 'PathIsNetworkPathW'; Function PathIsPrefix; External shlwapi Name 'PathIsPrefixA'; Function PathIsPrefixA; External shlwapi Name 'PathIsPrefixA'; Function PathIsPrefixW; External shlwapi Name 'PathIsPrefixW'; Function PathIsRelative; External shlwapi Name 'PathIsRelativeA'; Function PathIsRelativeA; External shlwapi Name 'PathIsRelativeA'; Function PathIsRelativeW; External shlwapi Name 'PathIsRelativeW'; Function PathIsRoot; External shlwapi Name 'PathIsRootA'; Function PathIsRootA; External shlwapi Name 'PathIsRootA'; Function PathIsRootW; External shlwapi Name 'PathIsRootW'; Function PathIsSameRoot; External shlwapi Name 'PathIsSameRootA'; Function PathIsSameRootA; External shlwapi Name 'PathIsSameRootA'; Function PathIsSameRootW; External shlwapi Name 'PathIsSameRootW'; Function PathIsSystemFolder; External shlwapi Name 'PathIsSystemFolderA'; Function PathIsSystemFolderA; External shlwapi Name 'PathIsSystemFolderA'; Function PathIsSystemFolderW; External shlwapi Name 'PathIsSystemFolderW'; Function PathIsUNC; External shlwapi Name 'PathIsUNCA'; Function PathIsUNCA; External shlwapi Name 'PathIsUNCA'; Function PathIsUNCW; External shlwapi Name 'PathIsUNCW'; Function PathIsUNCServer; External shlwapi Name 'PathIsUNCServerA'; Function PathIsUNCServerA; External shlwapi Name 'PathIsUNCServerA'; Function PathIsUNCServerW; External shlwapi Name 'PathIsUNCServerW'; Function PathIsUNCServerShare; External shlwapi Name 'PathIsUNCServerShareA'; Function PathIsUNCServerShareA; External shlwapi Name 'PathIsUNCServerShareA'; Function PathIsUNCServerShareW; External shlwapi Name 'PathIsUNCServerShareW'; Function PathIsURL; External shlwapi Name 'PathIsURLA'; Function PathIsURLA; External shlwapi Name 'PathIsURLA'; Function PathIsURLW; External shlwapi Name 'PathIsURLW'; Function PathMakePretty; External shlwapi Name 'PathMakePrettyA'; Function PathMakePrettyA; External shlwapi Name 'PathMakePrettyA'; Function PathMakePrettyW; External shlwapi Name 'PathMakePrettyW'; Function PathMakeSystemFolder; External shlwapi Name 'PathMakeSystemFolderA'; Function PathMakeSystemFolderA; External shlwapi Name 'PathMakeSystemFolderA'; Function PathMakeSystemFolderW; External shlwapi Name 'PathMakeSystemFolderW'; Function PathMatchSpec; External shlwapi Name 'PathMatchSpecA'; Function PathMatchSpecA; External shlwapi Name 'PathMatchSpecA'; Function PathMatchSpecW; External shlwapi Name 'PathMatchSpecW'; Function PathParseIconLocation; External shlwapi Name 'PathParseIconLocationA'; Function PathParseIconLocationA; External shlwapi Name 'PathParseIconLocationA'; Function PathParseIconLocationW; External shlwapi Name 'PathParseIconLocationW'; Function PathRelativePathTo; External shlwapi Name 'PathRelativePathToA'; Function PathRelativePathToA; External shlwapi Name 'PathRelativePathToA'; Function PathRelativePathToW; External shlwapi Name 'PathRelativePathToW'; Function PathRemoveBackslash; External shlwapi Name 'PathRemoveBackslashA'; Function PathRemoveBackslashA; External shlwapi Name 'PathRemoveBackslashA'; Function PathRemoveBackslashW; External shlwapi Name 'PathRemoveBackslashW'; Function PathRemoveFileSpec; External shlwapi Name 'PathRemoveFileSpecA'; Function PathRemoveFileSpecA; External shlwapi Name 'PathRemoveFileSpecA'; Function PathRemoveFileSpecW; External shlwapi Name 'PathRemoveFileSpecW'; Function PathRenameExtension; External shlwapi Name 'PathRenameExtensionA'; Function PathRenameExtensionA; External shlwapi Name 'PathRenameExtensionA'; Function PathRenameExtensionW; External shlwapi Name 'PathRenameExtensionW'; Function PathSearchAndQualify; External shlwapi Name 'PathSearchAndQualifyA'; Function PathSearchAndQualifyA; External shlwapi Name 'PathSearchAndQualifyA'; Function PathSearchAndQualifyW; External shlwapi Name 'PathSearchAndQualifyW'; Function PathSkipRoot; External shlwapi Name 'PathSkipRootA'; Function PathSkipRootA; External shlwapi Name 'PathSkipRootA'; Function PathSkipRootW; External shlwapi Name 'PathSkipRootW'; Function PathStripToRoot; External shlwapi Name 'PathStripToRootA'; Function PathStripToRootA; External shlwapi Name 'PathStripToRootA'; Function PathStripToRootW; External shlwapi Name 'PathStripToRootW'; Function PathUnExpandEnvStrings; External shlwapi Name 'PathUnExpandEnvStringsA'; Function PathUnExpandEnvStringsA; External shlwapi Name 'PathUnExpandEnvStringsA'; Function PathUnExpandEnvStringsW; External shlwapi Name 'PathUnExpandEnvStringsW'; Function PathUnmakeSystemFolder; External shlwapi Name 'PathUnmakeSystemFolderA'; Function PathUnmakeSystemFolderA; External shlwapi Name 'PathUnmakeSystemFolderA'; Function PathUnmakeSystemFolderW; External shlwapi Name 'PathUnmakeSystemFolderW'; Procedure PathQuoteSpaces; External shlwapi Name 'PathQuoteSpacesA'; Procedure PathQuoteSpacesA; External shlwapi Name 'PathQuoteSpacesA'; Procedure PathQuoteSpacesW; External shlwapi Name 'PathQuoteSpacesW'; Procedure PathRemoveArgs; External shlwapi Name 'PathRemoveArgsA'; Procedure PathRemoveArgsA; External shlwapi Name 'PathRemoveArgsA'; Procedure PathRemoveArgsW; External shlwapi Name 'PathRemoveArgsW'; Procedure PathRemoveBlanks; External shlwapi Name 'PathRemoveBlanksA'; Procedure PathRemoveBlanksA; External shlwapi Name 'PathRemoveBlanksA'; Procedure PathRemoveBlanksW; External shlwapi Name 'PathRemoveBlanksW'; Procedure PathRemoveExtension; External shlwapi Name 'PathRemoveExtensionA'; Procedure PathRemoveExtensionA; External shlwapi Name 'PathRemoveExtensionA'; Procedure PathRemoveExtensionW; External shlwapi Name 'PathRemoveExtensionW'; Procedure PathSetDlgItemPath; External shlwapi Name 'PathSetDlgItemPathA'; Procedure PathSetDlgItemPathA; External shlwapi Name 'PathSetDlgItemPathA'; Procedure PathSetDlgItemPathW; External shlwapi Name 'PathSetDlgItemPathW'; Procedure PathStripPath; External shlwapi Name 'PathStripPathA'; Procedure PathStripPathA; External shlwapi Name 'PathStripPathA'; Procedure PathStripPathW; External shlwapi Name 'PathStripPathW'; Procedure PathUndecorate; External shlwapi Name 'PathUndecorateA'; Procedure PathUndecorateA; External shlwapi Name 'PathUndecorateA'; Procedure PathUndecorateW; External shlwapi Name 'PathUndecorateW'; Procedure PathUnquoteSpaces; External shlwapi Name 'PathUnquoteSpacesA'; Procedure PathUnquoteSpacesA; External shlwapi Name 'PathUnquoteSpacesA'; Procedure PathUnquoteSpacesW; External shlwapi Name 'PathUnquoteSpacesW'; End. Die scheint ja schonmal gültig zu sein. Meine SHLWAPI.dll im System32 Ordner hat die version 6.0.2900.3199 und ist 464 KB groß. Wenn ich jetzt folgendes Testprojekt ausführen möchte bekomme ich jedesmal ne AV:
Delphi-Quellcode:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button2: TButton; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses uPathUtils; procedure TForm1.Button2Click(Sender: TObject); var test : string; index: integer; begin test := 'C:\Programme\madCollection\madUninstall.exe,12'; //<- hier die AV index := PathParseIconLocation(pchar(test)); ShowMessage(IntToStr(index)); end; end. Kann mir bitte einer erklären woran das liegen kann? Ist meine dll beschädigt? hmm das ist mir bis jetzt so noch nie passiert. @marabu: danke für den Code! Nur leider kann ich "PathFindOnPath" ja leider nicht verwenden. Noch viel komischer ist folgendes: wenn ich folgenden aufruf mache hab ich wieder ne AV:
Delphi-Quellcode:
Jedoch so bekomme ich als rückgabe "C:\Programme\madCollection\madUninstall.exe,1 2", jedoch sollte ich ja "C:\Programme\madCollection\madUninstall.exe" ehalten:
test := 'C:\Programme\madCollection\madUninstall.exe, 12';//hier ne AV
PathRemoveArgs(pchar(test));
Delphi-Quellcode:
test := 'C:\Programme\madCollection\madUninstall.exe,12';// Keine AV (Ohne dem leerzeichen)
PathRemoveArgs(pchar(test)); |
Zitat |
Registriert seit: 6. Apr 2005 10.109 Beiträge |
#16
Hallo,
Zitat:
... Nur leider kann ich "PathFindOnPath" ja leider nicht verwenden. ...
Zitat:
... Noch viel komischer ist folgendes: wenn ich folgenden aufruf mache hab ich wieder ne AV ...
Delphi-Quellcode:
Freundliche Grüße
var
index: Integer; test: array [0..MAX_PATH] of Char; begin test := 'C:\Programme\madCollection\madUninstall.exe,12'; index := PathParseIconLocation(test); ShowMessage(IntToStr(index)); end; |
Zitat |
Registriert seit: 19. Nov 2004 134 Beiträge Delphi 7 Personal |
#17
Sry aber ich hab wieder probleme mit dem auflösen von Dateipfaden.
Und zwar bekomme ich einfach nicht folgende Pfade korrekt aufgelöst system32\DRIVERS\atapi.sys \??\C:\WINXP\system32\ASNDIS5.SYS Ich mein beim ersten pfad fehlt ziemlich viel. Gibt es ne Shell Api die Solche Pfade auflöst? Den mit der API "PathFindOnPath" komme ich hiermit nicht weiter, und "sysystem32" ist zwar ein Spezieller Ordner jedoch keine umgebungsvariable. ich hoffe jemand kann mir weiterhelfen. Danke. |
Zitat |
Registriert seit: 6. Apr 2005 10.109 Beiträge |
#18
Hi,
die erste Pfadangabe ist relativ und bezieht sich auf das Windows-Installationverzeichnis (GetWindowsDirectory). Die zweite Angabe scheint mir falsch zitiert zu sein. Steht da nicht eher \\?\C:\WINXP\system32\ASNDIS5.SYS ? Der Präfix \\?\ signalisiert einen Unicode Pfadnamen, der das alte 256 / 260 Zeichen-Limit sprengt - solche Pfade dürfen bis zu 32000 Zeichen lang werden. Freundliche Grüße |
Zitat |
Ansicht |
Linear-Darstellung |
Zur Hybrid-Darstellung wechseln |
Zur Baum-Darstellung wechseln |
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Nützliche Links |
Heutige Beiträge |
Sitemap |
Suchen |
Code-Library |
Wer ist online |
Alle Foren als gelesen markieren |
Gehe zu... |
LinkBack |
LinkBack URL |
About LinkBacks |