استفسار حول cmd dos

[nacer dj]

السلام عليكم و رحمة الله تعالى و بركاته
كيف أستعمل أوامرالدوس Dos من داخل البرنامج

[AvimimuS]

وعليكم السلام عليكم و رحمة الله تعالى و بركاته

كود :

function ExecuteCommande(Commande: String;Attente : Boolean = True): Boolean; Var lpsaProcess, lpsaThread : PSecurityAttributes; StartupInfo : TStartupInfo; ProcessInfo : TProcessInformation; AddrCmd : Array [0..255] Of Char; ExitCode : DWord; begin FillChar(StartupInfo, SizeOf(TStartupInfo), 0); with StartupInfo do begin cb := SizeOf(TStartupInfo); dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; wShowWindow := SW_HIDE; end; New(lpsaProcess); New(lpsaThread); lpsaProcess^.nLength := SizeOf(lpsaProcess^); lpsaProcess^.lpSecurityDescriptor := Nil; lpsaProcess^.bInheritHandle := True; lpsaThread^.nLength := SizeOf(lpsaThread^); lpsaThread^.lpSecurityDescriptor := Nil; lpsaThread^.bInheritHandle := True; StrPCopy(AddrCmd, Commande); Result := CreateProcess(nil, AddrCmd, lpsaProcess, lpsaThread, False, STARTF_FORCEONFEEDBACK, nil, nil, StartupInfo, ProcessInfo); if not Result then Result:=(GetLastError>10000); Dispose(lpsaProcess); Dispose(lpsaThread); if Result then begin while Attente do begin Sleep(500); GetExitCodeProcess(ProcessInfo.hProcess, ExitCode); if ExitCode<>STILL_ACTIVE then break; end; CloseHandle(ProcessInfo.hThread); CloseHandle(ProcessInfo.hProcess); end; end; function BuildDosCommandStr(Command:string):string; begin result:='cmd /c "'+Command+'"'; end; procedure TForm1.Button8Click(Sender: TObject); begin ExecuteCommande(BuildDosCommandStr('Copy C:\print1.txt Lpt1'),TRUE); end;

ايضا يمكنك استعمال ال ShellExecute
مثال يوضح دالك في المرفقات

ملاحظة : الامثلة لاصحابها وحقوقهم محفوظة

[kachwahed]

وعليكم السلام عليكم ورحمة الله وبركاته
أيضا راجع هنا:
كيفيه كتابه اوامر dos بدلفي
ولا تنسى استخدام البحث
بالتوفيق.

[nacer dj]

مشكورين على الرد

[karamofweb]

مشكل بالسطر

كود :

AddrCmd : Array [0..255] Of Char;

[cargem]

كود :

AddrCmd : Array [0..255] Of Char;