![]() |
Re: Suche Tool für USB-Stick ...
hi,
sry wenn ich mich einmische, aber hier mal ne kleine idee: Lasse doch über die autorun.inf eine .exe starten, die sucht wieder nach der .dat Datei (so wie in der autorun.cmd). Die .exe erstellt dann das Laufwerk B. Dann überprüft das Programm alle x sekunden ob der Pfad zu der Datei noch existiert, wenn nicht wird das Laufwerk B entfernt und die .exe geschlossen. So müsste der Benutze eigentlich nur noch den USB Stick anschließen. Ich nur so eine kleine Anregung... hibbert |
Re: Suche Tool für USB-Stick ...
ja, die exe liegt direkt daneben.
--- dein tool sollte halt über eine autorun gestartet werden können ... und a) erstelle "B" als fixes laufwerk für den usb-stick b) starte "*.exe" (liegt im selben verzeichnis auf dem stick) c) wie dein vorschlag: einen einfachen button mit dem man die ganze sache wieder "ausschalten" kann, inklusive d) setzte vorher "B" zurück ... ... oder irgendwie so. ich weiss ja nicht was techn. möglich ist. |
Re: Suche Tool für USB-Stick ...
Zitat:
|
Re: Suche Tool für USB-Stick ...
Zitat:
deine anregung hört sich logisch an. aber ... - woher diese "exe"? - ist laufwerk "B" dadurch auch gleich weg? . :gruebel: |
Re: Suche Tool für USB-Stick ...
Zitat:
das war ja meine frage von vorhin: ob mir jemand aus diesem profi-forum so was machen könnte/würde? ps. ich selbst habe mir erst letzte woche dieses delphi2005 als freeware geholt. da ich es mal ausprobieren will. bisher war programmieren für mich immer eine "andere welt" ... was jetzt nix negatives bedeuten soll! sondern eher den ek-preis der programmierumgebung und nötiger bücher betrifft. :zwinker: |
Re: Suche Tool für USB-Stick ...
Zitat:
Das wäre schnell gemacht: Hier mal eine Quick'n Dirty Lösung (ohne Garantie auf Funktionalität):
Delphi-Quellcode:
program USBStickMounter;
uses Windows, Messages, ShellApi; const ClassName = 'WndClass'; IDC_BUTTON = 3; var hwndButton: DWORD; function WndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam): lresult; stdcall; begin Result := 0; case uMsg of WM_CREATE: begin // Batch beim Starten ShellExecute(hWnd, 'open', 'start.cmd', '', '', 0); hwndButton := CreateWindowEx(WS_EX_APPWINDOW, 'BUTTON', 'Schließen', WS_VISIBLE or WS_CHILD, 5, 5, 100, 25, hWnd, IDC_BUTTON, hInstance, nil); end; WM_COMMAND: begin if hiword(wParam) = BN_CLICKED then case loword(wParam) of IDC_BUTTON: begin SendMessage(hwnd, WM_DESTROY, 0, 0); end; end; end; WM_DESTROY: begin // Batch beim Beenden ShellExecute(hWnd, 'open', 'close.cmd', '', '', 0); PostQuitMessage(0); end; else Result := DefWindowProc(hWnd, uMsg, wParam, lParam); end; end; var wc: TWndClassEx = ( cbSize: SizeOf(TWndClassEx); Style: CS_HREDRAW or CS_VREDRAW; lpfnWndProc: @WndProc; cbClsExtra: 0; cbWndExtra: 0; hbrBackground: COLOR_APPWORKSPACE; lpszMenuName: nil; lpszClassName: ClassName; hIconSm: 0; ); msg: TMsg; begin wc.hInstance := hInstance; wc.hIcon := LoadIcon(hInstance, MAKEINTRESOURCE(100)); wc.hCursor := LoadCursor(0, IDC_ARROW); RegisterClassEx(wc); CreateWindowEx(WS_EX_TOPMOST, ClassName, 'USB-Stick', WS_CAPTION or WS_VISIBLE or WS_BORDER, 0, GetSystemMetrics(SM_CYSCREEN) - 90, 130, 60, 0, 0, hInstance, nil); while GetMessage(msg,0,0,0) do begin TranslateMessage(msg); DispatchMessage(msg); end; ExitCode := msg.wParam; end. |
Re: Suche Tool für USB-Stick ...
hallo faux,
damit kann ich aber nun wirklich nichts anfangen. wie soll ich das verarbeiten? ich hab aber inzwischen ein neues problem: ich hab deine codes mal umgesetzt und danach den test-stick mal eingesteckt. laufwerk "B" wurde zusätzlich generiert (neben i:\). danach hab ich beenden.cmd aktiviert - dabei wurde laufwerk "B" deaktiviert. auch ok. nun wollte ich in meiner unwissenheit, das ganze mal den usb-stick selbst machen lassen. ... aber ... es wird grundsätzlich schon kein laufwerk "B" mehr angelegt. autorun.inf zeigt aber: [autorun] OPEN=autorun.cmd und ein "schnelles dos-fenster" bekommt man auch mit. --- ich hab nun die autorun.cmd von hand gestartet: nix. kein laufwerk "B" mehr. --- danach hab ich die autorun.cmd neu geschrieben (aus deiner vorgabe kopiert) ... versuch ebenfalls -negativ- --- neustart des rechners: neuer versuch mit der autorun.cmd es gibt kein laufwerk "B" mehr. bitte - was nun? :gruebel: |
Re: Suche Tool für USB-Stick ...
Am einfachsten wäre es in den Programmen nicht mit fest verankerten Pfaden zu arbeiten.
|
Re: Suche Tool für USB-Stick ...
War ja meine Idee, aber das will er nicht :wall:
|
Re: Suche Tool für USB-Stick ...
.
würde sich hier jemand bereit erklären mir ein solches (vermeindliches) progrämmchen zu erstellen? kosten usw. über email vagus@gmx.org BITTE ! :coder2: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz