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

626

    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. Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois

      Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait
      Maailman menoa
      99
      3586
    2. Sanna on suomalaisille siis velkaa 24 mrd euroa

      Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl
      Maailman menoa
      108
      2225
    3. Hei! Halusin vain kertoa.

      En tiedä luetko näitä, mutta näimme n.4vk sitten, vaihdoimme muutaman sanan ja tunsin edelleen kipinän välillämme. Katso
      Tunteet
      5
      2029
    4. Miksi ikävä ei helpotu vuosien jälkeenkään?

      Tänään olin ensimmäistä kertaa sinun lähtösi jälkeen tilassa, jossa vuosia sitten nähtiin ensimmäistä kerta. Ollessani
      Rakkaus ja rakastaminen
      8
      1794
    5. Teboili alasajo on alkanut

      Niinhän siinä kävi että teebboili loppuu...
      Suomussalmi
      36
      1506
    6. Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen

      Järkyttävää… Motin mukaan Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi yksityiselämässään syyllistynyt es
      Maailman menoa
      58
      1006
    7. Oot kyl rakas

      Et tiiäkkään miten suuri vaikutus sulla on mun jaksamiseen niin töissä, kun vapaallakin❤️. Oot täysin korvaamaton. En t
      Ikävä
      36
      940
    8. Kirjoittaisit edes jotain josta tiedän

      Varmasti oletko se oikeasti sinä. Tänään tälläinen olo. 🫩
      Ikävä
      70
      892
    9. Miten voitkin olla aina niin fiksu

      ...aina niin huomaavainen, kärryillä ja kartalla. Yritän etsimällä etsiä sinusta jotain vikaa, että saisin pidettyä sydä
      Ikävä
      47
      850
    10. Sofia Zida puhuu rehellisesti suhteesta Andy McCoyhin: "Se on ollut mulle tavallaan..."

      Sofia ja Andy, aika hellyttävä parivaljakko. Sofia Zida on mukana Petolliset-sarjassa. Hänet nähtiin Yökylässä Maria Ve
      Suomalaiset julkkikset
      4
      827
    Aihe