{{notification.text}}

MirGames

Bad mother fucker
10.01.07 21:40
0
ZeroMemory(@WND.WndClass, Sizeof(WND.WndClass));
with WND.WndClass do
begin
style:=CS_HREDRAW or CS_VREDRAW;
lpfnWndProc:=@WindowProcedure;
hCursor:=LoadCursor(0, IDC_ARROW);
lpszClassName:=ENGINE_WINDOW_CLASS;
hIcon:=0;
hbrBackground:=$000000;
lpszMenuName:=nil;
cbClsExtra:=0;
cbWndExtra:=0;
end;
WND.WndClass.hInstance:=HInstance;

Windows.RegisterClass(WND.WndClass)

GetLastError возвращает код ошибки 2 - Не удается найти указанный файл

Че за фигня???
#1
11.01.07 18:36
0
Попробуй так...

Код

With WindowClass Do
Begin
Style         := 0;
lpfnWndProc   := @WindowProc;
cbClsExtra    := 0;
cbWndExtra    := 0;
hInstance     := 0;
hIcon         := LoadIcon (0, idi_Application);
hCursor       := LoadCursor (0, idc_Arrow);
hbrBackground := GetStockObject (White_Brush);
lpszMenuName  := '';
lpszClassName := PChar(ClassName);
End;

if RegisterClass(WindowClass) = 0 Then Exit;

FWindow:=CreateWindow(PChar(ClassName),
PChar(Name),
ws_PopUp or
ws_ClipSiblings or
ws_ClipChildren,
0,
0,
Width,
Height,
0,
0,
HInstance,
nil);

#2
16.06.07 14:20
0
Хотел почти точно такую же тему открыть, но натолкнулся на эту. Спасибо вам, мужики, буду пробовать ;)
#{{post.Index}}
{{post.Author.Login}}
{{post.CreatedDate | date:'dd.MM.yy HH:mm'}}
{{post.VotesRating}}
Отредактировано: {{post.UpdatedDate | date:'dd.MM.yy HH:mm'}}