+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف افتح %systemroot% ؟ (/showthread.php?tid=1554)
كيف افتح %systemroot% ؟ - mehdi30 - 22-01-2010
السلام عليكم
اردت ان يفتح برنامجي %systemroot% و%systemdrive% بدل windows او winnt..........
و c: او d: ان كان بالامكان.
وشكرا
كيف افتح %systemroot% ؟ - kachwahed - 22-01-2010
وعليكم السلام ورحمة الله
مرحبا بك أخي
هناك مواضيع في المنتدى لذلك:
ايجاد مسار مجلدات النظام
مثال:
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;