__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  if (ParamStr(1) != "")
    Memo1->Lines->LoadFromFile(ParamStr(1));
}

Dann folgendes:
1. tatsaechlich startet das Programm bei Doppelklick auf eine Datei (mit bei Programminstallation in der Windows Registry eingetragenen Dateiendung) automatisch
2. Rechner produziert 2 x sekundenlanges Pfeifen samt mechanischen Geraeuschen...
3. Access violation at address 0040EF65 in module MeinProgramm.exe read of address 00000470.

Was mach ich falsch? Wie viele Versuche hab ich noch bis der Rechner rein mechanisch aufgibt???

Also, ganz reduziert: Ist die Fkt ParamStr(1) ausreichend bzw das einzig Machbare um herauszufinden (a) wie die Datei heisst und (b) in welchem Pfad sich die Datei befindet durch welche der Programmstart ausgeloest wurde?

Alvast Bedankt!
Nils

2. Rechner produziert 2 x sekundenlanges Pfeifen samt mechanischen Geraeuschen...

Und du glaubst tatsächlich das liegt an der Software, dass dein REchner mechanische Geräusche von sich gibt? Wie soll das denn gehen? Vielleicht durch übermässigen Elektronenbeschuss?

nhr schrieb:

3. Access violation at address 0040EF65 in module MeinProgramm.exe read of address 00000470.

Setz mal nen Breakpoint in die Funktion und schau dir an, was da genau passiert... Mein Tip: Memo1 ist zum Zeitpunkt des Aufrufs noch null...

char *current_directory(char *path);
char *current_directory(char *path)
{
  strcpy(path, "X:\\");      /* fill string with form of response: X:\ */
  path[0] = 'A' + getdisk();    /* replace X with current drive letter */
  getcurdir(0, path+3);  /* fill rest of string with current directory */
  return(path);
}

und es kommen genauso viele exceptions wie leerzeichen in dem directory string stehen. verstehe ich zwar auch nicht, tut aber nicht viel zur sache...

... weil mir in diesem Forum gesagt wurde die ParamStr() Funktion benutzen zu sollen. Ziel: Datei mit z.B. .xxx Dateiendung laesst das Programm starten, .xxx-Datei soll ausgelesen (sprich: "geoeffnet") werden. Ist das Programm noch in keiner Instanz aktiv, dann funktioniert das auch alles supi. Wenn aber mein Programm schon in einer ersten Instanz laeuft, dann nicht...

Der Code schaut aus wie folgt:

in der WINAPI wird gecheckt ob schon eine Programminstanz laeuft, und Kommandozeile wird mittels einer WM_COPYDATA Message an die schon laufende Programminstanz weitergegeben:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR cmdLine, int)
{
 try
  {
    // Versuche, Mutex zu öffnen:
    HANDLE hMutex = OpenMutex(MUTEX_ALL_ACCESS, 0, "DeviPVS.0");

    // Falls hMutex ist 0, Mutex erzeugen:
    if (!hMutex)
      hMutex = CreateMutex(0, 0, "DeviPVS.0");
    else
    {
      // Es ist die zweite Instanz. Aktiviere die erste Instanz:
      HWND hWnd = FindWindow(0, "iPV-Sim");
      //************************************************
      // Kommandozeile nicht leer. Sende die
      // Kommandozeile an die laufende
      // Programminstanz in einer WM_COPYDATA Message:
      if (strlen(cmdLine) != 0)
      {
        COPYDATASTRUCT cds;
        cds.cbData = strlen(cmdLine) + 1;
        cds.lpData = cmdLine;
        SendMessage(hWnd, WM_COPYDATA, 0, (LPARAM)&cds);
      }
      // Es ist die zweite Instanz. Aktiviere die erste Instanz:
      SetForegroundWindow(hWnd);
      UpdateWindow(hWnd);

      return 0;
      //************************************************
    }
        try
        {
                 Application->Initialize();
                 // ...
                 Application->Run();
        }                                 
        catch (Exception &exception)                      
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 // ...        
        }
        ReleaseMutex(hMutex);
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }

  return 0;
}
//---------------------------------------------------------------------------

Anscheinend wir die Komandozeile aber NICHT weitergegeben, denn

