Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi и WinAPI
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.82
Sagittarius
16 / 9 / 4
Регистрация: 10.01.2012
Сообщений: 54
#1

Программа на WINAPI - Delphi WinAPI

26.02.2012, 21:50. Просмотров 1387. Ответов 3
Метки нет (Все метки)

У меня есть такая задача, нужно сделать программу на котором будет распологаться кнопка "TButton" и компонент "TServerSocket", в обр. соб. "onClick"
Delphi
1
2
3
begin
ServerSocket.Active:=true;
end;
Вся программа должна выглядеть так как описано выше.

Но сама размер программы не должно преышать 100кб.

Как быть если автомитически созданная форма VCL превышает 300кб.

Можно ли это как то по другому реализовать и как?

Я попробовал создать форму на WinAPI
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program Project2;
 
uses
  Windows,
  Messages,
  StdCtrls;
 
const
  szMainWndClass: array [0..15] of Char = 'Project1MainWnd';
  szCaption: array [0..6] of Char = 'WinAPI';
  szErrClassReg: array [0..30] of Char = 'Ошибка регистрации класса окна';
  szErrCreateWnd: array [0..20] of Char = 'Ошибка создания окна';
 
  var
  hMainWnd: HWND;
  wc: WNDCLASS;
  mess: MSG;
  Btn: TButton;
 
  function MainWndProc(Wnd: HWND; uMsg: UINT; WPrm: WPARAM; LPrm: LPARAM): LRESULT;stdcall;
  begin
    Result:=0;
    case uMsg of
      WM_CLOSE: DestroyWindow(Wnd);
      WM_DESTROY: PostQuitMessage(0)
        else
      Result:=DefWindowProc(Wnd,uMsg,WPrm,LPrm);
    end;
  end;
 
begin
  wc.style := CS_HREDRAW or CS_VREDRAW;
  wc.lpfnWndProc := @MainWndProc;
  wc.cbClsExtra := 0;
  wc.cbWndExtra := 0;
  wc.hInstance := HInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := COLOR_WINDOW;
  wc.lpszMenuName := nil;
  wc.lpszClassName := @szMainWndClass;
    if RegisterClass(wc) = 0 then
    begin
      MessageBox(0, @szErrClassReg, nil, MB_OK);
      Exit
    end;
hMainWnd := CreateWindow(@szMainWndClass,
    @szCaption,
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT, CW_USEDEFAULT,
    CW_USEDEFAULT, CW_USEDEFAULT,
    GetDesktopWindow,
    0,
    HInstance,
    nil);
  if hMainWnd = 0 then
    begin
      MessageBox(0, @szErrCreateWnd, nil, MB_OK);
      Exit
    end;
  ShowWindow(hMainWnd, CmdShow);
  UpdateWindow(hMainWnd);
  while GetMessage(mess, 0, 0, 0) do
    begin
      TranslateMessage(mess);
      DispatchMessage(mess)
    end;
end.
Но кроме этого не знаю как быть дальше. Кто знает что делать дальше и как?

Я пробовал создать кнопку
Delphi
1
Btn.Create();
то мне писать в параметр? self пишу, но не получается, выдает ошибку(

Не получается создать кнопку и TServerSocket.
http://www.cyberforum.ru/delphi-winapi/thread682892.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2012, 21:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа на WINAPI (Delphi WinAPI):

winapi
РЕБЯТА,ПОМОГИТЕ пожалуйста со следующим: в программе нужно прописать коды...

WinAPI
Как мне программно совершить эти действия,которые показаны на видео? ...

WinAPI
Подскажите плиз книгу какуюнить по WinAPI для полного,полного чайника:)

WinAPI
как сделать так чтобы программа открывала блокнот и открыла нужный текстовый...

RichEdit и WinApi
У меня такая проблема. При компиляции ...

3
Psilon
Master of Orion
Эксперт .NET
5981 / 4834 / 901
Регистрация: 10.07.2011
Сообщений: 14,439
Записей в блоге: 5
Завершенные тесты: 4
26.02.2012, 21:54 #2
http://thesilverwolf.ru/content/%D1%...D%D0%B0-delphi
0
БогДелфей
422 / 330 / 36
Регистрация: 31.05.2011
Сообщений: 1,156
26.02.2012, 21:57 #3
заюзать winsock
0
Sagittarius
16 / 9 / 4
Регистрация: 10.01.2012
Сообщений: 54
26.02.2012, 22:12  [ТС] #4
Цитата Сообщение от БогДелфей Посмотреть сообщение
заюзать winsock
Причем тут WinSock?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2012, 22:12
Привет! Вот еще темы с решениями:

WinAPI и графика
Добрый день, или ночь, или вечер, или... Нужно написать игру, максимально...

WinAPI функции
Суть программы: Есть две программы "Клиент" и "Сервер" Клиент посылает...

WinAPI окна
var h: HWND; begin h:=FindWindow('DOS',nil); end; Допкстим у меня в...

SendMessage и WinApi
Доброго дня комрады! написал программку в делфи которая через n количество дней...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru