Показать свойства

[шолku]

Как программно заставить винду показать стандартное окно свойств файла?

[СТРАННИК]

Загляни сюда, там есть ответы на твой вопрос:
// обойдёмся без рекламы (особенно на другие форумы), лучше было бы скопировать сюда материал с источника, zet
Вот что там было:

Для win9x:

ShowObjectProperties('C:\Autoexec.bat', 2, '');

--

function SHObjectProperties; external Shell32 Index SHObjectProperties_Index;

function ShowObjectProperties(ObjectName: TFileName; ObjectType: UINT; InitialTab: string): Boolean;
var
  ObjectNameBuffer, TabNameBuffer: Pointer;
begin
  GetMem(ObjectNameBuffer, (Length(ObjectName) + 1) * SizeOf(WideChar));
  try
    {If WinNT, convert object name string to UNICODE. Otherwise, just copy to buffer.}
    if (SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT) then StringToWideChar(ObjectName, PWideChar(ObjectNameBuffer), (Length(ObjectName) + 1))
    else StrPCopy(PChar(ObjectNameBuffer), ObjectName);

    {Allocate a buffer to hold the initial tab name, long enough for UNICODE if need be.}
    GetMem(TabNameBuffer, (Length(InitialTab) + 1) * SizeOf(WideChar));
    try
      {If WinNT, convert initial tab name string to UNICODE. Otherwise, just copy to buffer.}
      if (SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT) then StringToWideChar(InitialTab, PWideChar(TabNameBuffer), (Length(InitialTab) + 1))
      else StrPCopy(PChar(TabNameBuffer), InitialTab);

      {Execute the dialog and translate the result to the return value.}
      Result := SHObjectProperties(Application.Handle, ObjectType, ObjectNameBuffer, TabNameBuffer);
    finally
      FreeMem(TabNameBuffer);
    end;
  finally
    FreeMem(ObjectNameBuffer);
  end;
end;

Для XP/NT: рекомендация на набор компонентов, Jedi VCL - там есть диалоги, один из них и должен подойти.

[СТРАННИК]

Для zetrix'а...
Извиняюсь за косячёк... В дальнейшем постараюсь не повторять данные ошибки...

//Да всё нормально , zet