Jump to content

HolgerX

Members
  • Content Count

    5
  • Joined

  • Last visited

Community Reputation

1 Neutral

Technical Information

  • Delphi-Version
    Delphi 2 - 7

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. HolgerX

    Feature request: "Show in Explorer"

    Hmm.. I use SHOpenFolderAndSelectItems with ILCreateFromPath to open Explorer and select a file in a new Explorer window: unit USelectFileE; interface function OpenFolderAndSelectFile(const FileName: string): boolean; implementation uses Windows, ShellAPI, ShlObj; const OFASI_EDIT = $0001; OFASI_OPENDESKTOP = $0002; {$IFDEF UNICODE} function ILCreateFromPath(pszPath: PChar): PItemIDList stdcall; external shell32 name 'ILCreateFromPathW'; {$ELSE} function ILCreateFromPath(pszPath: PChar): PItemIDList stdcall; external shell32 name 'ILCreateFromPathA'; {$ENDIF} procedure ILFree(pidl: PItemIDList) stdcall; external shell32; function SHOpenFolderAndSelectItems(pidlFolder: PItemIDList; cidl: Cardinal; apidl: pointer; dwFlags: DWORD): HRESULT; stdcall; external shell32; function OpenFolderAndSelectFile(const FileName: string): boolean; var IIDL: PItemIDList; begin result := false; IIDL := ILCreateFromPath(PChar(FileName)); if IIDL <> nil then try result := SHOpenFolderAndSelectItems(IIDL, 0, nil, 0) = S_OK; finally ILFree(IIDL); end; end; end.
  2. HolgerX

    ShlObj -> PickIconDlg() - strange behaviour

    Hmm.. the buffer for pszIconPath 'must' be have the size of MAX_PATH.. https://docs.microsoft.com/en-us/windows/desktop/api/shlobj_core/nf-shlobj_core-pickicondlg function PickIconDlg(AHwnd : HWND; pszIconPath : PWideString; cchIconPath : DWORD; var piIconIndex : integer):integer; stdcall; external 'Shell32.dll' name 'PickIconDlg'; function PickIconDialog(var Filename: WideString; var IconIndex: Integer ): Boolean; var tmp : Array[0..MAX_PATH-1] of WideChar; // Min Size of pszIconPath must be MAX_PATH begin Result := False; FillChar(tmp[0], MAX_PATH * SizeOf(WideChar),0); Move(FileName[1],tmp[0],Length(FileName)* SizeOf(WideChar)); if ( PickIconDlg( 0, @tmp[0], MAX_PATH, IconIndex ) <> 0 ) then begin Filename := Widestring(tmp); Result := True; end; end; procedure TForm1.Button1Click(Sender: TObject); var tmpIdx : integer; tmpFile : WideString; begin tmpFile := ParamStr(0); PickIconDialog(tmpFile, tmpIdx); ShowMessage(tmpFile + ' - ' + IntToStr(tmpIdx)); end;
  3. HolgerX

    Remember me

    Hmm .. Cockies .. The are deleted by the browser like all tracking stuff automatically ..;) And profiles does not work, because only a windows login ..
  4. HolgerX

    Remember me

    Hmm .. When logging in always 'Remember me' is activated! Since I'm sitting on a 'family' computer, that's unfortunate, I always have to disable it! Is of course a matter of consideration, which is better ..
  5. Hmm... I am in the 'fluid' view. There has been made in a previously readed thread a new post. Click I'm not landing on the 'first' new post but on the very first one from th Thread! Now I have to go through the whole thread and hope to remember what I read last ... Please look, if there is a possibility as with the German DP, to put on the first new post of the thread.
×