Miten saan nappulaa painamalla tehtyä pikku skriptin? Siis ajattelin, että jos onnistuisi esim sellainen, että kun painaa nappulaa (Button1) niin se tekisi tämän skriptin pätkän:
del c: *.tmp
del %temp%*.tmp /f
del %windir%prefetch*.*
del %windir%temp*.* /f
del C:documents and settings*local settingstemp*.* /f
Eli tyhjentäisi temp tiedostot. Vai onko mahdollista tuollainen? Lazarus on käytössä.
Kysymys.
Hmmm..?
7
350
Vastaukset
- Polunkulkija.
Eräs tapa on tehdä se vaikkapa prosessilla! (Käsittääkseni Delphi ei tue prosesseja mutta Lazarus ja FreePascal tukee sitä).
Eli laita lomakkeelle , edit, button ja memo:
Niin alla oleva rutiini ajaa komentorivillä niitä käskyjä mitä olet edittiin kirjoittanut. Memossa näät tekstit joita antamasi käsky kirjoittaisi ruudulle.
Lisää Uses-lauseeseen Process ja luo napin painamiselle tapahtuma
procedure TForm1.Button1Click(Sender: TObject);
var aProcess: TProcess;
begin
aProcess := TProcess.Create(nil);
aProcess.CommandLine := Edit1.Text;
aProcess.Options := AProcess.Options [poWaitOnExit, poUsePipes];
aProcess.Execute;
Memo1.Lines.LoadFromStream(aProcess.Output);
aProcess.Free;
end;
Voit muokata rutiinia esim. niin että kirjoitat haluamasi komennon
merkkijonona Edit1.Textin paikalle. Jos et halua memoa niin poista
Memo1.L... rivi ja aseta aProcess.Options rivi näin:
aProcess.Options := AProcess.Options [poWaitOnExit];- Mika0800
"Käsittääkseni Delphi ei tue prosesseja"
Delphissä ei ole erikseen prosessitukea, mutta Delphi -ohjelmasta voi tehdä windows API -kutsuja.
Näistä prosessien luontiin liittyvät vanhempi WinExec ja uudempi CreateProcess. lisätietoja msdn:stä.
Delphi oma DeleteFile poistaa tiedoston, muttei tue wildcard -merkkejä (*, ?).
ongelman kiertämiseksi 2 keinoa:
1. käsittele wildcard -merkit itse, siis FindFirst, FindNex, FindClose -proseuurien avulla (Delphi help: FindFirst).
2. kierrä ongelma hyödyntämällä windows shelliä:
shFileOperation (lisätiedot: msdn).
tässä tapauksessa myös:
uses
ShellAPI;
kannattaa Delphin helpistä katsioa myös FileExists ja DirectoryExists.
- rraarraarraa
Funktio DeleteFile(tiedoston_nimi) poistaa yhden tiedoston. Paluuarvona tulee true jos poisto onnistui.
- Useampi tiedosto poistuu
Tämä poistaa tietystä kansiosta (jos kansio:='' niin se kansio missä tämä ohjelma on) annetun nimiset tiedostot. Tässä esim. ne joissa on .bak tiedostopääte.
procedure DeleteFiles(KansioJaTiedostonimi: string);
var SearchRec: TSearchRec;
begin
if FindFirst(KansioJaTiedostonimi, faAnyFile, SearchRec) = 0 then
try
repeat
DeleteFile(SearchRec.Name);
until FindNext(SearchRec) 0;
finally
FindCLose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var kansio,tiedostonimi:string;
begin
kansio :='';
tiedostonimi:= '*.bak' ;
DeleteFiles(kansio tiedostonimi);
end; - Hmmm..?
Mitä tuo nyt siis tekee? Poistaako se temp tiedostot vai mitä?
- 88888888
Hmmm..? kirjoitti:
Mitä tuo nyt siis tekee? Poistaako se temp tiedostot vai mitä?
TProcess-luökalla käynnistetään uusia prosessaja eli
sillä pystynee ajamaan toisia ohjelmia omasta ohjelmasta käsin. - Mika0800
Hmmm..? kirjoitti:
Mitä tuo nyt siis tekee? Poistaako se temp tiedostot vai mitä?
Annettu esimerkki ei sellaisenaan voi toimia oikein!
SearchRec.Filename palauttaa löydetyn tiedostonimen ILMAN polkunimeä.
Järkevämpää olisi välittää proseduurille 2 eri parametrina kansionimi ja tiedostomaski.
Tarvittaessa:
ExtractFilePath
ja ExtractFileDir
ovat hyödyllisiä.
ExtractFilePath: hakemiston loppu - "\" sisältyy paluuarvoon, sensijaan ExtractFileDir:ssä ei sisälly.
Kun esimerkkikoodista korjaa tuon epäkohdan, sen pitäisi toimia.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.575509- 934377
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3752624Ovatko naiset lopettaneet sen vähäisenkin vaivannäön Tinderissa?
Meinaan vaan profiileja selatessa nykyään valtaosalla ei ole minkäänlaista kirjoitettua tekstiä siellä. Juuri ja juuri s721141Suomi vietiin Natoon väärin perustein. Viides artikla on hölynpölyä. Yksin jäämme.
Kuka vielä uskoo, että viides artikla takaa Suomelle avun, jos Suomeen hyökätään. Liikuttavasti täällä on uskottu ja ved3301038- 61853
- 28833
Sydämeni on sinun luona
Koko ajan. Oli ympärilläni ketä oli niin sinä olet vain ajatuksissa ja tunteissa. En halua muiden kosketusta kuin sinun46826Trump ja Venäjä
Huomasitteko muuten... Käytännössä ainoat valtiot, joille Trump EI eilen asettanut typeriä tariffejaan, olivat Venäjä ja102799Jatkuva stressitila
On sinun vuoksesi kun en tiedä missä mennään mutta tunteeni tiedän ainoastaan52789