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
510
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
Anteeksi mies
En vaan osaa kohdata sinua ja olla normaali. En tiedä mikä vaivaa. Samaan aikaan tekee mieli tulla lähelle ja kuitenkin578827Mietin aina vain
Minä niin haluaisin nähdä sinut. Ei tuo yhden ainoan kuvan katsominen paljon helpota... Miksi sinä et voisi olla se roh123479Hetken jo luulin, että en ikävöi sinua koko aikaa
Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r262680Kysely lieksan miehille
Olemme tässä pohtineet tällaista asiaa, että miten on. Tästä nyt on paljon ollut juttua julkisuudessakin aina sanomaleht802060Palstan henkisesti sairaat ja lihavat
Täällä on sairaita, työttömiä ihmisiä kirjoittelemassa joilla ei ole tarkoituksena kuin satuttaa ihmisiä. Jos eksyt pals1142030Outoa että Trump ekana sanoutui irti ilmastosopimuksesta
kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.3571757Saan kengurakkaan kotiin viikon päästä
Mitä tapahtui? Martina hehkutti tätä stoorissaan reilu viikko sitten, mutta eipä aussimiestä Suomessa näkynyt, vaan tapa2411442FinFamin ryhmät
Älkää hyvät ihmiset luottako tähän tahoon. Ryhmiä on, mutta eivät ne toimi. Ihmisiä savustetaan ulos, vaikka näissä piir01211Olen vähän
Hysteerinen se on totta. Etkai ymmärrä miten syvästi tunnen sinua kohtaan. Ja olet aina lähelläni. Olet osa jo jotain. I101095Osmo Peltola voitti ansaitusti Kultaisen Venlan - Kirvoitti yleisöltä mahtavan reaktion!
JEE, onnea Osmo! Osmo Peltola voitti Vuoden esiintyjän Kultainen Venla -palkinnon. Isä-Peltsin ja Osmon luontoseikkailu681050