Под Windows 10 форма не выводится поверх всех окон

#delphi #windows_10 #delphi_xe8

Есть программа на Delphi XE8, висящая в области уведомлений и при определённых событиях
показывающая окно с информацией. Под Windows 7 следующий код обеспечивал показ формы
поверх всех окон практически на 100%.

with TfrmInfo.Create(self) do
begin
  Show;
  Application.NormalizeTopMosts;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
    SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);
end;


И этот код перестал срабатывать под Windows 10. Точнее, иногда окно появляется поверх
всех, но гораздо чаще оказывается наоборот в самом "низу", под всеми окнами. Может
кто сталкивался с таким? И как это попробовать полечить?
    

Ответы

Ответ 1

"Виновником" оказалась строка с Application.NormalizeTopMosts. Я её в своё время
без особых раздумий по какому-то примеру в код вставил. И под семёркой она по крайней
мере не мешала. А вот под десяткой получил проблему. Просто убрал эту строку - и всё
заработало!

Русские буквы в имени файла. TZipFile

#delphi #archive #delphi_xe8

Хочу разархивировать файл(*.zip). В нем содержатся файлы имена которых на русском.
Вот такая конструкция

procedure TWorkThread.ExctractZip(aArchFile: string; aPath: string);
var
  zZip: TZipFile;
begin
  zZip := TZipFile.Create;
  try
    zZip.ExtractZipFile(aArchFile, aPath);
  finally
    FreeAndNil(zZip);
  end;
end;


В итоге после разархивации имена этих файлов превращаются в кракозябру Çéè«¡Γα«½∞
αÑßΓ«αá¡δ.pdf

Как это побороть?
    

Ответы

Ответ 1

К сожалению, формат ZIP не слишком строго стандартизирован (к примеру, Unicode был
официально стандартизирован в только в 2007 году - в спецификации PKWARE 6.3.2). Проблема
даже не только в стандарте, сколько в бесчисленном количестве программ, которые сохраняют
имена как им вздумается - что, в общем-то, не удивительно при такой спецификации. 

В частности, существует несколько вариантов хранения имён файлов с символами, выходящими
за рамки ASCII:


ANSI
OEM
CP437 (DOS Latin US)
UTF-8
UTF-8 с флагом
Дополнительное (extra) поле $7075 - стандарт PKWARE/Info-ZIP
Дополнительное (extra) поле - я забыл числовой код, от другой программы


Ужасная мешанина. Что хуже всего - часто нет никакого способа определить метод хранения
имён, кроме ручного указания человеком (первые четыре способа из списка выше программно
неразличимы).

Поиграйтесь с флагом UTF8Support: если поможет - хорошо, если нет - надо или искать
другой распаковщик, или другой упаковщик.


Ответ 2

Нужно изменить стандартный модуль zip.pas.
Проверено на Delphi 10.2. 

function TZipFile.TBytesToString(B: TBytes): string;
var
  E: TEncoding;
begin
  if CyrillicSupport then //условие, нужна ли поддержка кириллицы, можно убрать
    E := TEncoding.GetEncoding(866)
  else
  if FUTF8Support then
    E := TEncoding.GetEncoding(65001)
  else
    E := TEncoding.GetEncoding(437);

  try
    Result := E.GetString(B);
  finally
    E.Free;
  end;
end;

function TZipFile.StringToTBytes(S: string): TBytes;
var
  E: TEncoding;
begin
  if CyrillicSupport then //условие, нужна ли поддержка кириллицы, можно убрать
    E := TEncoding.GetEncoding(866)
  else
  if FUTF8Support then
    E := TEncoding.GetEncoding(65001)
  else
    E := TEncoding.GetEncoding(437);
  try
    Result := E.GetBytes(S);
  finally
    E.Free;
  end;
end;


Ответ 3

Я не специалист по дельфи, но вы можете попробовать стандартные decode-encode с разными
кодировками. Составляете заранее словарик из русских букв и в каждой попытке определить
кодировку побуквенно прогоняете полученное название через словарик. Как только нашли
совпадение - вуаля. Это если проблемы с названием. Также, например, в питоне есть библиотека
chardet, которая определяет кодировку самого файла, а не его названия.

Под Windows 10 форма не выводится поверх всех окон

Есть программа на Delphi XE8, висящая в области уведомлений и при определённых событиях показывающая окно с информацией. Под Windows 7 следующий код обеспечивал показ формы поверх всех окон практически на 100%.
with TfrmInfo.Create(self) do begin Show; Application.NormalizeTopMosts; SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE); end;
И этот код перестал срабатывать под Windows 10. Точнее, иногда окно появляется поверх всех, но гораздо чаще оказывается наоборот в самом "низу", под всеми окнами. Может кто сталкивался с таким? И как это попробовать полечить?

Ответ

"Виновником" оказалась строка с Application.NormalizeTopMosts. Я её в своё время без особых раздумий по какому-то примеру в код вставил. И под семёркой она по крайней мере не мешала. А вот под десяткой получил проблему. Просто убрал эту строку - и всё заработало!