Ajuda Delphi não copila

[kurudz 0]

Bem pessoal criei um ejetor, ontem consegui copilar ele 2 vezes, somente 2 vezes, desde então o Delphi não copila mais, não aparece erro algum, simplesmente ele pisca o projeto, mas não cria o .exe. O projeto ele abre normalmente, sonão copila mais, ja reiniciei, coloquei privilegios executo o delphi como ADM. Mas nada resolve se alguém tiver uma idéia.

 

uso windows 7

delphi 7

[cudegay 0]

ja tentou desistalar e instalar di novo o delphi? pode ser que resolva!

 

Obs: não preciza apagar o seu projeto apenas desistale e instale e depois abra seu projeto!

[Mestre_Vator 0]

Já testou alguma versão mais nova(2006 e em diante)? Pois Delphi 7 tem problemas de compatibilidade com Win Vista/7.

[kurudz 0]

Já testou alguma versão mais nova(2006 e em diante)? Pois Delphi 7 tem problemas de compatibilidade com Win Vista/7.

Não testei mas vc recomenda algum

[Mestre_Vator 0]

Procura o 2006,2007,2008,2009 ou 2010,se vc tiver espaço livre.

Vou procurar algum link,se eu achar,já ponho(lol).

 

2007:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

São 13 partes,mas uma vez baixei,foi rápido,nem 3 horas deu...deve ter outros.

 

2010:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

crack para o 2010:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

ou ache mais do 2010:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[kurudz 0]

Vlw vo da uma olhada, espaço tem bastante uns 200gb livres axo q vo baixar o 2010

 

Baixei instalei mas não consigo crakear ele, nem com o DelphiDistiller não funfa.

[soureidosnoob 0]

mano voce salva seu projeto em uma pasta q voce saiba onde esta localizada??

 

se nao vai file>save all e depois compila seu projeto!

[luxfer 0]

Não sei qual versão você está utilizando agora, mas se ainda não tá conseguindo compilar tente:

Project -> Options (Shift+Ctrl+F11) -> Aba Directories/Conditionals -> Output Directory -> Escolha diretório que você acha melhor para o executável.

[aluwama 0]

Ejetor? Ele ejeta(descarrega) dlls do processo?

 

On-Topic:

Ta usando CreateRemoteThread?

[kurudz 0]

Não sei qual versão você está utilizando agora, mas se ainda não tá conseguindo compilar tente:

Project -> Options (Shift+Ctrl+F11) -> Aba Directories/Conditionals -> Output Directory -> Escolha diretório que você acha melhor para o executável.

 

Ele até cria o Aplicativo neste metodo mais não roda, cliko nele mas não roda.

 

Novos problemas

Baixei a versão 2010

Tudo bem consegui copilar com essa versão, sem erro algum.

Mas agora o ejetor não funciona.

Estranho pq eu tinha conseguido copilar uma vez com o outro Delphi 7 e funcionou o ejetor

Mas quando copilo com esse não ejeta e nem fexa automaticamnte, como é para ser

Vou postar a source que to usando se alguém puder ajudar. Vlw

 

 

function GetPID(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

while Process32Next(MyHandle, Struct) do

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

except on exception do

Exit;

end;

end;

 

function InjectDll(PID:DWORD; sDll:string):Boolean;

var

hLib: Pointer;

hThread: THandle;

pMod: Pointer;

hOpen: THandle;

dWritten: Cardinal;

ThreadID: Cardinal;

begin

Result := FALSE;

hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

if hOpen <> INVALID_HANDLE_VALUE then

begin

hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));

pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);

if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then

Result := TRUE;

hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);

WaitForSingleObject(hThread, INFINITE);

CloseHandle(hOpen);

CloseHandle(hThread);

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

var

a : string;

begin

a := extractFilepath(application.exename);

if not OpenDialog1.Execute then Exit;

Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));

Listbox1.Items.SaveToFile(a+'\kurudz.ini');

end;

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Checkbox1.Enabled := False;

Button1.Enabled := False;

Label1.Caption := 'aguardando o programa iniciar...';

Timer1.Enabled:=True;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(Edit1.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, Opendialog1.Filename) then

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'kurudz', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

else

MessageBoxA(Handle, 'Erro ao injetar DLL!', 'kurudz', MB_ICONERROR+MB_SYSTEMMODAL);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

var

c : string;

begin

c := extractFilepath(application.exename);

ListBox1.Clear;

Listbox1.Items.SaveToFile(c+'\kurudz.ini');

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

b : string;

begin

b := extractFilepath(application.exename);

Listbox1.DeleteSelected;

Listbox1.Items.SaveToFile(b+'\kurudz.ini');

end;

 

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Label1.AutoSize := true;

Label1.Caption := 'Aguardando por Injeção...';

Checkbox1.Enabled := true;

Button1.Enabled := true;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var PID: DWORD;

begin

PID:=GetPID(Edit1.Text);

if InjectDll(PID, Opendialog1.Filename) then

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'kurudz', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

else

MessageBoxA(Handle, 'Erro ao injetar DLL!', 'kurudz', MB_ICONERROR+MB_SYSTEMMODAL);

end;

 

procedure TForm1.carregadorTimer(Sender: TObject);

var

y : string;

begin

y := extractFilepath(application.exename);

Listbox1.Items.LoadFromFile(y+'\kurudz.ini');

carregador.Enabled := false;

end;

 

procedure TForm1.ant_carregadorTimer(Sender: TObject);

var

fe : string;

begin

fe := extractFilepath(application.exename);

if FileExists(fe+'\kurudz.ini') then

begin

Listbox1.Update;

ant_carregador.Enabled := false;

carregador.Enabled := true;

end

//

else

Listbox1.Items.SaveToFile(fe+'\kurudz.ini');

ant_carregador.Enabled := false;

carregador.Enabled := true;

end;

 

end.