22-01-2010, 02:30 PM
22-01-2010, 02:36 PM
وعليكم السلام ورحمة الله
مرحبا بك أخي
هناك مواضيع في المنتدى لذلك:
ايجاد مسار مجلدات النظام
مثال:
بالتوفيق.
مرحبا بك أخي
هناك مواضيع في المنتدى لذلك:
ايجاد مسار مجلدات النظام
مثال:
PHP كود :
{************************************************************************
Replaces all environment variables with their correspondig values
************************************************************************
Example:
EditPath.Text := ExpandEnvironment('%systemroot%\Temp\');
Result under NT:
C:\WINNT\Temp\
}
function ExpandEnvironment(const strValue: string): string;
var
chrResult: array[0..1023] of Char;
wrdReturn: DWORD;
begin
wrdReturn := ExpandEnvironmentStrings(PChar(strValue), chrResult, 1024);
if wrdReturn = 0 then
Result := strValue
else
begin
Result := Trim(chrResult);
end;
end;