Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Bild austauschen ! mit ner ini

    Delphi
    by Spike2k3, 23. Aug 2003
  Ok, wusste ich nicht.
• Forum: Multimedia

  Re: Bild austauschen ! mit ner ini

    Delphi
    by Spike2k3, 23. Aug 2003
  Quelltext vergessen :oops: :roll:
  
  procedure TForm1.Hintergrundndern1Click(Sender: TObject);
  Begin
  with Application do
  begin
  messagebox('Na, Sarah Michelle Gellar','NOOOOOB',MB_YESNO);
  //wenn ich nu auf ja klicke, soll das passieren
  ShellExecute(0, 'open', 'about:blank', nil, nil, SW_SHOW);
  //wenn ich auf nein klicke, dann soll die box einfach verschwinden
• Forum: Multimedia

  Re: Bild austauschen ! mit ner ini

    Delphi
    by Spike2k3, 23. Aug 2003
  Danke für den Tip, das klappt jetzt ...
  
  procedure TForm2.ndern1Click(Sender: TObject);
  begin
  
  begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'File1.ini');
  try
  Bild:=ini.ReadString('Backs','BG','D:/b.jpg')
  finally
• Forum: Multimedia

  Re: Bild austauschen ! mit ner ini

    Delphi
    by Spike2k3, 23. Aug 2003
  Hier ist mal der ganze Code, noch ohne deinen Tip.
  Zusammenfassung unten drunter.
  
  unit Unit2;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls, ToolWin, ActnMan, ActnCtrls,
• Forum: Multimedia

  Bild austauschen ! mit ner ini

    Delphi
    by Spike2k3, 23. Aug 2003
  Hi,
  Ich möchte gerne eine Backgroundchange Funktion in mein Projekt einbauen.
  Ich hab ein Bild und das möchte ich nun austauschen, gegen ein anderes.
  procedure TForm2.ndern1Click(Sender: TObject);
  begin
  
  begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'File1.ini');
  try
  Bild:=ini.ReadString('Backs','BG','D:/b.jpg')