Ich möchte beim FireFox ein paar Lesezeichen dranhängen. Und zwar bei 30PCs. Deshalb habe ich mir ein kleines Programm geschrieben, das ich übers Netzlaufwerk verteile. Also würde sich eine batch anbieten. Doch wie erstelle ich aus meinem Code eine batch?
Nach der OH-Erklärung wird mein Programm auch als bat erstellt, funktioniert aber nicht!
Könnte mir jemand helfen?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        pfad: string;
        ts: TStringlist;
begin
        pfad := ExtractFilePath(paramstr(0)) + 'bookmarks.html';
        ts := TStringlist.Create;
        ts.LoadFromFile(pfad);
        ts.Delete(ts.Count - 1);
        ts.Text := StringReplace(ts.Text, '</DL>

',
        '</DL>


' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        '</DL>

', [rfReplaceAll]);
         ts.SaveToFile(pfad);
end;

Du mußt Dein Programm in der Batch aufrufen. Besser wäre es, es gleich als Konsolenanwendung zu erstellen und als exe zu verteilen.

Grüße, Messie

Kleine Anmerkung: im Code fehlt das Free...niemals vergessen.

Ich bin mir zwar nicht sicher, ob ich deine Frage richtig verstanden habe, aber du willst eine Datei mit der Extension "bat" erstellen?

Memo1.SaveToFile('bla.bat'); Ausführen kannst du diese dann mit ShellExecute...

Aber wäre es nicht einfacher, das ganze mit Javascript zu realisieren?

Cheerio