[LAZARUS 3.2] TIHelp32 not found

[Atak_Snajpera]

I'm trying to port program from Delphi 7 to Lazarus but I'm stuck at the very beginning. 
Why does Lazarus report this error? File is not missing as you can see?

https://i.postimg.cc/BbFsCfDw/Capture.png
https://i.postimg.cc/nV9HxB5Y/Capture2.png

[Fibonacci]

Save your project and keep all files in the same directory

[Atak_Snajpera]

Save your project and keep all files in the same directory

ok. manually copying tlhelp32.pas to project folder fixed this issue. Why do we have to do this now in lazarus? Delphi 7 didn't have that problem.

[Fibonacci]

Thats how FPC looks for unit files. Either add paths to the project options or keep files in the same directory (C:\Users\...\Temp\project1.lpr vs C:\Lazarus\...\tlhelp32.pas).

[marcov]

That tlhelp32 is for windows CE. Which is why it isn't found by default.

[Fibonacci]

Oh its not your unit? Right

use JwaTlHelp32

[Atak_Snajpera]

JwaTlHelp32 is better than tlhelp32?

[Fibonacci]

FPC doesnt have tlhelp32.pas (at least I dont see it in my installation (except for WinCE)), so the only choice is the JEDI version

[Atak_Snajpera]

Thank you for you help.
By the way. Can Lazarus automatically convert old delphi 7 console app code to new layout used in Lazarus?

[af0815]

Can Lazarus automatically convert old delphi 7 console app code

Yes and no. If you have only components and units wich are in Delphi and Lazarus it can work. But often 3rd party components are used and then the convert (and rewrite) must be done by hand.

Sometimes you are faster do the conversion by hand and step by step. You can convert a sample and look what trhe conversion tool is doing.
 

[440bx]

I ran into that problem a few years ago.

I made my own copy of TLHelp32 which works for Delphi (I use Delphi 2) and FPC.

In case you might find it useful, I attached it to this post.  Actually, what is attached is an example program that uses toolhelp to determine the bitness and subsystem of every program running in the system.  Note that you may get a warning about being unable to acquire the debug privilege if you run the program as a normal user.  Full source and project included (along with the copy of TLHelp32.pas you need.)  Enjoy!.

[Atak_Snajpera]

I see that converting from 32bit Delphi 7 to 64bit Lazarus gives me a lot of errors



 

[marcov]

Delphi 7's RTL hasn't been changed for 64-bit issues yet, while FPC's has.  You need at least Delphi XE2 or XE3 for 64-bit on the Delphi side.

Don't forget to compile in {$mode delphi}

[Atak_Snajpera]

Even simple Synchronize does not work

Code: Pascal  [Select][+][-]

1. procedure TWorkerThread.OutputSynchronizationWhite;
2. var text:string;
3. begin
4.  
5.   ProcessIDtoSupervise:=ProcessID;
6.   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),15);
7.   text:='['+DateTimeToStr(Now)+'] '+ProcessCommandLine+' (PID:'+IntToStr(ProcessID)+') executed.';
8.   WriteLn(text);
9.   Log.Add(text);
10.  
11. end;
12.  
13. procedure TWorkerThread.RunProcess(CMD:String;ProcessPriority:cardinal;WindowStatus:Word);
14. const ReadBuffer = 2400;
15. var
16.    Security : TSecurityAttributes;
17.    ReadPipe,WritePipe : THandle;
18.    startInfo : TStartUpInfo;
19.    ProcessInfo : TProcessInformation;
20.    Buffer : Pchar;
21.    BytesRead : DWord;
22.    Apprunning : DWord;
23. begin
24.  
25.   With Security do
26.   begin
27.  
28.     nlength := SizeOf(TSecurityAttributes) ;
29.     binherithandle := true;
30.     lpsecuritydescriptor := nil;
31.  
32.   end;
33.  
34.   if Createpipe (ReadPipe, WritePipe, @Security, 0) then
35.   begin
36.  
37.     Buffer := AllocMem(ReadBuffer + 1) ;
38.     FillChar(StartInfo,Sizeof(Start),#0) ;
39.     startInfo.cb := SizeOf(start) ;
40.     startInfo.dwFlags := STARTF_USESHOWWINDOW;
41.     startInfo.wShowWindow := WindowStatus;
42.  
43.     if CreateProcess(nil,PChar(CMD),nil,nil,true,ProcessPriority,nil,nil,startInfo,ProcessInfo) then
44.     begin
45.       ProcessCommandLine:=CMD;
46.       ProcessID:=ProcessInfo.dwProcessId;
47.       Synchronize(OutputSynchronizationWhite);
48.       repeat
49.         Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
50.       until (Apprunning <> WAIT_TIMEOUT);
51.  
52.     end;
53.  
54.     FreeMem(Buffer);
55.     CloseHandle(ProcessInfo.hProcess);
56.     CloseHandle(ProcessInfo.hThread);
57.     CloseHandle(ReadPipe);
58.     CloseHandle(WritePipe);
59.  
60.   end;
61.  
62. end;                              

[Atak_Snajpera]

If you are curious I have attached full Delphi 7 source code which I'm trying to convert to 64 bit lazarus.