void __fastcall WmCopyData(TWMCopyData& Message);
(void __fastcall TMainForm::WmCopyData(TWMCopyData& Message)
{
        for (int i=1;i<=ParamCount();i++)
        {
                Memo1->Lines->Add("WmCopyData: " + ParamStr(i));
        }

  ButtonStartStartScreen(MainForm);
}

macht garnichts...

und jetzt?

Wenn mir einer hilft, dann jetzt schon vielen herzlichen Dank! Weiss da wirklich nicht mehr weiter...

Nils

Wenn, dann auf jeden Fall schon Mal vielen Dank,
Nils

Mir scheint, als ob dieses Programm dich ein wenig überfordert, wenn du noch nicht einmal die Grundlagen beherrscht.

Ueberfordert bin ich schon: sonst wuerde ich ja nicht(s) posten.

Also Danke fuer den Tip, werde es Mal (morgen, demnaechst, gibt gerade wichtigeres) checken.

P.S. Apropros Debugger: 1.) Wie soll das gehen, wenn es um ein WINDOWS message-posting zu einer anderen Instanz geht? Das laueft ja "eigentlich" alles ohne Probleme...

Dachte schon, dass dies ein Forum sei in welchem man nach 100 x FAQ und "benutze-doch-mal-die-hilfe-deiner-rad-software" nur auf den Debugger hingewiesen wird...

Naja, man sollte schon der Fertigkeit desDebuggerbenutzens mächtig sein. Das verhindert nämlich, dass ellen lange LIstings einem die Lust am Helfen nehmen. Denn wir haben ja alle nicht die Infrastruktur um deine drüftigen Informationen nach zu bauen.

nhr schrieb:

P.S. Apropros Debugger: 1.) Wie soll das gehen, wenn es um ein WINDOWS message-posting zu einer anderen Instanz geht?

Hmmm mal überlegen... Man könnte doch.... ach nein, das ist wahrscheinlich zuviel... wobei... naja, man könnte wirklich.... Wie wärs denn wenn man (bei Problemen für den Empfang der Nachricht) den empfangenden Task im Debugger laufen lässt und dann die andere Instanz einfach startet und den Versand der Message provoziert? (oder natürlich umgekehrt bei Problemen im Sendenden Task....)

nhr schrieb:

Das laueft ja "eigentlich" alles ohne Probleme...

offensichtlich nicht?

void __fastcall TMainForm::WmCopyData(TWMCopyData& Message)
{
  AnsiString slCmdLine =
    (char*)Message.CopyDataStruct->lpData;
  slCmdLine = slCmdLine + '\0';

  // Den Code hier einfügen... z.B.:
  ShowMessage(slCmdLine);

  Memo1->Lines->Add("WmCopyData slCmdLine: " + slCmdLine);

        for (int i=1;i<=ParamCount();i++)
        {
        //    if (LowerCase(ParamStr(i)) == "beep")
        //      Beep(10000,1000);
                Memo1->Lines->Add("WmCopyData: " + ParamStr(i));
        //    elseif (LowerCase(ParamStr(i)) == "exit")
        //      Application->Terminate();
        }
}

weil @ JUNix ich habe natuerlich dummer Weise meinen Code versucht auf das Wesentliche zu bereinigen,

junix schrieb:

Das verhindert nämlich, dass ellen lange LIstings einem die Lust am Helfen nehmen

.

Vielen Dank fuer den Debugger-Link. Frage mich aber, warum Du so schuechtern damit rausgerueckt bist...:

junix schrieb:

Hmmm mal überlegen... Man könnte doch.... ach nein, das ist wahrscheinlich zuviel... wobei... naja, man könnte wirklich.... Wie wärs denn wenn man

...zu lange vorm Bildschirm gesessen?-) hatte aber auf jeden Fall Humor...

Hast sicherlich Recht damit: HowTo's ueber das Debuggen machen sich rar (vielleicht systemimmanent durch das Benutzen von rad:) Auch wenn's von einem Laien wie mir nicht viel Wert sein mag: ich finde Deine Einfuehrung (mehr ist's ja nicht) in die Instrumente des Debuggens da sehr passend! Manchmal scheifst Du da aber wirklich ab... ich gerade auch. Trotzdem: Ich find's toll das Du's machst, Danke!

Ja, Danke soweit fuer Eure Tips / Ideen / Anregungen.
Es laueft aber immer noch nicht... werde bei Zeit debuggen...

Groetjes,
Nils