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

549

    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. Ruumis ojassa

      Kukahan lie ollu, mistä lie löydetty. No ikävä tataus.
      Oulainen
      23
      2970
    2. Mitä piirteitä rakastat

      Eniten kaivatussasi?
      Ikävä
      54
      1416
    3. Piilorikollisuutta Puolangan päätöksentekoelimissä? Kyllä! Julkisesti todistettu!

      Kyösti (kesk) rehenteli julkisissa tiedotusvälineissä tehneen jo ennen vaaleja sopimuksen kokoomuksen ehdokkaiden kanssa
      Puolanka
      75
      1041
    4. Miten suomalaiset miehet

      On usein niin aikaansaamattomia? Odottavat prinsessapalvelua. Odottavat, että nainen tekee aloitteen, että nainen pyytää
      Ikävä
      140
      988
    5. Anna mulle vielä tilaisuus

      näyttää kuinka susta tykkään.
      Ikävä
      45
      911
    6. Mitkä asiat tekevät

      kaivatustasi vetovoimaisen?
      Ikävä
      61
      872
    7. Eräs läheinen sanoi

      Että mies kyllä ottaa aina itse yhteyttä, jos on kiinnostunut. Oli tilanne mikä hyvänsä. Kuulemma kuvittelin koko jutun.
      Ikävä
      45
      848
    8. Eduskunnassa valmistaudutaan jo persujen täydelliseen romahdukseen - Koko paska kaatuu hetkessä

      – On mahdollista, että käy kuin Assadin Syyrialle tai Ceaușescun Romanialle: koko paska kaatuu aivan hetkessä, kun tarpe
      Perussuomalaiset
      171
      832
    9. Muistatko vielä

      Missä nähtiin ensimmäisen kerran? Miehelle.
      Ikävä
      42
      826
    10. Iloista ja aurinkoista pääsiäistä kaikki palstan kivat sinkut :)

      Täällä on näköjään vähän huono meininki tarttunut kuin tuolta muualta mutta pidetään edelleen tämä puoli suht positiivis
      Sinkut
      135
      746
    Aihe