Send2FTP

[smallsmoker]

@_frank_: überhaupt keine idee was das soll also von mir kommt die fehlermeldung nich .. kannst du nochmal genau beschreiben wann dieser fehler aufgetreten ist ?

@Die Muhkuh: und ich war so stolz dsa ich nur eine anwendung habe :cry: :lol: also ich habe ne möglichkeit gefunden (ne von windows bereitgestellte) die anwendung nach einmaliger nachfrage ohne uac abfrage mit admin rechten zu starten :) €: klappt aber nicht :(

aber wozu brauch ich die überhaupt ich habe mal uac angestellt und mir nen test eingeschränkten user gemacht und da läuft alles wunderbar, ohne admin rechte !

€:außer beim firewall exeption hinzufügen

@toms: hab ich gemacht kommt dann in die nächste version
€: hilft leider nicht :/

mfg smallsmoker

[smallsmoker]

yeah problem gelöst :)
ich editiere hier später rein wie :)

[Die Muhkuh]

Zitat:

Zitat von smallsmoker

yeah problem gelöst :)
ich editiere hier später rein wie :)

Ist diese Version schon online?

[smallsmoker]

nein gucke changelog :wink:

erst mal das angucken http://www.vs-support.com/tipps_tricks/uac.htm

also erklären will ich nichts aber guckt euch einfach mal den code an vieleicht hilfts ja jemandem:
das is der quellcode meines projekts

Delphi-Quellcode:

program Send2FTP;

uses
  sysutils,
  classes,
  Forms,
  windows,
  shellapi,
  usendto in 'usendto.pas' {Form1},
  usendoform in 'usendoform.pas' {Form2},
  ulizenz in 'ulizenz.pas' {Form3};


{$R *.res}
{$R starter.res}

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
dw: DWORD;
begin
FillChar(executeInfo, SizeOf(executeInfo), 0);
with executeInfo do
begin
        cbSize := SizeOf(executeInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        executeInfo.lpVerb := 'open';
        executeInfo.lpParameters := PChar(Parameter);
        lpFile := PChar(dateiname);
        nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@executeInfo) then
        dw := executeInfo.HProcess
else
begin
//        ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
        Exit;
end;
while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
        Application.ProcessMessages;
CloseHandle(dw);
end;

var s:tresourcestream;
begin
  
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Send2FTP';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
    if paramcount < 1 then
    begin
      s := tresourcestream.Create(hInstance,'sdbfile',RT_RCDATA);
      try
      s.SaveToFile('send2ftpadmin.sdb');
      finally
      s.free;
      end;
      s := tresourcestream.Create(hInstance,'starter',RT_RCDATA);
      try
      s.SaveToFile('EditSend2FTPSettings.exe');
      ShellExecute(0,'open','EditSend2FTPSettings.exe',nil, nil, SW_HIDE);
      finally
      s.free;
      application.ShowMainForm := false;
      application.MainForm.Close;
      end;
    end
  else
  if not (paramstr(1) = 'editthesend2ftpsettings') then
    begin
    application.ShowMainForm := false;
    form2.Show;
    end;
  Application.Run;
  if paramstr(1) = 'editthesend2ftpsettings' then
  begin
  s := tresourcestream.Create(hInstance,'sdbfile',RT_RCDATA);
    try
    s.SaveToFile('send2ftpadmin.sdb');
    finally
    s.free;
    ShellExecAndWait('sdbinst','-q -u send2ftpadmin.sdb');
    deletefile('send2ftpadmin.sdb');
    end;
  end;
end.

qc vom starter

Delphi-Quellcode:

program EditSend2FTPSettings;

uses
  sysutils,
  classes,
  shellapi,
  windows;

procedure KillSelf();
begin 
  with TStringList.Create do try 
    Add(':Label1'); 
    Add('del "' + extractfilepath(Paramstr(0)) + 'send2ftpadmin.sdb' + '"');
    Add('del "' + Paramstr(0) + '"');
    Add('if Exist "' + Paramstr(0) + '" goto Label1');
    Add('if Exist "' + extractfilepath(Paramstr(0)) + 'send2ftpadmin.sdb' + '" goto Label1');
    Add('del "' + ExtractFilePath(Paramstr(0)) + 'name.bat"'); 
    SavetoFile(ExtractFilePath(Paramstr(0)) + 'name.bat'); 
  finally Free end; 
  //Ausführen 
  ShellExecute(0, 'open', PChar(ExtractFilePath(Paramstr(0)) +
    'name.bat'), nil, nil, SW_HIDE); 
end;

begin
  ShellExecute(0,'open','sdbinst','-q send2ftpadmin.sdb', nil, SW_HIDE);
  ShellExecute(0,'open','Send2FTP.exe','editthesend2ftpsettings', nil, SW_HIDE);
  KillSelf()
end.

dem starter muss man nun noch admin rechte z.B: hiermit beschaffen

€: jetzt will ich aber auch mal von euch gesagt haben das das ne gute idee war 8)

€2: da waren ne menge fehler drinne :/ alle draußen

[toms]

Anmerkung zu

Delphi-Quellcode:

Application.CreateForm(TForm2, Form2); 
Application.CreateForm(TForm3, Form3);

Lade die Form2 und Form3 dynamisch bei Bedarf.

[smallsmoker]

kenn ich nich aber ich leren gern dazu ich guck mich mal dazu um :)
mfg smallsmoker

[smallsmoker]

Version 1.0.11 ist nun verfügbar
änderungen siehe changelog
mfg smallsmoker

boa das war schwer :)

happy bugtracking

€toms: reicht es für diese dymische sache wenn ich einfach hinschreibe:

Delphi-Quellcode:

  if (paramstr(1) = 'editthesend2ftpsettings') or (paramcount < 1) then
  begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  end
  else
  Application.CreateForm(TForm3, Form3);

[toms]

Zitat:

Zitat von smallsmoker

Version 1.0.11 ist nun verfügbar
änderungen siehe changelog
mfg smallsmoker

boa das war schwer :)

happy bugtracking

Das Programm startet unter WinXP SP2 nicht mehr. Gleich beim Start kommt

Zitat:

Send2FTP hat ein Problem festgestellt und muss beendet werden.

[smallsmoker]

und wieso klappt es dann bei mir :/

siehe anhang
toll hab den fehler gefunden
behebe ihn gerade

[toms]

Jetzt geht es seltsamerweise wieder. Das erste Mal hat's eine EditSend2FTPSettings.exe extrahiert, jetzt nicht mehr.?!?