תחומים - פורום חרדי מקצועי

@WWW אני מקווה ששינת את נתיבי הקבצים (X:)
תריץ את זה dism /export-image /? בשורת הפקודה עם הרשאות מנהל ותראה את העזרה

האם זה ההגדרה?
לחצן ימני על המתאם > שיתוף > סימון ב V > בחירה של המתאם הנוסף

@clickone
האם זה נותן להתחבר ל dafult Getway של הסטיק?

@מנצפך
https://ksp.co.il/item/2899-40197
דור 4 ב 220 ש"ח
קניתי כזה ומאוד נהנתי

בעיקרון עבור המרה מ ESD ל WIM צריך להריץ את זה

dism /export-image /sourceimagefile:x:\sources\install.esd /sourceindex:1 /destinationimage:x:\wim\install.wim /compress:max /checkintegrity

אבל תנסה להוריד מהאתר הזה הם הטובים ביותר בתחום זה המקור לפריצות מסוג KMS MicrosoftToolkit WindowsLoader ועוד(אצלי חסום):
https://forums.mydigitallife.net/threads/esd-wim-conversion-batch.54007/#post-903619

מה יש לך ISO או ESD

בתוך התיקיה sources

@clickone @aiib
אז איך אני מצטרף לפורום תכנות?

זה מבוסס על ImagX של מיקרוסופט (נמצא בתוך AIK)
אתר שנותן הסבר באנגלית עם תמונות:
http://www.instructables.com/id/How-to-install-windows-7-or-8-to-flash-drive/

@הכוכב-שלנו @ליבל
0_1518695510787_ספר לימוד לאקסס באנגלית.rar

סיסמה:1234

@www
מספיק 16 אולי יש בעיה עם קובץ החלפה של זיכרון וכדו' שצריך לבטל אותו (אני חושב שבהתקנה שפירסמי זה מתבצע אוטמטי אחרי שהגדרת אותו כנשלף)

@clickone
לאחר מאמצים מרובים נמצא הפתרון והכל ב VBA

0_1518658389338_Barcode.rar

Option Compare Database

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

'בדיקת קבצים
'fileExists(Environ("SystemRoot") & "\fonts","ean-13")
Function fileExists(s_directory As String, s_fileName As String) As Boolean

  Dim obj_fso As Object, obj_dir As Object, obj_file As Object
  Dim ret As Boolean
   Set obj_fso = CreateObject("Scripting.FileSystemObject")
   Set obj_dir = obj_fso.GetFolder(s_directory)
   ret = False
   For Each obj_file In obj_dir.Files
     If obj_fso.fileExists(s_directory & "\" & s_fileName) = True Then
        ret = True
        Exit For
      End If
   Next

   Set obj_fso = Nothing
   Set obj_dir = Nothing
   fileExists = ret

 End Function
'הרצה של שורת הפקודה
'AddFont "ean-13.ttf", CurrentProject.Path
Function AddFont(sFontName As String, sSourceFolder As String)
Dim sSystemFontFolder As String
Dim cmdCopy As String, cmdAddReg As String, cmdPause As String, command As String
Dim sRegFullKey As String

sSystemFontFolder = """" & Environ("SystemRoot") & "\FONTS\" & """"

cmdCopy = "/c copy"
cmdCopy = cmdCopy & " " & """" & sSourceFolder & "\" & sFontName & """"
cmdCopy = cmdCopy & " " & sSystemFontFolder
sRegFullKey = " """ & "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" & """"
cmdAddReg = "reg add" & sRegFullKey
cmdAddReg = cmdAddReg & " /v " & """" & Left$(sFontName, Len(sFontName) - 4) & " (TrueType)" & """"
cmdAddReg = cmdAddReg & " /t REG_SZ"
cmdAddReg = cmdAddReg & " /d " & sFontName & " /f"
cmdPause = " & pause"
command = cmdCopy & " & " & cmdAddReg & cmdPause

    ShellExecute 0, "runas", "cmd", command, "C:\", SW_SHOWHIDE
End Function

@אברהם-אברהם
יש אפשרות להתקין כל וינדוס מויסטה ומעלה על ידי פריסה של קובץ wim על הדיסק קשיח
השאלה אח"כ איך זה יעבוד?
בצורה הזאת אני מתקין על DOK וינדוס 10 /7

עבור הפריסה אני משתמש בזה 0_1518650029978_NT6xFastInstaller.zip

הוראות:
http://www.instructables.com/id/How-to-install-windows-7-or-8-to-flash-drive/
http://www.rmprepusb.com/tutorials/win7onusb

אני מעוניין להתקין פונט (במקרה שהוא לא קיים) ואני מקבל שגיאה של Access is denied (נחסמה גישה).

האם יש דרך לפנות לAPI במחשב עם הרשאות מנהל?

או שאולי הדרך הטובה לכתוב את זה ל batch ולהריץ אותו כמנהל? (לזה מצאתי API עם אפשרות של "RunAs").
@clickone

@dovid
ניסיתי, ולא עבד
תודה

@clickone
איך אפשר לשלוח בפרטי?

@clickone
יש לי טופס שמכיל רשימת סוגים ולידם מופיע ChkBox לסימון V
אני טוען את הרשימה מתוך טבלה.

אז בעיקרון הכי פשוט לעשות כמו שאתה חושב ליצור טופס שה RecordSource יהיה טבלה.

הבעיה היא כזאת:
אני משתמש בזה בשני מקומות 1. במסך הגדרות 2. בסינונים.

יש לי מסך הגדרות ושם אני נותן למשתמש להחליט מה יהיה מסומן כברירת מחדל בטופס סינונים (גם זה לכאורה לא בעיה).

בסינונים אני טוען את רשימת הסוגים עם ChkBox ואפשר לשנות את הברירת מחדל עבור הסינון הנוכחי אבל אני לא רוצה לשמור את זה לטבלה כי זה זמני.

@clickone
בדיוק את ההדבקה לא ידעתי איך לעשות.

בקשר לפורום תכנות אני כמעט ולא פעיל (אפילו מחשב שלי אין לי).

@clickone אמר באיך עושים ברקוד באקסס ללא ActivX:

האפשרות של הוורד גם מחייבת התקנה של וורד בכל מחשב. מנסיון, יותר קל האפשרות של התקנת הגופן מאשר התקנת הוורד, בעיקר אם התוכנה שלך תהיה מסחרית ותיתקל בבעיות רישוי.

התוכנה שלי כוללת טופס מודלרי (פקדים משתנים תוך כדי ריצה) הבנתי שאי אפשר ליצור קובץ ריצה כך שצריך התקנה מלאה של אופיס.
האם יש בכל אופן אפשרות לסגור כזה דבר ACCDE?

@clickone
עד היום השתמשתי ב EAN13 ואני רואה שהוא נמצא בגיט
תודה רבה