به دست آوردن شاخه اصلی ویندوز

[Hadizadeh]

دوستان چه جوری میشد مسیر شاخه اصلی ویندوز رو پیدا کرد؟

[Arman_1367]

می توانی از روش زیر استفاده کنید البته حالا دوباره قابیل می یاد میگه برو کنار حرفه ای اومده :
Var A:Array [0..Max_Path] Of Char;
Begin
GetSystemDirectory(A,Sizeof(A));
ShowMessage(A);
End;

[Hadizadeh]

ممنون. ولی تو رشته بازگردونده شده کلمه System32 هم هست که من نمی خوام.من یکسری فونت دارم می خوام اونا را با دلفی نصب کنم یعنی بریزم تو فولدری مثل C:\WindowsPath\Fonts راه دیگه ای غیر از دستکاری رشته خروجی هست؟ که فقط اینو برگردونه C:\WindowsPath

[Hadizadeh]

ممنونم. ولی تو رشته بازگردونده شده کلمه System32 هم هست که من نمی خوام.من یکسری فونت دارم می خوام اونا را با دلفی نصب کنم یعنی بریزم تو فولدری مثل C:\WindowsPath\Fonts راه دیگه ای غیر از دستکاری رشته خروجی هست؟ که فقط اینو برگردونه C:\WindowsPath

[Batman]

با سلام
دوست عزیز (hadizadeh) توی سایت قبلا بحث شده تحت عنوان نصب font جستجو کنید پیدا میکنید
در ضمن من توی سیستم دارم میگردم اگه پیدا کردم (چون خیلی وقته) برات آپلود میکنم
موفق باشید

[vcldeveloper]

uses
ShlObj;

function GetFontFolderPath: string;
var
TmpStr : array [0..Max_Path] of char;
begin
Result := '';
if SHGetSpecialFolderPath(0,TmpStr,CSIDL_FONTS,False) then
Result := Trim(TmpStr) + '\'
end;

[technic]

می تونی از تابع GetWindowsDirectory استفاده کنی
دوپارامتر دارد اولی آرایه از نوع کاراکتر ودومی حداکثر تعداد کاراکترهای آرایه را مشخص می کند
(برای استفاده از آرایه می تونی از تابع StrPas برای تبدیل به رشته استفاده کنی