ZeroMemory( @si, sizeof(si) );
si.lpDesktop:=PChar(deskName);
si.cb := sizeof(si);
ZeroMemory( @pi, sizeof(pi) );
cf:=CREATE_NEW;
command:='E:\Programme\Asbion\Syncronaut\System\Syncronaut4.exe';
CreateProcess(Nil,PChar(command),nil,nil,False,cf,nil,nil,si,pi );

procedure StartApplicationAndWait(const FileName:string);
var sei:TShellExecuteInfoA;
    retval:integer;
begin
  ZeroMemory(@sei, sizeof(sei));
  with sei do begin
    cbSize:=sizeof(sei);
    fMask:=SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
    Wnd:=0;
    lpVerb:='open';
    lpFile:=PAnsiChar(FileName);
    lpParameters:=nil;
    lpDirectory:=PAnsiChar(ExtractFileDir(FileName));
    nShow:=SW_SHOW; // evtl anpassen...
  end;
  if ShellExecuteExA(@sei) then begin
    // Programm ist erfolgreich gestartet
    try
        retval:=WAIT_TIMEOUT;
        
        while (retval = WAIT_TIMEOUT) do begin
          retval:=WaitForSingleObject(sei.hProcess, 500);
          Application.ProcessMessages;
        end;
    finally
      CloseHandle(sei.hProcess);
    end;
    // Programm wurde beendet
  end else begin
    // Programm konnte nicht gestartet werden; anpassen an eigene Logmechanismen
    SysErrorMessage(GetLastError);
  end;

if not LogonUser(
           PChar('Username'),
           PChar('Workgroup'),
           PChar('password'),
           LOGON32_LOGON_INTERACTIVE,
           LOGON32_PROVIDER_DEFAULT,
           token) then
  Beep;

ZeroMemory( @si, sizeof(si) );
si.lpDesktop:=PChar('MyOwnDesktop');
si.cb := sizeof(si);
ZeroMemory( @pi, sizeof(pi) );
cf:=CREATE_NEW or CREATE_NEW_CONSOLE;
command:='E:\Programme\Programm.exe';

try
  if not CreateProcessAsUser(
    token,
    nil,
    PChar(command),
    nil,
    nil,
    False,
    cf,
    nil,
    PChar(ExtractFilePath(command)),
    si,
    pi )then
      Beep;
except
  Beep;
  end;