Révision 4 LicensesMercure/UFKeys.pas

Voir les différences:

UFKeys.pas
298 298 
    end;
299 299 
  end;
300 300 
  try
301 
    f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
301 
    f := TIniFile.Create(TempFolder + '\InraPorc.lic');
302 302 
    f.WriteInteger ('License', 'LicenseType', LicenseType);
303 303 
    f.WriteInteger ('License', 'LicenseNumber', PBLicenseNumber.Value) ;
304 304 
    f.WriteString ('License', 'Version', EVersion.Text);
......
387 387 
        Body.AddStrings(StrMessage);
388 388 
      end;
389 389 
      StrMessage.Free;
390 
      if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
390 
      if FileExists(TempFolder + '\InraPorc.lic')
391 391 
      then
392 
        TIdAttachmentFile.Create(MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic')
392 
        TIdAttachmentFile.Create(MessageParts, TempFolder + '\InraPorc.lic')
393 393 
      else
394 
        FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic not found!');
394 
        FMenu.MLog.Lines.Add('File InraPorc.lic not found!');
395 395 
    end;
396 396 
    FMenu.MLog.Lines.Add('SMTP...');
397 397 
    try
......
408 408 
              FMenu.MLog.Lines.Add('Message could not be copied in IMAP server!');
409 409 
          finally
410 410 
            IMAP4.Disconnect;
411 
            if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
411 
            if not DeleteFile(TempFolder + '\InraPorc.lic')
412 412 
            then
413 
              FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted!');
413 
              FMenu.MLog.Lines.Add('File InraPorc.lic could not be deleted!');
414 414 
            BBRemoveClick(nil);
415 415 
          end
416 416 
        else
......
420 420 
      FMenu.MLog.Lines.Add('Message could not be sent!');
421 421 
    end;
422 422 
  except
423 
    FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created!');
423 
    FMenu.MLog.Lines.Add('File InraPorc.lic could not be created!');
424 424 
  end;
425 425 
end;
426 426 

  		












Formats disponibles :  Unified diff