netdir

[prolcay]

Kod: Tümünü seç

 const 
  FDbDriver = 'PARADOX'; 
  SubDir = 'Data'; 
var 
Buf : array[0..256] of char; 
  FAlias: string; 
  FAliasDir: string; 
  appdir:string; 
begin 
    if Session.Active then  Session.Close; 
    FAlias := 'medi'; 
     AppDir := ExtractFilePath(Application.ExeName); 
    Session.ConfigMode := cmPersistent; 
    FAliasDir :=DirectoryListBox1.Directory; //ExtractFilePath(ParamStr(0)) + SubDir; 
    Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); 
    

  Session.NetFileDir := DirectoryListBox1.Directory;//AppDir; 
  GetTempPath(255, Buf); 
  Session.PrivateDir := Buf; 
  Session.SaveConfigFile;  

biliyorum eski bi konu ama projem yarım kaldı herşeyide bunu üzeirne kurdum aslında eskiden böyle probrllememler olmuyodu ama
herşey tamam ama net dir i bi ttürlü değiştiremiyorum.
alias tamam program çalışıyo ama bi türlü olmuyo net diri değiştiremiyorum bu kodla
bide local share tru yaptığım zaman belli bi süre sonra invalid parameter diye bi hata beriyo onu false yaptım ama şu net dir beni yiyip bitiecek.

lütfen yardım!