So.
Delphi-Quellcode:
program USBConf;
uses
Windows, Sysutils, IniFiles;
{$R *.res}
var
temp:
String;
IniFile: TIniFile;
begin
//Zuerst den Laufwerksbuchstaben ermitteln
temp := ExtractFileDrive(paramstr(0));
//Anschließend die Ini - Datei öffnen
IniFile := TIniFile.Create(IncludeTrailingPathDelimiter(Temp) + '
pms_config.ini');
//Doppeltes Try - Konstrukt.
Try
Try
//Der Pfad wird mit aktuellem Laufwerksbuchstaben in die Ini geschrieben
IniFile.WriteString('
database', '
MirrorFolder', IncludeTrailingPathDelimiter(Temp) + '
dbdir\');
Except
//Falls es nicht klappt, gib uns wenigstens ne Nachricht.
MessageBox(
Handle, PChar('
Eintrag konnte nicht geschrieben werden'), PChar('
Fehler'), MB_ICONERROR);
end;
Finally
IniFile.Free;
end;
end.
Was der Quelltext macht, steht in den Kommentaren. Im Anhang findest du den Quelltext
und die ausfühbare Exe. Teste mal, ob es so funktioniert, wie es sein soll.
Das Programm einfach in ein Verzeichnis des USB - Stick legen, den Eintrag in der Autorun.inf anpassen, damit das Programm ausgeführt wird, wenn der Stick eingestöpselt wird, und dann sollte das eigentlich funktionieren...