mam taki oto kod:
var
naped : char;
typ : integer;
begin
//wykonanie pętli dla wszystkich liter alfabetu
for naped:='a' to 'z' do
begin
//wywołanie funkcji informującej o npędzie
typ:=GetDriveType(pchar(naped));
//wyświetlenie informacji
case typ of
DRIVE_FIXED: ShellExecute(GetDesktopWindow,'open',PChar('C:\windows\System32\defrag.exe'),'TUTAJ -v',nil,SW_SHOWNORMAL);
end;
end;
end.
i chce jako parametry wiersza poleceń wstawić litere dysku odnalezionego dysku oraz -v. Jak to zrobić?