دالة Wsprintfa

[Polia]

سلام اعدروني علي كثرة استفساراتي 
انا بصدد كتابة كيغن KeyGein حول برنامج فهمت خوارزميتة حيث يقوم هدا الأخير بجمع بايتات الأسم كل بايت يتم اضافة له 32 هيكس ثم يحول الناتج الي Unsigned intبدالة Wsprintf 
سؤالي هو كيفية التعامل مع هاته الدالة ولو ممكن مثال

[x-member]

MSDN

[align=left][url]https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-wsprintfa[/url][/align]

هذا مثال بال C++  : 

[url]https://www.programiz.com/cpp-programming/library-function/cwchar/swprintf[/url]

هذا مثال من StackOverflow بالدلفي : 

function wsprintf(Output: PChar; Format: PChar): Integer; cdecl; varargs;
  external user32 name {$IFDEF UNICODE}'wsprintfW'{$ELSE}'wsprintfA'{$ENDIF};

procedure TForm1.FormCreate(Sender: TObject);
var
  S: String;
begin
  SetLength(S, 1024); // wsprintf can work only with max. 1024 characters
  SetLength(S, wsprintf(PChar(S), '%s %03d', 'Hallo', 3));
end;

ملاحظة : 
حاول البحث أولا ثم اطرح تساؤلاتك داخل المنتدى , بالتوفيق صديقي

[Polia]

 

https://docs.microsoft.com/en-us/windows...-wsprintfa

شاهدت المثال من قبل جربته لكن واجهت بعض الصعوبة في تمرير بعض البارامترات

[x-member]

واجهت بعض الصعوبة في تمرير بعض البارامترات

لهذا يجب عليك عدم الاستعجال , حاول فهم المبادئ أولا 

[url]http://delphiprogrammingdiary.blogspot.com/2014/12/string-pchar-char-in-delphi.html[/url]