BlackBox Framework Center

Josef Templ wrote:Maybe GetLastError gives us an answer to this question.

- Josef

MODULE ObxTest4;

	IMPORT WinApi;
       
	VAR res: INTEGER;
	
	VAR err: ARRAY 256 OF CHAR;
	
	
	PROCEDURE IntToString(x: INTEGER; VAR str: ARRAY OF CHAR);
		VAR buf: ARRAY 12 OF BYTE; i, j: INTEGER;
	BEGIN
		IF x = MIN(INTEGER) THEN str := "-2147483648"; RETURN END;
		IF x < 0 THEN x := -x; str[0] := '-'; i := 1; ELSE i := 0; END;
		j := 0;
		REPEAT buf[j] := SHORT(SHORT((x MOD 10))); INC(j); x := x DIV 10 UNTIL x = 0;
		DEC(j);
		WHILE (j >= 0) & (i < LEN(str) - 1) DO str[i] := CHR(ORD('0') + buf[j]); INC(i); DEC(j); END;
		str[i] := 0X;
	END IntToString;
	
	
BEGIN
	res := WinApi.MessageBoxW(0, "hello", "Test", {});
	IF res = 0 THEN (* failed *)
		res := WinApi.GetLastError();
		IntToString(res, err);
		res := WinApi.LoadLibraryA("COMCTL32.dll");
		res := WinApi.MessageBoxW(0, err, "GetLastError", {});
	END
END ObxTest4.

DevLinker.Link
	ObxTest4.exe := ObxTest4$

luowy wrote:make a manifest file for the exe,you can get err dialog

luowy wrote:@Josef
this problem is so simple,I cant understand what the trouble stop you.

the XP's User32.dll has a builtin commctl.dll <6.0,so the MB can be opened without loading commctl32.dll explicitly.
but if the manifest file required the commctl.dll verion >=6.0,the commctl32.dll file must loaded explicitly.
there are two way for loading dll: 1,exe file included dll's name;2,LoadLibraryA() in the code.
pay attention to the BB compiler will not incude the dll name in the exe file
if the source code not used it(no call the dll's procedure),even it imported in the source code import list ;

understand this,our ploblem:
the BB exe file not include the commctl32.dll,and the dll file has not loaded by LoadLibraryA() before FatalError() call,
so the MB cant opened and return a 0 result;(that occur only on XP);
the fixup call a LoadLibraryA() to load the commctl32.dll 6.0(manifest file),then call MB,the MB can be opened.

that's all.no magic,I think.

Luowy, this is exactly the problem.
On my XP SP3 I DO NOT get the error behavior.
Everything works fine with or without a manifest.
In other words, I cannot generate the error code myself.

 DevPacker.PackThis BBTest.exe := 
Code/Kernel.ocf
Code/Converters.ocf