Кто-то пользовался под FMX именованными каналами для обмена данными между приложениями? сейчас столкнулся с такой проблемой. Один и тот же код под VCL работает прекрасно, под FMX - нет.:( Корректно к серверу подключиться можно только один раз. Пока подключение не разорвано, все работает. Как только клиент отключился от сервера (вызван DisconnectNamedPipe) - все, больше подключиться невозможно, возникает ошибка "Все копии канала заняты", хотя ни один клиент даже не запущен. Целый день уже мучаюсь, вообще не понимаю, что происходит.:((( Может кто сталкивался, помогите пожалуйста.

var TheFormIsMinimized: Boolean = False;
    TheFormWasMaximized: Boolean = False;

function NewWndProc(Wnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
 if (Msg = WM_SHOWWINDOW) and (LParam = SW_PARENTCLOSING) and (not TheFormIsMinimized) then
     begin
      TheFormIsMinimized := True;
      TheFormWasMaximized := (MainForm.WindowState=TWindowState.wsMaximized);
      SendMessage(FormToHWND(MainForm), WM_SYSCOMMAND, SC_MINIMIZE, 0);
      MainFormp.WindowState := TWindowState.wsMinimized;
     end else
 if (Msg = WM_SHOWWINDOW) and (LParam = SW_PARENTOPENING) and (TheFormIsMinimized) then 
     begin
      TheFormIsMinimized := False;
      SendMessage(FormToHWND(MainForm), WM_SYSCOMMAND, SC_RESTORE, 0);
      if TheFormWasMaximized
         then begin
               SendMessage(FormToHWND(MainForm),WM_SYSCOMMAND,SC_MAXIMIZE,0);
               LookUp.WindowState:=TWindowState.wsMaximized;
              end
         else begin
               SendMessage(FormToHWND(MainForm),WM_SYSCOMMAND,SC_RESTORE,0);
               LookUp.WindowState:=TWindowState.wsNormal;
              end;
     end
  else Result:=CallWindowProc(OldWndProc, Wnd, Msg, WParam, LParam);
end;

Это работает — но восстановленное из трея окно находится не в фокусе. Пользователь должен дополнительно щелкнуть по нему мышкой. Вставка оператора SetFocus(FormToHWND(MainForm)) непосредственно сюда же ничего не дает — равно как и операторов SendMessage(FormToHWND(MainForm),WM_ACTIVATE,WA_ACTIVE,0),   Winapi.Windows.SetActiveWindow(FormToHwnd(MainForm)) или SetForegroundWindow(FormToHWND(MainForm)). Мне приходится запускать из этого места специальный таймер — и уже в обработчике таймера, после некоторой задержки, вызывать SetFocus(FormToHWND(MainForm)). Но и это работает не всегда. Например, если окно было развернуто на весь экран, а свернуто было щелчком по кнопке «Свернуть все окна», то после его разворачивания опять фокуса нет (насколько могу судить, в этом случае не запускается таймер). Нет ли более изящного и надежного способа наладить фокус?

Все ранее сделанные экзешники исполняются без замечаний, но внести правку не удается. Попытка как исправить С++ Builder, так и удалить и повторно загрузить его  с использованием сохраненного инсталляционного файла radstudio_2010_3615_win_esd.zip ситуацию не меняют. Что делать?

Все бы ничего, но хотелось бы скрасить некрасивый голый список файлов иконками (как в проводнике). Соответственно я начал изучать этот вопрос, как же получить иконку по расширению файла. 

Например: у меня установлен AIMP и все поддерживаемые AIMP'ом файлы отображаются его иконками. EXE, DLL, BAT, CMD и др - системными иконками.
Можно поискать готовые решения в виде ShellListBox, ShellListView и т.д., но они не подойдут, как минимум потому, что файлы, которыми я заполняю список не распакованы, они находятся в файле-архиве.

Соответственно функции по типу ExtractIcon (ссылка на docs.microsoft.com) и др. не подходят, файла-то нет. Я нашел одно решение - поиск иконок по реестру. В принципе это работает, но далеко не так, как хотелось бы... 

Информация в реестре почему-то порой не соответствует указанным мною параметрам. Например, в реестре у меня иконки подгружаются из файла VLC.exe. Изначально так оно и было, пока я не сменил их на AIMP, в проводнике это привело к нужному результату (иконки сменились), а вот в реестре до сих пор отображается VLC, соответственно, когда я ищу иконку по расширению .mp3, я нахожу иконку VLC, хотя настройки ассоциации формата .mp3 явно указывают на AIMP. 

Так же, в реестре порой можно наткнуться на отсутствие необходимых ключей и значений, в таком случае я реализовал подгрузку иконки (Unknown. т.е, когда проводник не распознал формат файла и показывает просто белый файл). В итоге у меня половина проверенных мною форматов шла (Unknown).

Собственно вопрос: В какую сторону копать для решения данной проблемы? (Решения "только для FireMonkey" не подойдут, ибо нужны именно WinAPI-решения).

Код получения иконки по формату файла: (не самое лучшее решение, это очевидно).

function GetIcon(aExtension: string): HICON;
  begin
    if reg = nil then
        reg := TRegistry.Create();

    reg.RootKey := HKEY_CLASSES_ROOT;

    var iconPath: TArray<string> := [];

    if (aExtension = '') then
      begin
        reg.OpenKey('Folder\DefaultIcon', false);
        iconPath := reg.ReadString('').Split([',']);
        reg.CloseKey();
        FreeAndNil(reg);
        Exit(ExtractIcon(0, PChar(iconPath[0]), StrToInt(iconPath[1])));
      end
    else
      begin
        reg.OpenKey(aExtension, false);
        var iconRef: string := reg.ReadString('');
        reg.CloseKey();
        reg.OpenKey(iconRef, false);
        if (reg.KeyExists('DefaultIcon')) then
          begin
            reg.OpenKey('DefaultIcon', false);
            iconPath := reg.ReadString('').Split([',']);
            if (iconPath[0].StartsWith('"') or iconPath[0].EndsWith('"')) then
                iconPath[0] := iconPath[0].Trim(['"']);

            reg.CloseKey();
            FreeAndNil(reg);
            Exit(ExtractIcon(0, PChar(iconPath[0]), StrToInt(iconPath[1])));
          end;
      end;
    reg.CloseKey();
    reg.OpenKey('Unknown\DefaultIcon', false);
    iconPath := reg.ReadString('').Split([',']);
    Result := ExtractIcon(0, PChar(iconPath[0]), StrToInt(iconPath[1]));
  end;

Прикрепляю небольшой пример использования этой функции.

Project1.zip

Т.е. клиент + сервер, которые раздаёт ID. Исходники открыты.

https://github.com/Maickonn/AllaKore_Remote

У меня на Delphi Tokyo скомпилировалось и работает. Хотя и куча предупреждений при компиляции.

Пока что 2 минуса.

1. ID Каждый раз новый, нет привязки к ПК.

2. Клиентская часть не в виде службы, а в виде обычного приложения.

/delphi remote admin open source/

При работе с двумя мониторами или с монитором и проектором часто возникает необходимость запретить окну "исчезать" при наведении курсора мыши на миниатюру другого приложения в панели задач. Чтобы это сделать надо:

uses
  ...
  Winapi.DwmApi
  ...

  TMainForm = class(TForm)
  ...
  protected
    procedure CreateHandle; override;
  ...
  end;
...
procedure TMainForm.CreateHandle;
var
  Val, Res: Integer;
begin
  inherited CreateHandle;

  Val := 1;
  Res := DwmSetWindowAttribute(FormToHWND(Self), DWMWA_EXCLUDED_FROM_PEEK, @Val, SizeOf(Val));
  {$IFDEF DEBUG}
  if Res <> S_OK then
    ShowMessage(SysErrorMessage(Res));
  {$ENDIF}
end;

Спасибо @Alex7wrt за наводку

Вообще, я привык считать, что такая идентификация компьютера в принципе невозможна, в отличие от мобильных устройств. Но прогресс, как известно, не остановить.

Буду очень признателен, если кто-нибудь осветит эту темную для меня материю.

Попытки обходных маневров не удались. Сначала я решил всё класть в установочный каталог, а при первом запуске создавать нужную папку и перебрасывать в нее несколько файлов. На моем компьютере это работает, но при тестировании в Microsoft Store отчего-то валится (присылают скриншот с сообщением "Access is denied"). То ли нельзя стирать файлы в установочном каталоге, то ли нельзя в таком режиме создавать новый каталог. Потом я прочитал где-то, что UWP-приложениям всё равно, где лежат файлы, они могут их менять даже в установочном каталоге. Попробовал всё валить в одну кучу и так работать. Увы, опять отрапортовали о падении ("The app tries to create a file under WindowsApps folder").

Получается, что все-таки нужно как-то заставить appx-дистрибутив создавать при установке папку по адресу <user>\AppData\Roaming\MyApp. Но как?

Спрашивал на experts-exchange, там знатоков не нашлось. Если и здесь нет, может, кто-нибудь хотя бы подскажет, в каких местах есть смысл спросить?

MyDirectory:=GetSpecialFolderPath(CSIDL_APPDATA)+'\MyApp';
CreateDir(MyDirectory);
TDirectory.SetAttributes(MyDirectory,[TFileAttribute.faNormal]);

После этого в созданный каталог переносятся некоторые файлы, и всё работает хорошо, за исключением одного момента: этот новый каталог невозможно открыть, например, в Проводнике. Из самого приложения легко можно открыть диалоговое окно и увидеть в нем этот каталог и все файлы; можно их читать и в них писать, но вне приложения этот каталог невидим. Всё равно что не существует.

Мне казалось, что присвоение каталогу атрибута faNormal дожно все проблемы решить. Увы, не решает. В чем тут закавыка?

Функция SysUtils.GetDir ведет себя так же.

Как быть?

https://community.embarcadero.com/blogs/entry/appx-development-for-windows-10-store

Там толково объяснено, как создать appx для приложения из одного исполнимого файла. Я попробовал, всё получилось. Но как быть, если пакет должен содержать и другие файлы? В моем случае это файл базы данных, целая папка html-файлов для хелпов, и т.п. Где я должен их указать? Логично было бы предположить, что за это ответственен манифест (Project => Options => Application => Manifest File), который можно кастомизировать. Но сколько я ни гуглил, не смог найти ничего о структуре этого манифеста применительно к файлам. Похоже, манифест здесь все-таки ни при чем.

Раньше я всё это делал в Inno Setup. Как поступать теперь - непонятно...

Не мог бы кто-нибудь разъяснить, как установка темы связана с параметрами Windows API? Можно ли как-то нивелировать эту разницу? На что вообще в таких случаях нужно обратить внимание?

как мне отловить - в чем проблема именно? я вышел за Range, каким то образом и не могу понять как и где. пытаюсь отловить дебагером но до него дело не доходит. сразу после компиляции эта ошибка.

Есть ip,  порт, логин и пароль. Говорят сделали чтобы сотрудники в ВК не сидели, но для меня это проблема. Второй день бьюсь.

Как можно делать POST, GET запросы через proxy? Или у кого какие мысли есть по поводу этого случая?

Что может быть причиной ошибки "Invalid pointer operation"? (Windows)

Спасибо!

Уже пробовал использовать

• LongTap: здесь проблема в том, что длинное нажатие бывает длинным
• WM_TOUCH не работает
• Через OnMouseDown не вышло, так как чтобы сработало, нужно пошевелить пальцем, а я хочу, чтобы поставил и заработало

Еще один момент, который я не могу понять - в Windows 10 в настройках экрана, помимо масштаба в процентах, можно выбирать еще и разрешение в пикселях. По-моему, раньше такого разделения не было, хотя могу ошибаться. Связаны ли эти настройки друг с другом? И как они соотносятся со старым добрым DPI?

Пробовал так:

GetSysColor(COLOR_ACTIVECAPTION)

Или:

clActiveCaption

В общем-то есть предположение, что это давно уже не работает и несовместимо с Windows 8/10. Есть костыли по вытаскиванию цвета активного окна?

var
  FWnd:HWnd;

RegisterHotKey(FWnd, Ord('U'), 0, Ord('U'));

но почему то нечего не работает(