Delphi ja bat

tiedosto

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?

6

489

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Delphikoodari..
      • 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

    1. En usko et meistä tulee jotain

      Se ei kuitenkaan estä toivomasta et tulisi. Toivon et voitas suudella ja se sais asioita loksahtamaan paikoilleen. Jutel
      Ikävä
      10
      2530
    2. Kuvaile itseäsi

      Kaivatullesi, niin että hän sinut tunnistaa.
      Ikävä
      85
      1940
    3. Eini paljastaa nuorekkuutensa salaisuuden - Tämä nousee framille: "Se on pakko, että jaksaa!"

      Discokuningatar Eini on täyttänyt upeat 64 vuotta. Lavoilla ja keikoilla nähdään entistä vapautuneempi artisti, joka ei
      Suomalaiset julkkikset
      38
      1479
    4. Huomenta keskipäivää

      Kivaa päivää mukaville ja söpösille. 🐺🫅❤️☕☀️
      Ikävä
      260
      1398
    5. Yli puolella maahanmuuttajalapsista ei ole tietoja ja taitoja, joilla selviää yhteiskunnassa

      Miksi Suomeen otetaan väkeä jolla on älyvajetta? https://www.hs.fi/politiikka/art-2000010730220.html
      Maailman menoa
      273
      1018
    6. Oletko koskaan katunut kun

      elämäsi tilaisuus jäi käyttämättä? 💔
      Ikävä
      66
      893
    7. Olen J-mies

      Jos kerrot sukunimeni alkukirjaimen, ja asuinpaikkakuntani. Lupaan ottaa yhteyttä sinuun.
      Ikävä
      47
      871
    8. Ei sitten, ei olla enää

      Missään tekemisissä. Unohdetaan kaikki myös se että tunsimme. Tätä halusit tämän saat. J miehelle. Rakkaudella vaalea na
      Ikävä
      77
      850
    9. Sinusta näkee että

      Kaipaat paljon.
      Ikävä
      51
      826
    10. Haluaisin ottaa sinut syleilyyni mies

      Olet suloinen...
      Ikävä
      44
      755
    Aihe