FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Memo Console for Inno Setup (https://fileforums.com/showthread.php?t=103712)

BLACKFIRE69 30-07-2020 16:11

Memo Console for Inno Setup
 
1 Attachment(s)
A Console window for Inno Setup with TMemo.

Carldric Clement 03-08-2020 22:00

2 Attachment(s)
It looks difficult to use your dll. somehow they gave me this weird symbol. :)

BLACKFIRE69 04-08-2020 07:19

1 Attachment(s)
Quote:

Originally Posted by Carldric Clement (Post 487220)
It looks difficult to use your dll. somehow they gave me this weird symbol. :)

yep me too.
apparently, i should fix the encoding for Delphi.

but "Console.dll" works well with "Inno Setup". ;) :D

Carldric Clement 04-08-2020 19:25

1 Attachment(s)
I figure by myself. Now it works on delphi. You should try this. :D

Cesar82 04-08-2020 20:20

Quote:

Originally Posted by Carldric Clement (Post 487242)
I figure by myself. Now it works on delphi. You should try this. :D

This code also works here.
Perhaps the implementation of some other function in the BLACKFIRE69 library may interfere with the callback (that may be it).
Your code cmd is very interesting for me.
If you just leave "uses Windows" in project, adding process message function and build with DELPHI 2010 the cmd.dll finally will be 33.0 KB (33,792 bytes) or 17.5 KB (17,920 bytes) using UPX level 9.
Thanks!

Carldric Clement 04-08-2020 22:02

Quote:

Originally Posted by Cesar82 (Post 487243)
This code also works here.
Perhaps the implementation of some other function in the BLACKFIRE69 library may interfere with the callback (that may be it).
Your code cmd is very interesting for me.
If you just leave "uses Windows" in project, adding process message function and build with DELPHI 2010 the cmd.dll finally will be 33.0 KB (33,792 bytes) or 17.5 KB (17,920 bytes) using UPX level 9.
Thanks!

yeah you're right. :D
after that I just leave the "uses Windows" and create the process messages function like this:
Code:

function ProcMsg: boolean;
var
  msg: TMsg;
begin
  while PeekMessage(msg, 0, 0, 0, PM_REMOVE) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg)
  end;
  Result := false;
end;

the size of dll after build will be 51kb (51,712 bytes) then use with upx level 9 turns to 23kb (23,040 bytes). actually I use Delphi XE 10.3 Community Edition. :p


All times are GMT -7. The time now is 21:11.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com