WinAPI

[JiF]

Вообще эту тему следовало бы создать в C++ , но так как на этом форуме кодят на Delphi , то пусть мне подскажут как ниженаписанное сделать в Delphi, а потом я переведу на другой язык....
Ну вобще сама задача:
Нужно написать DLL в которой будет одна единственная функция (возвращает тока код ошибки, если всё ОК - 0...), которая создает окно на чистом WinAPI ... Впринципе я все сделал, но функция unregisterclass работать не хочет, может надо там другим способом.. .ну не знаю....перевалил задачу на Bас

[nons]

если тебе выдает ошибку, что класс не зарегестрирован, то возможно тебе необходимо провести следующую процедуру:

RegisterClass(Your_Class_Name)

Ну и вот еще небольшая вырезка из кода по созданию окна на winAPI:

...
var 
	Inst, Handle : Hwnd;
	WndClass : TWndClass;

...

begin
	...
	Inst := GetModuleHandle(nil);
	
	with WndClass do
	  begin
	    Style := CS_HRedraw or CS_VRedraw; 
	    Lpfnwndproc := @windowproc; // 
          Hinstance := Inst;
	    HbrBackground  := color_btnface;
	    LpszClassName := 'DX';
	    HCursor := loadCursor(0,IDC_ARROW);
	  end;
	  
	RegisterClass(WndClass);
	
	Handle:=CreateWindowEx(0,'DX','',WS_POPUP,1,1,200,200,0,0,Inst,nil);
	
	ShowWindow(Handle, SW_SHOW);
	UpdateWindow(Handle);
	
	...
end;

[JiF]

Класс зарегистрирован.....Вся суть в том, что когда вызываешь подобную функцию из модуля, все прекрасно пашет, а из DLL не работает половина....
PS: может у кого есть примеры окон на WinAPI другие и по-профессиональней ?