Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Окт

Рисование многоугольника мышкой

Доброго дня!

Вот всё пытаюсь сделать рисование многоугольника мышкой. Моя логика такая:

static int n=0;

POINT pt[10];

1. Нажатием левой клавиши запоминаю первую точку

Код:


case WM_LBUTTONDOWN:
	x=LOWORD(lParam); //coordinates 1
           y=HIWORD(lParam);
	break;

2. Отжатием – запоминаю вторую и последующие

Код:


case WM_LBUTTONUP:
        hdc=GetDC(hWnd);
        x2=LOWORD(lParam); //coordinates 2
        y2=HIWORD(lParam);
        SelectObject(hdc, hPen);
        SelectObject(hdc1, hPen);
        if (n==0) {pt[0].x=x; pt[0].y=y;}
        n++;
        pt[n].x=x2;
        pt[n].y=y2;
        ReleaseDC (hWnd,hdc);
        break;

3. Нажатием правой клавиши рисую получившуюся фигуру:

Код:


case WM_RBUTTONDOWN:
	hdc=GetDC(hWnd);
           SelectObject(hdc, hPen);
	SelectObject(hdc1, hPen);
	Polygon(hdc,pt,n);
	Polygon(hdc1,pt,n);
	n=0;
	ReleaseDC (hWnd,hdc);
           break;

Но не работает. Что я делаю не так?

ТС сам нашел решение:

case WM_LBUTTONDOWN:
x=LOWORD(lParam); //coordinates 1
y=HIWORD(lParam);
if (n==0) {
x0=x;
y0=y;
}
break;

case WM_LBUTTONUP:
hdc=GetDC(hWnd);

x2=LOWORD(lParam); //coordinates 2
y2=HIWORD(lParam);
SelectObject(hdc, hPen);
SelectObject(hdc1, hPen);
//choise++;
//if (choise==6) {choise=1;}
choise=5;
switch (choise) {
case 1:
Rectangle (hdc,x,y, x2,y2);
Rectangle (hdc1,x,y, x2,y2);
break;

case 2:
Ellipse (hdc,x,y, x2,y2);
Ellipse (hdc1,x,y, x2,y2);
break;

case 3:
MoveToEx(hdc,x,y,0);
LineTo (hdc,x2,y2);
MoveToEx(hdc1,x,y,0);
LineTo (hdc1,x2,y2);
break;

case 4:
case 5:
if (n==0)
{
pt[0].x=x;
pt[0].y=y;
pt[1].x=x2;
pt[1].y=y2;
n=1;

MoveToEx(hdc,x,y,0);
LineTo (hdc,x2,y2);
MoveToEx(hdc1,x,y,0);
LineTo (hdc1,x2,y2);
}
else
{
MoveToEx(hdc,x0,y0,0);
LineTo (hdc,x2,y2);
MoveToEx(hdc1,x0,y0,0);
LineTo (hdc1,x2,y2);

pt[n].x=x2;
pt[n].y=y2;
}
n++;
x0=x2; y0=y2; //захоўваем пачатак наступнага адрэзка

break;

}
ReleaseDC (hWnd,hdc);
break;

case WM_RBUTTONDOWN:
hdc=GetDC(hWnd);
SelectObject(hdc, hPen2);
SelectObject(hdc1, hPen2);

if (choise==4) {
Polygon(hdc,pt,n);
Polygon(hdc1,pt,n);
}
if (choise==5) {
Polyline(hdc,pt,n);
Polyline(hdc1,pt,n);
}

ReleaseDC (hWnd,hdc);
break;

Тема на форуме.

Добавлено в Пост-обзор. Дата Октябрь 11th, 2010

5th
Окт

Как получить классы всех дочерних окон формы?

function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
var s:string;
begin
SetLength(s,256);
SetLength(s,GetClassName(HWND,s[1],256));
   Form1.Memo1.Lines.Add(s);
   Result:=true;
end;
на кнопке пишем
   EnumChildWindows(<хендл окна, у которого перечисляем>,@EnumClasses,0);

Тема на форуме

Добавлено в Пост-обзор. Дата Октябрь 5th, 2010

22nd
Сен

Свернуть програму при запуске через PI.dwProcessId?

Привет всем!
Как свернуть программу запускаемую через ShowWindow(); используя ProcessInformation.dwProcessId?

function EnumThreadWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  len: Integer;
  classname: array[0..$ff]ofChar;
begin
  Result:=True;

if IsWindowVisible(hwnd)then
begin
      ShowWindow(hwnd,SW_SHOWMINIMIZED);
