Delphi-PRAXiS
Seite 3 von 8     123 45     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Betriebssysteme (https://www.delphipraxis.net/27-betriebssysteme/)
-   -   Suche Tool für USB-Stick ... (https://www.delphipraxis.net/75040-suche-tool-fuer-usb-stick.html)

hibbert 13. Aug 2006 13:15

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

vagus 13. Aug 2006 13:19

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.

faux 13. Aug 2006 13:21

Re: Suche Tool für USB-Stick ...
 
Zitat:

Zitat von vagus
ich weiss ja nicht was techn. möglich ist.

Möglich ist es, jedoch musst du - wenn du selbst kein Delphi hast - jemanden finden, der dir das kompiliert bzw. programmiert. ;)

vagus 13. Aug 2006 13:23

Re: Suche Tool für USB-Stick ...
 
Zitat:

Zitat von hibbert
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...

hallo hibbert,
deine anregung hört sich logisch an. aber ...
- woher diese "exe"?
- ist laufwerk "B" dadurch auch gleich weg?

. :gruebel:

vagus 13. Aug 2006 13:26

Re: Suche Tool für USB-Stick ...
 
Zitat:

Zitat von faux
Zitat:

Zitat von vagus
ich weiss ja nicht was techn. möglich ist.

Möglich ist es, jedoch musst du - wenn du selbst kein Delphi hast - jemanden finden, der dir das kompiliert bzw. programmiert. ;)

faux,
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:

faux 13. Aug 2006 13:38

Re: Suche Tool für USB-Stick ...
 
Zitat:

Zitat von vagus
das war ja meine frage von vorhin:
ob mir jemand aus diesem profi-forum so was machen könnte/würde?

ALso einfach ein Programm,d ass beim Starten eine Batch-Datei ausführt und beim Beenden eine andere?
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.

vagus 13. Aug 2006 14:09

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:

mkinzler 13. Aug 2006 14:12

Re: Suche Tool für USB-Stick ...
 
Am einfachsten wäre es in den Programmen nicht mit fest verankerten Pfaden zu arbeiten.

Daniel G 13. Aug 2006 14:15

Re: Suche Tool für USB-Stick ...
 
War ja meine Idee, aber das will er nicht :wall:

vagus 13. Aug 2006 14:19

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 22:45 Uhr.
Seite 3 von 8     123 45     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz