05-11-2010, 01:23 PM
السلام عليكم ورحمة الله تعالى وبركاته
لدي دالة ولكنني لا اعرف ما هو عملها :
اريـد منكم ان تشرحوا لي عمل هذه الدالة
لدي دالة ولكنني لا اعرف ما هو عملها :
كود :
Function TranslateMacro(Macro: String): String;
Var
Size :Cardinal;
Output :Array[0..MAX_PATH] of Char;
Begin
Result := '';
FillChar(Output, SizeOf(Output), #0);
Size := SizeOf(Output);
Size := GetEnvironmentVariable(PChar(Macro), Output, Size);
If (Size > 0) Then
Result := Output;
End;