Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1280600 Wed, 27 Sep 2006 10:35:24 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1280600 LiquidStorm Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1280558 Wed, 27 Sep 2006 10:06:25 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1280558 Цитата LiquidStorm @
Еще попутно вопрос - в ntdll.dll есть функция sprintf - не подскажите как ее правильно объявить.

Точно так же:
    uses
      Windows;
     
    function sprintf(buf:pchar;format:pchar):integer; cdecl varargs; external 'NTDLL.DLL';
     
    var
     buf:array[0..MAX_PATH-1] of char;
    begin
      sprintf(buf,'Integer = %d, Hex = %Xh, String = %s',123,123,'aaa');
      MessageBox(0,buf,'Delphi sprintf',0);
    end.
]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1277540 Mon, 25 Sep 2006 10:12:31 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1277540
Цитата volvo877 @
Ну, так она же объявлена в Windows.pas ...
угу, только из объявления
    function wsprintf(Output: PChar; Format: PChar): Integer; stdcall;
непонятно, как же ей параметры передать - есть только указатель на результат и указатель на строку с форматом.

Цитата jack128 @
Очередная борьба за пару десятков кило на винте??? Ну-ну...
В данном случае Вы ошибаетесь, задача не уменьшить размер, а сделать код некоторых процедур WinAPI/NativeAPI only ;)

Цитата Krid @
Просто юзай C-runtime (MSVCRT.DLL).
Спасибо, попробую.

Еще попутно вопрос - в ntdll.dll есть функция sprintf - не подскажите как ее правильно объявить.]]> LiquidStorm Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275544 Sat, 23 Sep 2006 03:03:47 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275544 Цитата LiquidStorm @
Собственно нужно найти аналог функции Format

Просто юзай C-runtime (MSVCRT.DLL). Она входит в поставку винды, начиная с Windows 95 OSR2. Ее использует Explorer, так что она постоянно в памяти висит. Только не забудь про cdecl и varargs.

    uses windows;
     
    function sprintf(buf:pchar;format:pchar):integer; cdecl varargs; external 'MSVCRT.DLL';
     
    var
     buf:array[0..MAX_PATH-1] of char;
    begin
      sprintf(buf,'Integer = %d, Hex = %Xh, String = %s',123,123,'aaa');
      MessageBox(0,buf,'Delphi sprintf',0);
    end.
]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275416 Fri, 22 Sep 2006 19:16:49 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275416 jack128 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275266 Fri, 22 Sep 2006 15:58:51 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275266 volvo877 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275248 Fri, 22 Sep 2006 15:30:15 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1275248 LiquidStorm Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1274744 Fri, 22 Sep 2006 10:45:37 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1274744 wsprintf
?]]> volvo877 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1274645 Fri, 22 Sep 2006 09:48:58 +0000 WinAPI аналог функции Format() https://forum.sources.ru/index.php?showtopic=155405&view=findpost&p=1274645 LiquidStorm Delphi: Система, Windows API