end;
end;
procedure TForm1.sButton2Click(Sender: TObject);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  startupinfoa.dwFlags:=STARTF_USES

HOWWINDOW;
  startupinfoa.wShowWindow:=SW_SHOWMINIMIZED;
  CreateProcess(nil, PChar(‘calc.exe’), nil, nil, False, 0, nil, nil, startupinfoa, processinformation);
  WaitForInputIdle(processinformation.hProcess, 10000);
  EnumThreadWindows(processinformation.dwThreadId, @EnumThreadWndProc, 0);
end;

Тема на форуме

Добавлено в Топик-обзор. Дата Сентябрь 22nd, 2010

4th
Сен

Как узнать к какому процессу принадлежит известный класс окна

Код:


const
  // Размер буфера, резервируемого для имени класса при
// использовании функций GetClassName и GetReadWindowClass
  ClassNameLen = 512;

function EnumWindowProc(Wind: HWND; LI: TListItem): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
begin
  Result := True;
  TextLen := GetWindowTextLength(Wind);
  SetLength(Text, TextLen);
  if TextLen > 0 then
    GetWindowText(Wind, PChar(Text), TextLen + 1);
  if TextLen > 100 then
    Text := Copy(Text, 1, 100) + ' ...';
  GetClassName(Wind, ClassName, ClassNameLen);
  ClassName[ClassNameLen - 1] := #0;
  LI := AddAppForm.AppWindList.Items.add;
  LI.Caption := IntToStr(Wind);
  LI.SubItems.Add(ClassName);
  if Text = '' then
    LI.SubItems.Add('без имени')
  else
    LI.SubItems.Add(Text);
end;

function EnumTopWindowProc(Wind: HWND; PID: Cardinal): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
  WindPID: Cardinal;
  LI: TListItem;
begin
  Result := True;
  GetWindowThreadProcessId(Wind, @WindPID);
  if WindPID = PID then
  begin
    TextLen := GetWindowTextLength(Wind);
    SetLength(Text, TextLen);
    if TextLen > 0 then
      GetWindowText(Wind, PChar(Text), TextLen + 1);
    if TextLen > 100 then
      Text := Copy(Text, 1, 100) + ' ...';
    GetClassName(Wind, ClassName, ClassNameLen);
    ClassName[ClassNameLen - 1] := #0;
    LI := AddAppForm.AppWindList.Items.add;
    LI.Caption := IntToStr(Wind);
    LI.SubItems.Add(ClassName);
    if Text = '' then
      LI.SubItems.Add('без имени')
    else
      LI.SubItems.Add(Text);
    //EnumChildWindows(Wind,@EnumWindowProc,LParam(LI));
  end;
end;

function GetProcessPID(ExeFileName: string): Cardinal;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
      Result := FProcessEntry32.Th32ProcessID;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

function ProcessExists(ExeFileName: string): Boolean;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := False;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure GetWindList(PID: Cardinal);
begin
  if PID = 0 then
    Exit;
  EnumWindows(@EnumTopWindowProc, PID);
end;

Тема на форуме.

Добавлено в Пост-обзор. Дата Сентябрь 4th, 2010

20th
Июл

Загрузка bmp в TImage на WinApi

Код:


{
  Данный код был спроектирован в среде APIx - Visual WinAPI 2
  Copyright (c) PiddleSoft 2004-2006
  http://piddlesoft.narod.ru
  piddlesoft@mail.ru

  Дата генерации листинга - 19.07.2010 16:05:36
}

program APIx_Project26;

uses
  windows, messages, commctrl; //Используемые модули

// Иконка
{$R 'icon.res'}

var
  WinClass : TWndClass; //переменная класса TWndClass для создания главного окна
  hInst : HWND; //хандлер приложения
  Handle : HWND; //локальный хандлер
  Msg : TMSG; //сообщение
  Bmp : HBITMAP;
  hFont : HWND; //хандлер шрифта
  Image1 : HWND; //TImage

{$R 'D:\_MainDir\APIx 2 - Visual WinAPI\temp\bitmaps.res'}
procedure ShutDown; //процедура завершения программы
begin
  DeleteObject(hFont); //удаление шрифта
  UnRegisterClass('TAPIxForm', hInst); //удаление окна
  ExitProcess(hInst); //закрытие программы
end;

function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  case Msg of

  WM_DESTROY: ShutDown;
  end;
end;

