Run Dos Command, HOW ?

Run Dos Command, HOW ? 12.06.2003. u 13:27 · pre 284 meseca #1

Püozdrav,

Konkretno mi treba da program napisan u delfiju izvrsi neku dos komandu i ceka da s onda izvrsi i nastavi s radom.

rec je o dir *.* > list.txt dos komandi

Nasao sam nesto na netu ali nije mi mnogo pomoglo.

ajde ako neko zna bio bi mu zahvalan.
Koristim win98

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Re: Run Dos Command, HOW ? 12.06.2003. u 15:03 · pre 284 meseca #2

Evo mog prijedloga:

uses ShellApi;

...

ShellExecute(Application.Handle, 'open', PChar('command.com'),
Pchar('/K dir *.*'), Pchar('C:\'), SW_ShowNormal);

Ako hoces da se prozor zatvori poslije operacije koristi parametar /C, inace ostavi /K

Re: Run Dos Command, HOW ? 12.06.2003. u 16:54 · pre 284 meseca #3

Sad cu ja da zazvucim glupo - sto bi ti program zavisio od okidanja dir komande; zasto ne iskoristis findfirst+findnext funkcije i formiras sam svoju listu fajlova, pa sa njom mozes da radis sta hoces -> najmanji je problem dampovati formatirani ispis u fajl.

Re: Run Dos Command, HOW ? 12.06.2003. u 21:50 · pre 284 meseca #4

Pretpostavio sam da ce neko da predlozi findfirst,next....

Radio sam vec s ovim i program mi se iz nekog razloga na nekim masinama zaglupi i nece da odradi posao zbog cega sam za pocetak resio problem preko dir comande.

nisam jos probao ovu shellexecute, sacu vidim dal radi posao.

pozdrav

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Re: Run Dos Command, HOW ? 29.06.2003. u 14:46 · pre 284 meseca #5

Ja to radim na silu:
(stavi na form 1 button, 1 listbox i 1 timer - na timer stavi interval = 1 i enabled na FALSE)
primer, na button1.click:

Code:

listbox1.items.add('dir c:\*.* /s/b > c:\listafajlova.txt'); //dodaje za prikupljanje kod u BAT fajl
listbox1.items.add('del c:\cm1.bat'); //dodaje kod za brisanje samog sebe
listbox1.items.savetofile('c:\cm1.bat'); //snima fajl
winexec('c:\cm1.bat',sw_hide); //pokrece skriveno
timer1.enabled:=true; //startuje timer

a na ontimer:

Code:

if not fileexists('c:\cm1.bat') then begin //ako nema BAT fajla (sam se obrisao)
listbox1.clear; //brise listbox (mozes koristiti i 2 listboxa, onda na 1 visible stavi na false)
listbox1.items.loadfromfile('c:\listafajlova.txt'); //ucitava
deletefile('c:\listafajlova.txt'); //brise temp fajl
end;

naravno povise timer1.enabled:=true mozes dodati kod da ti npr. label sa captionom
'Molim sacekajte...' treperi (ili na tajmeru)... radi sta 'oces, ja sam ti pokazao sta resava tvoj problem...

JAH

Potpis

Avram,
http://www.eyesburn.co.sr/

Re: Run Dos Command, HOW ? 30.06.2003. u 00:16 · pre 284 meseca #6

Svaka cast. Odlicna fora. Nikad se ne bih setio BAT fajlova.
super fora!

Pozdrav.

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Re: Run Dos Command, HOW ? 30.06.2003. u 19:27 · pre 284 meseca #7

Ma nema na cemu, aj' pozdrav

Potpis

Avram,
http://www.eyesburn.co.sr/

Forum kao aplikacija na telefonu

Srodne teme