Compago

...free knowledge

 
  • Increase font size
  • Default font size
  • Decrease font size
Home Manuali Programmazione Trova la directory di sistema con delphi

Trova la directory di sistema con delphi

E-mail Stampa PDF

La directory di sistema solitamente è c:\windows\system ma potrebbe essere diversa per questioni di installazione o di localizzazione, quindi per ricavarla basta usare la funzione GetSystemDirectory :

function SystemDir: string; 
var
 dir: array [0..MAX_PATH] of Char; 
begin
 GetSystemDirectory(dir, MAX_PATH); 
 Result := StrPas(dir); 
end;
 

o

function SystemDirectory: string; 
var
 SysDir: PChar; 
begin
 SysDir := StrAlloc(MAX_PATH); 
 GetSystemDirectory(SysDir, MAX_PATH); 
 Result := string(SysDir); 
if Result[Length(Result)] <> '\' then
 Result := Result + '\'; 
 StrDispose(SysDir); 
end;
 
function GetSystemDirectory(var S: String): Boolean; 
var
 Len: Integer; 
begin
 Len := Windows.GetSystemDirectory(nil, 0); 
if Len > 0 then
begin
 SetLength(S, Len); 
 Len := Windows.GetSystemDirectory(PChar(S), Len); 
 SetLength(S, Len); 
 Result := Len > 0; 
 end else 
 Result := False; 
end;
 
Ultimo aggiornamento ( Venerdì 24 Settembre 2010 10:37 )  
Loading

Login