begin
hInst := GetModuleHandle(nil);
  with WinClass do
  begin
   Style := CS_PARENTDC; //стиль класса главного окна
   hIcon := LoadIcon(hInst, MAKEINTRESOURCE('APIXICON')); //иконка программы
   lpfnWndProc := @WindowProc; //назначение обработчика сообщений
   hInstance := hInst;
   hbrBackground := COLOR_BTNFACE + 1; //цвет окна
   lpszClassName := 'TAPIxForm'; //класс окна
   hCursor := LoadCursor(0, IDC_ARROW); //активный курсор
  end;
InitCommonControls;
RegisterClass(WinClass); //регистрация класса в системе

// Создание главного окна программы
Handle := CreateWindowEx(0, 'TAPIxForm', 'Форма1',
WS_OVERLAPPEDWINDOW or
WS_VISIBLE or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU,
219, 116, 550, 366,
0, 0,
hInst, nil);

// Создание шрифта
hFont := CreateFont(
-11, 0, 0, 0, 0, 0, 0, 0,
DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');

Image1 := CreateWindow(
'Static',
'' ,
WS_CHILD or SS_BITMAP or WS_VISIBLE,
104, 88, 225, 145, Handle, 0, hInst, nil);
SendMessage(Image1, WM_SETFONT, hFont, 0);
Bmp := LoadBitmap(hInstance, MAKEINTRESOURCE('Image1'));
SendMessage(Image1, STM_SETIMAGE, IMAGE_BITMAP, Bmp);

  // Цикл сбора сообщений
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg); //прием сообщений
    DispatchMessage(Msg); //удаление сообщений из очереди
  end;
  end.

bmp – это HBitmap

Тема на форуме.

Добавлено в Пост-обзор. Дата Июль 20th, 2010

19th
Июл

Как установить принтер. WinApi и С++

Код:


TCHAR temp[MAX_PATH];
DWORD size = MAX_PATH;
GetDefaultPrinter(temp, &size);

HDC hDC = CreateDC(NULL, temp, NULL, NULL);

if(hDC){
  DOCINFO docinfo;
  docinfo.cbSize          = sizeof(docinfo);
  docinfo.lpszDocName = _T("Simple");
  docinfo.lpszOutput    = NULL:
  docinfo.lpszDatatype = _T("EMF");
  docinfo.fwType        = 0;

  if(StartDoc(hDC, &docinfo) > 0){
    if(StartPage(hDC) > 0){
      TextOut(hDC, ....);

      EndPage(hDC);
    }
    EndDoc(hDC);
  }

  DeleteDC(hDC);

Тема на форуме.

Добавлено в Пост-обзор. Дата Июль 19th, 2010

8th
Июл

В чем разница между CreateThread(); и _beginthreadex(); и что лучше использовать?

pproger:

msdn:
A thread in an executable that calls the C run-time library (CRT) should use the _beginthread and _endthread functions for thread management rather than CreateThread and ExitThread; this requires the use of the multi-threaded version of the CRT. It is safe to call CreateThread and ExitThread from a thread in a DLL that links to the static CRT as long as the thread does not call the DisableThreadLibraryCalls function.

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

а “ex” – просто более широкий набор параметров, не более

тема на форуме

Добавлено в Пост-обзор. Дата Июль 8th, 2010

5th
Июл

Как отловить изменение раскладки клавы (ru/en или en/ru)?

procedure TForm1.Timer1Timer(Sender: TObject);
var Layout: array [0.. KL_NAMELENGTH] of char;
begin
   GetKeyboardLayoutName(Layout);
   if Layout = ‘00000409′ then label1.caption:=’en’
   else label1.caption:=’ru’;
end;

Тема на форуме

Добавлено в Топик-обзор. Дата Июль 5th, 2010

6th
Июн

Нажать программно win+L

Есть WinApi из user32

Цитата:

The keybd_event function synthesizes a keystroke. The system can use such a synthesized keystroke to generate a WM_KEYUP or WM_KEYDOWN message. The keyboard driver’s interrupt handler calls the keybd_event function.

VOID keybd_event(

BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // flags specifying various function options
DWORD dwExtraInfo // additional data associated with keystroke
);

Насчёт делфи неуверен, наверное так:

 keybd_event(VK_LWIN, 0, 0, 0);

 keybd_event('L', 0, 0, 0);

 keybd_event('L', 0, KEYEVENTF_KEYUP, 0);

 keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);

Тема на форуме.

Добавлено в Пост-обзор. Дата Июнь 6th, 2010

31st
Май

Отловить момент сворачивания окна

SERG1980:

Ну тогда в разделе Public пишем следующую строку:

procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
далее после слова implementation описываем эту процедуру

Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   if msg.CmdType=SC_MINIMIZE then
   begin
     //здесь делаем что надо
end else inherited;
end;