У кого-нибудь есть исходник проги на чистом API???

← →
Василий2 (2002-10-08 15:24) [0]

← →
ZrenBy © (2002-10-08 15:32) [1]

Целый проект, (только на WATCOM C++)
А зачем тебе?

← →
Василий2 (2002-10-08 16:00) [2]

Блин, на дельфях!

← →
Kaban © (2002-10-08 16:04) [3]

Посмотри в кладовке
Я где-то видел текстовый редактор Bred - весьма неплохо для изучения

← →
Kaban © (2002-10-08 16:08) [4]

Сходи на http://delphigfx.mastak.ru/
многие игры написаны на чистом API

← →
ZZ © (2002-10-08 16:24) [5]

program APIOnly; begin MessageBox(0,"This program use WinAPI","Hello World :)",MB_OK); end.

PS. Уточнять вопрос не пробовал?

← →
Kaban © (2002-10-08 16:27) [6]

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

← →
Digitman © (2002-10-08 17:01) [7]

>Василий2

Блин на дельфях не получится - "прога на чистом API" на самом деле "чистой" не будет : в нее будет включен и задействован в run-time как минимум код объектный модулей system.pas, sysinit.pas

← →
ZZ © (2002-10-08 17:57) [8]

Kaban
Да собственно кроме тебя никто и не ответил :) (ну не считая ZrenBy, но там про другое :)
Да и у тебя с ответами не очень понятно... вам с автором надо задуматься и определиться в желаниях (что есть Прога на API???).

← →
Василий2 (2002-10-08 19:34) [9]

Прога на API - прога, написанная на API!! :)))

Только чтоьы там создавалось окно, меню, другие контроллы, плюс обработка сообщений!

Лови, в качестве примера (это я просто пробовал когдато)

program Demo_API;

{$R "api.res" "api.rc"}

uses
windows,
messages, CommCtrl;

var
wc : TWndClassEx;
Wnd : HWND;
Msg : TMsg;
Progress:HWND;

function WindowProc(wnd : HWND; Msg : Integer; WParam : WParam; LParam : Longint): Longint; stdcall;
const
BUFFER = MAX_PATH;
var
I : Integer;
CurDir : array[0..BUFFER-1] of Char;

Begin
Result := 0;
case msg of

wm_destroy :
Begin
postquitmessage(0);
exit;
Result:=0;
End;

WM_QUIT :
Begin
postquitmessage(0);
exit;
Result:=0;
End;

wm_command :
Begin
case loword(wParam) of
200 :
case hiWord(wParam) of
lbn_selchange :
begin
I := SendMessage(lParam, LB_GETCURSEL, 0, 0);
SendMessage(lParam, LB_GETTEXT, I, Integer(@CurDir));
SetWindowText(GetDlgItem(Wnd, 222), CurDir);
end;
lbn_dblclk :
begin
I := SendMessage(lParam, LB_GETCURSEL, 0, 0);
SendMessage(lParam, LB_GETTEXT, I, Integer(@CurDir));
SetWindowText(GetDlgItem(Wnd, 221), CurDir);
end;
end;

100 :
begin
//GetCurrentDirectory(SizeOf(CurDir), CurDir);
// DlgDirList(Wnd, CurDir, 200, 0, DDL_DIRECTORY);
SendMessage(wnd,WM_QUIT,0,0);
end;

end;
End;
else
Result := DefWindowProc(wnd, msg, wparam, lparam);
end;
End;

begin
wc.cbSize := sizeof(wc);
wc.style := cs_hredraw or cs_vredraw;
wc.lpfnWndProc := @WindowProc;
wc.cbClsExtra := 0;
wc.cbWndExtra := 0;
wc.hInstance := HInstance;
wc.hIcon := LoadIcon(0, IDI_APPLICATION); //
wc.hCursor := LoadCursor(0, idc_arrow);
wc.hbrBackground := COLOR_BTNFACE + 1;
wc.lpszMenuName := nil;
wc.lpszClassName := "listbox example";

RegisterClassEx(wc);

Wnd := CreateWindowEx(0, "listbox example", "

← →
Василий2 (2002-10-09 16:45) [11]

Спасибо!

У кого-нибудь есть исходник проги на чистом API??? Найти похожие ветки