باز کردن پوشه فونت ویندوز

[neda_barnamenevis]

سلام من یک خط برنامه می خواهم که پوشه فونت ویندوز را برام باز کنه خودم این برنامه را نوشتم می شه اشکالاتشا بگین

dir := StrAlloc(100);
GetWindowsDirectory(dir, 100);
TargetFileName := String ( dir );
TargetFileName := TargetFileName+'\Fonts\';
ShellExecute(Handle, 'open', 'TargetFileName', nil, nil, SW_SHOWNORMAL);

[Arman_1367]

از این تابع استفاده کنید:

Procedure OpenFonts;
Var A:Array [0..MAX_PATH] of char;
begin
GetWindowsDirectory(A,Sizeof(A));
ShellExecute(hwnd(nil),'',PChar(A+'\Fonts\'),'','' ,SW_SHOWDEFAULT);
End;