Форум программистов, компьютерный форум, киберфорум
Delphi: WinAPI
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi WinAPI Synapse и shellexecute Добрый день. При написании программы для поиска телефонных номеров в интернете, столкнулся с проблемой. На офисном компьютере: На определенном этапе ресурсы с которых получаю номера требуют ввода капчи. для ее ввода я открываю браузер с помощью shellexecute, но вместо сайта с картинкой я получаю просто страницу в нормальном виде, как будто ввод капчи и не требовалось. На ноутбуке, при... https://www.cyberforum.ru/ delphi-winapi/ thread2223244.html Работа со сторонними запущенными приложениями Delphi WinAPI
У WinAPI есть функция которая создает перекрывающее, выпрыгивающее или дочернее окно. HWND WINAPI CreateWindow( _In_opt_ LPCTSTR lpClassName, _In_opt_ LPCTSTR lpWindowName, _In_ DWORD dwStyle, _In_ int x, _In_ int y, _In_ int nWidth, _In_ int nHeight,
Delphi WinAPI Программно изменить пароль от сохранённой точки Wi-Fi https://www.cyberforum.ru/ delphi-winapi/ thread2217907.html
Собственно, как это сделать через WinAPI? Например, я подключился к Wi-Fi точке с названием "IamRock", ввёл верный пароль, подключение успешно, все работает. Как мне программно изменить сохранённый пароль от этой точки, например, средствами WinAPI?
Delphi WinAPI Убрать рамку окна Убрал рамку окна SetWindowLong(wnd, GWL_STYLE, GetWindowLong(wnd, GWL_STYLE) and not(WS_CAPTION or WS_THICKFRAME)); Границы окна остались прежними, а внутренняя область уменьшилась на высоту шапки + рамки. Если изменить размер окна, то внутренняя область тоже уменьшается, а промежуток остаётся. Можно тут что то сделать? пытался перерисовать, не помогло RedrawWindow(wnd, nil, 0,... https://www.cyberforum.ru/ delphi-winapi/ thread2215154.html
Определить букву подключенной флешки (не выполняется часть кода) Delphi WinAPI
Здравствуйте! Пытаюсь определить букву подключенной флешки. Событие, что флешка подключилась - срабатывает, но дальше дело не идет. procedure TForm1.WMDeviceChange(var Msg: TMessage); var Drive: Char; //Буква диска const devType: Integer; Datos: PDevBroadcastHdr; const pref = ':\'; begin
Delphi WinAPI LoadImage не хочет работать Пару лет назад писал игрушку на Delphi 7 в Windows 7. Сейчас захотелось продолжить. Установил Delphi 7 Lite и Lazarus. Система Windows 10. И сразу проблема и в Delphi и в Lazarus с функцией LoadImage. Такой вот код: Result := LoadImage(GetModuleHandle(nil), szBitmap, IMAGE_BITMAP, dx, dy, LR_CREATEDIBSECTION); Это я пытаюсь узнать размер битмапа. Но получаю нули. Раньше этот код работал. И... https://www.cyberforum.ru/ delphi-winapi/ thread2208384.html
Delphi WinAPI Gethostbyaddr выдает имя компьютера, если указан localhost https://www.cyberforum.ru/ delphi-winapi/ thread2201247.html
Добрый день. Использую функцию что бы получить хост по ip. У некоторых ip хост прописан как localhost, и функция выдает имя моего компьютера. Не могу придумать как обойти этот глюк... только получать имя текущего компа, и сравнивать с результатом, но это кривовато... function IPAddrToName(IPAddr : string): string; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt;
Delphi WinAPI Сменить интерфейс окна VCL приложения?
Каким образом сменить дизайн VCL-приложения? (Embarcadero RAD Studio 2010) Пример на скриншоте:
Delphi WinAPI Работа с COM портом реальным и виртуальным Добрый день. Есть программа обмена с устройствами ввода-вывода через преобразователь интерфейса RS485 -> RS232 или RS485 -> USB (с созданием виртуального COM порта). Проблема следующая: если у компьютера есть COM порт и используется RS485 -> RS232 - все отлично, обмен без проблем. Если же COM порта нет, а используется виртуальный COM порт и RS485 -> USB, то получаю, скажем, недопустимые данные... https://www.cyberforum.ru/ delphi-winapi/ thread2188924.html Delphi WinAPI У приложения, запускаемого через CreateProccess, нет доступа к интернету https://www.cyberforum.ru/ delphi-winapi/ thread2186613.html
Здравствуйте! Может быть кто сталкивался с подобным и решил проблему. В общем, нашел готовую процедуру для запуска процесса, использую, но проблема в том, что у запускаемых процессов нет доступа к интернету. Даже тот же пинг, не пингует. Вот процедура: procedure ExecConsoleApp(CommandLine: AnsiString; Output: TStringList; Errors: TStringList); var sa : TSECURITYATTRIBUTES; si :...
Работа с FindWindow и PostMessage: как надежно передавать данные между программами? Delphi WinAPI
Добрый день! Осваиваю передачу сообщений между приложениями с использованием FindWindow и PostMessage. Из одной программы с помощью PostMessage передаю сообщение другой программе следующим образом: const SX_MYMESSAGE = WM_USER+100; ... PostMessage(FindWindow('TMainForm', nil),SX_MYMESSAGE,1,0); ...
Delphi WinAPI Пустой заголовок окна В общем хочу получить заголовок окна. И всё вроде бы как работает без ошибок, но бывает что просто прилетает пустая строка вместо заголовка. С чем это может быть связано. Подскажите кто знает. // глобальные переменные var PIDNeeded:Cardinal; Handle1: string; fu
Модератор
5046 / 3275 / 526
Регистрация: 01.06.2013
Сообщений: 6,806
Записей в блоге: 9
0

Выбрать язык интерфейса при первом запуске приложения - Delphi WinAPI - Ответ 12304588

13.04.2018, 14:49. Показов 1603. Ответов 6
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток всем!

Нужно выбрать язык интерфейса (английский или русский) при первом запуске приложения.
По быстрому сделал проверкой установленных в системе раскладок клавиатуры
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
  RusLang:boolean = false; 
 
procedure SetLanguageFromSystem;
type
  THKLArray = array[0..0] of HKL;
  PHKLArray = ^THKLArray;
var
  I, NLocales, Locale : Cardinal;
  Buffer : Pointer;
begin
  Buffer := nil;
  NLocales := GetKeyboardLayoutList(0, Buffer^);
  if NLocales > 0 then begin
    GetMem(Buffer, NLocales * SizeOf(HKL));
    try
      GetKeyboardLayoutList(NLocales, Buffer^);
      for I:=0 to Pred(NLocales) do begin
        Locale := LOWORD(PHKLArray(Buffer)^[I]);
        if Locale = $419 then begin
           RusLang:=True;
           break;
        end;
      end;
    finally
      FreeMem(Buffer, NLocales * SizeOf(HKL));
    end;
  end;
end;
Но не уверен что это корректно. В смысле, не этот код, а вообще, проверять раскладки для этого.

Вернуться к обсуждению:
Выбрать язык интерфейса при первом запуске приложения Delphi WinAPI
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2018, 14:49
Готовые ответы и решения:

Обучение при первом запуске приложения
Здравствуйте! Подскажите пожалуйста как можно сделать обучалку в приложении. Например фон...

Экран с подсказками при первом запуске приложения
Забыл как он называется по-научному. Не splash, а другое, уже после того, как приложение...

Как открыть форму только при первом запуске приложения?
Здравствуйте, в приложении у меня есть форма в которой есть поля для заполнения имени, пола и т.д....

Долго открываются приложения ТОЛЬКО при первом запуске после включения
После включения, если ждать даже если ждать 40 минут (проверено), браузер, steam, skype и тд...

6
13.04.2018, 14:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2018, 14:49
Помогаю со студенческими работами здесь

Как создать layout, который запускается один раз, при первом запуске приложения?
Как создать layout, который запускается один раз, при первом запуске приложения? т.е. один раз...

Стал сильно нагреваться блок питания но только при первом запуске и вырубает комп , при втором запуске работает норм
поставил новую видюху Geforce GTX 560 ti и стал сильно нагреваться блок питания но только при...

Форма при первом запуске
Нужно сделать так, чтобы при самом первом запуске показалась первая форма. Все остальные запуски -...

Ошибка, при первом запуске из VB
У меня возникает такая ошибка, при первом запуске из VB в откомпилированном проекте подобных...

Подвисания при просмотре видео и в играх при первом запуске ПК
Доброго времени суток, проблема в следующем: после включения ПК при просмотре видео и в играх есть...

BSOD при при первом запуске после простоя
Доброго времени суток! Имеется система(новая): CPU Intel Core i7-8700K @ 4.80GHz Cooler...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru