Pitäisi saada bat tiedosto suoritettua. Tämä toimiikin muuten hyvin, paitsi jos polussa on skandeja. Esim. tämä ei toimi, koska ä ja ö tulostuvat dos:ssa väärin.
var batchfile: Tstringlist;
begin
batchfile := TStringList.Create;
batchfile.add('"C:\Documents and Settings\JK\Työpöytä\Tiedosto.exe"');
batchfile.SaveToFile(tempdir 'Tiedosto.bat');
batchfile.Free;
chdir('c:\');
WinExec(PChar(tempdir 'Tiedosto.bat'),sw_hide);
end;
Kellään ideaa miten tämän saisi toimimaan aina?
Delphi ja bat
tiedosto
6
628
Vastaukset
- Delphikoodari..
Voisit kokeilla lyhyitä tiedostonimiä?
http://www.delphifaq.com/faq/delphi/windows_file_system/f414.shtml- Ideasta
Siihen löytyikin ihan extractshortpathname()
- että.-
Ideasta kirjoitti:
Siihen löytyikin ihan extractshortpathname()
Ei auta asiaa.
- koodari_
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders ja sieltä desktop.
Kun ohjelmallisesti sen tuolta luet niin menee nuo skanditkin ihan nappiin... - delphiguru
windows käyttää Windows-1252 -merkkikoodausta (uudemmat sisäisesti Unicode / UTF-16LE, mutta se ei ole tässä olennaista).
MS-DOS ja windowsin komentorivi käyttää OEM850 -koodausta.
jotta ä ja ö toimisivat oikein: CharToOemBuff function
https://msdn.microsoft.com/en-us/library/windows/desktop/dd319646(v=vs.85).aspx
Jos käytät CharToOemBuff -funktiota oikein, niin toki toimii ä tai ö -sisältävät tiedoston tai hakemiston nimet ihan oikein.
Jäynä on siinä, että jos ET KÄYTÄ tuota CharToOemBuff -funktiota, niin bat -tiedosto ei saa parametriksi ä tai ö -kirjainta lainkaan, vaan jonkun ihan väärän merkin.
Syynä on se, että .bat -tiedostossa merkkivalikoima/-koodaus on sama kuin MS-DOSissa eli oem850 eikä Windows-1252.
HUOM:
Itseasiassa CharToOemBuff -funktiota ei ole olemassa !
Sensijaan on olemassa CharToOemBuffA ja CharToOemBuffW -funktiot.
Eli jos lähde on AnsiString niin käytä CharToOemBuffA.
Jos lähde on WideString tai UnicodeString, niin käytä CharToOemBuffW.
HUOM: Jos lähde on pelkkä String, niin huomaa:
Vanhemmat versiot KUIN Delphi 2009:
type
String = AnsiString;
Delphi 2009 sekä sitä uudemmat versiot:
type
String = UnicodeString;
em. tyyppimäärityksiä et siis kirjoita sinä, vaan ne ovat Delphissä jo valmiiksi voimassa !
Delphin CharToOemBuff -funktio on siis itseasiassa alias:
Vanhemmat versiot KUIN Delphi 2009:
CharToOemBuff = CharToOemBuffA
Delphi 2009 sekä sitä uudemmat versiot:
CharToOemBuff = CharToOemBuffW - Anonyymi
Katso esim. funktio:
CharToOemA function
eli komentorivi käyttää merkistöä 850 mutta GUI -sovellukset merkistöä Windows-1252. (tai unicode).
ON suora muunnosfunktio unicode -> 850 / OEM850:
CharToOemBuffA
ja
CharToOemBuffW
eli noilla saa muunnettua komentoriviohjelman vaatimaan OEM850 -muotoon.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mihin kaikkeen sinä ihastuit hänessä
Mikä oli se asia mikä vei jalat altasi? ❤️ Oliko jotain erityistä tilannetta vai tunne? Kenties monen sattuman summa? Ai1179972Persut: haluamme lisää veroja!
Lisää lisää veroja huutaa persukuoro. Veroila Suomi nousuun! "Uusi matkailuvero eli matkailijamaksu peritään esimerki785016Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.
https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.694832Persuja ei aluevaltuustoissa näy
Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.73290Päivän Riikka: Uudenkaupungin autotehdas hiljeni
Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j142507Numero josta kaivattusi tulee mieleen
Onko jokin numero joka yhdistää teidät jotenkin? Älä laita puhelinnumeroa.1071730Kerro kaivattusi nimi tai nimikirjaimet
🌠 Tähdenlento! Kirjoittamalla kaivattusi nimen tai nimikirjaimet tähän, saattaa toiveesi toteutua.551550- 471536
Jorman paluu sodasta Lieksaan oli katkera
Jorma Karhunen astui Lieksan asemalle. Aurinko paistoi, mutta Jorman maailma oli sumuinen. Takana oli se helvetti, jota591454Heräsin taas sinä mielessä
Miten voi haluta toista näin paljon? 😳 Kyllä meillä on muutenkin hyvä yhteys. Ehkä se tekee myös tästä niin voimakkaan?661392